From c836aa5b84b06f16a72c8d1fcb2ee438e09b14c0 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sun, 20 Dec 2009 16:42:40 +0100 Subject: fix attr name --- lib/Net/Backtweet.pm | 7 ++++--- lib/Net/Backtype.pm | 7 ++++--- 2 files changed, 8 insertions(+), 6 deletions(-) (limited to 'lib') 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 => ( -- cgit 1.4.1