diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-07 11:21:27 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-07 11:21:27 +0200 |
| commit | 651150cddb47722a588a54eb8b2307f2042e630e (patch) | |
| tree | 6743c661e5b520ca658d184cf0634509a7066fcf /lib/Net | |
| parent | add urls; rename method, change url and args (diff) | |
| download | net-backtype-651150cddb47722a588a54eb8b2307f2042e630e.tar.gz | |
update POD
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Backtweet.pm | 45 | ||||
| -rw-r--r-- | lib/Net/Backtype.pm | 58 |
2 files changed, 101 insertions, 2 deletions
diff --git a/lib/Net/Backtweet.pm b/lib/Net/Backtweet.pm index b9e3c49..474cdc2 100644 --- a/lib/Net/Backtweet.pm +++ b/lib/Net/Backtweet.pm @@ -17,7 +17,7 @@ net_api_method tweets_by_url => ( 'Retrieve tweets that link to a given URL, whether the links are shortened or unshortened.', path => '/tweets/search/links', method => 'GET', - params => [qw/q key/], + params => [qw/q key itemsperpage start end/], required => [qw/q key/], expected => [qw/200/], ); @@ -42,13 +42,18 @@ net_api_method good_tweets_by_url => ( expected => [qw/200/], ); +# back compatibility +sub backtweet_search { + (shift)->tweets_by_url(@_); +} + 1; =head1 SYNOPSIS use Net::Backtweet; my $client = Net::Backtweet->new(); - my $res = $client->backtweet_search(q => 'http://lumberjaph.net/', key => $mykey); + my $res = $client->tweets_by_url(q => 'lumberjaph', key => 's3kr3t'); =head1 DESCRIPTION @@ -62,18 +67,54 @@ Net::Backtype is a client for the backtweet API. Retrieve the number of tweets that link to a particular URL. + my $tweets = $client->tweets_by_url(q => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<q> query (required) + +=item B<key> API key (required) + +=item B<itemsperpage> number of items per page (optional) + +=item B<start> date start (optional) + +=item B<end> date end (optional) + +=back + See L<http://www.backtype.com/developers/tweets-by-url>. =item B<stats_by_url> Retrieve the number of tweets that link to a particular URL. + my $stats = $client->stats_by_url(q => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<q> query (required) + +=item B<key> API key (required) + +=back + See L<http://www.backtype.com/developers/tweet-count>. =item B<good_tweets_by_url> Retrieve filtered tweets that link to a given URL with both shortened and unshortened links. This returns a subset of Tweets by URL. + my $good = $client->good_tweets_by_url(q => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<q> query (required) + +=item B<key> API key (required) + +=back + See L<http://www.backtype.com/developers/good-tweets>. =back diff --git a/lib/Net/Backtype.pm b/lib/Net/Backtype.pm index 235f1ee..6f28877 100644 --- a/lib/Net/Backtype.pm +++ b/lib/Net/Backtype.pm @@ -90,30 +90,88 @@ Net::Backtype is a client for the backtype API Search all the comments on BackType for a given string. + my $res = $client->comments_page(key => 's3kr3t', q => 'lumberjaph' ); + +=over 2 + +=item B<q> query (required) + +=item B<key> API key (required) + +=item B<start> date start (optional) + +=item B<end> date end (optional) + +=back + See L<http://www.backtype.com/developers/comments-search>. =item B<comments_connect> Retrieve all conversations related to a given URL. + my $res = $client->comments_connect(key => 's3kr3t', url => 'lumberjaph'); + +=over 2 + +=item B<url> url (required) + +=item B<key> API key (required) + +=item B<sources> (optional) + +=item B<sort> (optional) + +=back + See L<http://www.backtype.com/developers/comments-connect>. =item B<comments_connect_stats> Retrieve statistics on the conversations related to a given URL. + my $res = $client->comments_connect_stats(url => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<url> url (required) + +=item B<key> API key (required) + +=back + See L<http://www.backtype.com/developers/comments-connect-stats>. =item B<comments_author> Retrieve comments written by a particular author. + my $res = $client->comments_author(url => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<url> url (required) + +=item B<key> API key (required) + +=back + See L<http://www.backtype.com/developers/url-comments>. =item B<comments_page> Retrieve excerpts of comments published on a particular page. + my $res = $client->comments_page_stats(url => 'lumberjaph', key => 's3kr3t'); + +=over 2 + +=item B<url> url (required) + +=item B<key> API key (required) + +=back + See L<http://www.backtype.com/developers/page-comments>. =item B<comments_page_stats> |
