t/lib/FakeAPIFail2.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

package FakeAPI;
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', );
format_query 'format' => ( mode => 'content-type' );

net_api_method baz => (
    description => 'this one does baztwo',
    method      => 'BAZ',
    path        => '/baz/',
    params      => [qw/foo/],
    required    => [qw/bla/],
);

sub get_foo { return 1; }

1;