diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-11-25 13:31:44 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-11-25 13:31:44 +0100 |
| commit | df15ce796fd208c2030e1aa6630df472ddc18bf0 (patch) | |
| tree | 9f36763ae777804e8111763254919503b802b654 /lib | |
| parent | basic api description, working (diff) | |
| download | net-backtype-df15ce796fd208c2030e1aa6630df472ddc18bf0.tar.gz | |
add pod and backtweet API
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/Backtweet.pm | 55 | ||||
| -rw-r--r-- | lib/Net/Backtype.pm | 52 |
2 files changed, 106 insertions, 1 deletions
diff --git a/lib/Net/Backtweet.pm b/lib/Net/Backtweet.pm new file mode 100644 index 0000000..03abb0d --- /dev/null +++ b/lib/Net/Backtweet.pm @@ -0,0 +1,55 @@ +package Net::Backtweet; + +use Moose; +use MooseX::Net::API; +extends 'Net::Backtype'; + +has format => ( is => 'ro', isa => 'Str', default => 'json', ); +has '+api_base_url' => ( default => 'http://backtweets.com' ); +format_query 'format' => ( mode => 'append' ); + +net_api_method backtweet_search => ( + path => '/search', + method => 'GET', + params => [qw/q since key/], + required => [qw/q key/], +); + +1; +__END__ + +=head1 NAME + +Net::Backtweet - client for the backtweet API + +=head1 SYNOPSIS + + use Net::Backtweet; + my $client = Net::Backtweet->new(); + +=head1 DESCRIPTION + +Net::Backtype is a client for the backtweet API + +=head2 METHODS + +=over 4 + +=item B<backtweet_search> + +See L<http://backtweets.com/api>. + +=back + +=head1 AUTHOR + +franck cuny E<lt>franck.cuny@rtgi.frE<gt> + +=head1 SEE ALSO + +=head1 LICENSE + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut diff --git a/lib/Net/Backtype.pm b/lib/Net/Backtype.pm index a3591b3..58d9fa8 100644 --- a/lib/Net/Backtype.pm +++ b/lib/Net/Backtype.pm @@ -101,12 +101,62 @@ Net::Backtype - client for the backtype API =head1 SYNOPSIS use Net::Backtype; - my $client = Net::Backtype->new(format => 'json', api_key => 'foo'); + my $client = Net::Backtype->new(); =head1 DESCRIPTION Net::Backtype is a client for the backtype API +=head2 METHODS + +=over 4 + +=item B<user_comment> + +See L<http://www.backtype.com/developers/user-comments>. + +=item B<user_followers> + +See L<http://www.backtype.com/developers/user-followers>. + +=item B<user_following> + +See L<http://www.backtype.com/developers/user-following>. + +=item B<user_home> + +See L<http://www.backtype.com/developers/user-home-feed>. + +=item B<user_profile> + +See L<http://www.backtype.com/developers/user-profile>. + +=item B<comments_search> + +See L<http://www.backtype.com/developers/comments-search>. + +=item B<comments_connect> + +See L<http://www.backtype.com/developers/comments-connect>. + +=item B<comments_connect_stats> + +See L<http://www.backtype.com/developers/comments-connect-stats>. + +=item B<comments_author> + +See L<http://www.backtype.com/developers/url-comments>. + +=item B<comments_page> + +See L<http://www.backtype.com/developers/page-comments>. + +=item B<comments_page_stats> + +See L<http://www.backtype.com/developers/page-comments-stats>. + +=back + =head1 AUTHOR franck cuny E<lt>franck.cuny@rtgi.frE<gt> |
