Changeset 1235 for lang/perl/Net-Twitter-FriendFinder/trunk/lib/Net/Twitter/FriendFinder.pm

Timestamp:

11/08/07 16:38:12 (6 years ago)

Author:

tomyhero

Message:

lang/perl/Net-Twitter-FriendFinder?: add Net::Twitter::FriendFinder::From::TwitterKensaku?

Files:

• lang/perl/Net-Twitter-FriendFinder/trunk/lib/Net/Twitter/FriendFinder.pm (modified) (2 diffs)

lang/perl/Net-Twitter-FriendFinder/trunk/lib/Net/Twitter/FriendFinder.pm

@@ -23 +23 @@
         my $req = $self->{ua}->get($url);
         my $res = JSON::Any->jsonToObj($req->content) ;
-
+        
+        die $res->{error} if "You must wait!:" . $res->{error} ;
         last unless scalar @{ $res } ;
 
@@ -43 +44 @@
     my $default = {};
     $default->{coverage}    = $self->{default}{coverage} || 1;
+
+     $self->{filters} = [];
 
     my @resources = keys %{ $self->{from} };