1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
use strict;
use warnings;
use Test::More;
use YAML::Syck;
{
package fake::api;
use Moose;
use MooseX::Net::API;
has api_base_url => (
is => 'ro',
isa => 'Str',
default => 'http://identi.ca/api',
);
has format => ( is => 'ro', isa => 'Str', default => 'json', );
has api_username => ( is => 'rw', isa => 'Str', );
has api_password => ( is => 'rw', isa => 'Str', );
has api_key => ( is => 'rw', isa => 'Str', );
format_query 'format' => ( mode => 'content-type' );
net_api_method foo => (
description => 'this does foo',
method => 'GET',
path => '/foo/',
code => sub { my $self = shift; $self->get_foo },
);
net_api_method public => (
description => 'this does bar',
method => 'GET',
path => '/statuses/public_timeline',
);
sub get_foo { return 1; }
}
{
package test::fake::api;
use Moose;
use MooseX::Net::API::Test;
extends 'fake::api';
test_api_method foo => (
arguments => [qw//],
expect => sub {
my $self = shift;
warn Dump \@_;
}
);
}
my $obj = fake::api->new();
ok $obj, '... object created';
is $obj->foo, 1, '... get foo returns 1';
ok my $res = $obj->public, '... get public';
my $test_obj = test::fake::api->new();
#my @methods = $obj->meta->get_all_methods;
#foreach (@methods) {
#if ( $_->name =~ /foo/ ) {
#my @foo = $_->meta->get_attribute_list;
#warn $_->name . " : " . Dump \@foo;
#}
#}
#is $res->code, 200, '... request ok';
#warn $res->content;
done_testing;
|
