diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-12-20 16:42:40 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-12-20 16:42:40 +0100 |
| commit | c836aa5b84b06f16a72c8d1fcb2ee438e09b14c0 (patch) | |
| tree | 81a1effdb6b7b6bb5b1650ae5089d39f446f09f2 | |
| parent | update api_base_url attribute name (diff) | |
| download | net-backtype-c836aa5b84b06f16a72c8d1fcb2ee438e09b14c0.tar.gz | |
fix attr name
| -rw-r--r-- | lib/Net/Backtweet.pm | 7 | ||||
| -rw-r--r-- | lib/Net/Backtype.pm | 7 | ||||
| -rw-r--r-- | t/01_basic.t | 1 |
3 files changed, 8 insertions, 7 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 => ( diff --git a/t/01_basic.t b/t/01_basic.t index 9e0c120..2b6fda2 100644 --- a/t/01_basic.t +++ b/t/01_basic.t @@ -3,7 +3,6 @@ use warnings; use Test::More; use Net::Backtype; use Net::Backtweet; -use YAML::Syck; BEGIN { plan skip_all => 'set $ENV{BACKTYPE_KEY} for this test' |