t/lib/Identica.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 Identica;
use Moose;
use MooseX::Net::API;

has [qw/api_username api_password/] => ( is => 'ro', isa => 'Str' );

net_api_declare identica => (
    base_url       => 'http://identi.ca/api',
    format         => 'json',
    format_mode    => 'append',
    authentication => 1,
);
net_api_method public_timeline => (
    path   => '/statuses/public_timeline',
    method => 'GET',
);

net_api_method update_status => (
    path          => '/statuses/update',
    method        => 'POST',
    params        => [qw/status/],
    required      => [qw/status/],
    params_in_url => 1,
);