diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/Backtweet.pm | 7 | ||||
| -rw-r--r-- | lib/Net/Backtype.pm | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/lib/Net/Backtweet.pm b/lib/Net/Backtweet.pm index ea29a57..507c67b 100644 --- a/lib/Net/Backtweet.pm +++ b/lib/Net/Backtweet.pm @@ -5,9 +5,9 @@ use MooseX::Net::API; extends 'Net::Backtype'; net_api_declare backtweet => ( - api_base_url => 'http://backtweets.com', - format => 'json', - format_mode => 'append', + base_url => 'http://backtweets.com', + format => 'json', + format_mode => 'append', ); net_api_method backtweet_search => ( @@ -15,6 +15,7 @@ net_api_method backtweet_search => ( method => 'GET', params => [qw/q since key/], required => [qw/q key/], + expected => [qw/200/], ); 1; diff --git a/lib/Net/Backtype.pm b/lib/Net/Backtype.pm index 19ffcb3..1c507c3 100644 --- a/lib/Net/Backtype.pm +++ b/lib/Net/Backtype.pm @@ -6,9 +6,9 @@ use MooseX::Net::API; our $VERSION = '0.01'; net_api_declare backtype => ( - api_base_url => 'http://api.backtype.com', - format => 'json', - format_mode => 'append', + base_url => 'http://api.backtype.com', + format => 'json', + format_mode => 'append', ); net_api_method user_comments => ( @@ -16,6 +16,7 @@ net_api_method user_comments => ( method => 'GET', params => [qw/key user/], required => [qw/key user/], + expected => [qw/200/], ); net_api_method user_followers => ( |