Changeset 1738 for lang/perl/Net-Twitter-FriendFinder/tags/0.03/lib/Net/Twitter/FriendFinder.pm

Timestamp:

11/18/07 07:51:04 (6 years ago)

Author:

xcezx

Message:

ごめんなさいごめんなさいごめんなさいごめんなさい

Files:

• lang/perl/Net-Twitter-FriendFinder/tags/0.03/lib/Net/Twitter/FriendFinder.pm (modified) (9 diffs)

lang/perl/Net-Twitter-FriendFinder/tags/0.03/lib/Net/Twitter/FriendFinder.pm

@@ -5 +5 @@
 use UNIVERSAL::require;
 use base qw/Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/default from setting ids scores resources filters)/);
+__PACKAGE__->mk_accessors(qw/default from setting ids scores resources filters mask/);
 use Text::SimpleTable;
-use Net::Twitter;
-
-our $VERSION = '0.01_06';
-
-# Net::Twitter HACK. I know this is not good way to do this.
-# REASON: Net::Twitter->following only allow to retrive 100 limit.
-sub Net::Twitter::following_screen_names_ref {
-    my ( $self ) = @_;
-
-    my @screen_names = ();
-    # limit 20 pages for now.( 2000 twitters )
-    my @pages = (1..20);
-    for my $page ( @pages ) {
-        my $url = $self->{apiurl} . "/statuses/friends.json?page=$page" ;
-        my $req = $self->{ua}->get($url);
-
-        die 'fail to connect to twitter. maybe over Rate limit exceeded' unless $req->is_success;
-        my $res = JSON::Any->jsonToObj($req->content) ;
-        
-        last unless scalar @{ $res } ;
-
-        for my $item ( @{ $res } ) {
-            push @screen_names , $item->{screen_name};
-        }
-    }
-
-    return \@screen_names;
-    
-}
+use Net::Twitter::Diff;
+
+our $VERSION = '0.03';
+
 
 sub search {
     my $self = shift;
-    my $keyword = shift || 'twitter';
+    my $keyword = shift;
 
     $self->{keyword} = $keyword;
@@ -68 +43 @@
 
     if( $self->{setting}{filter_already_followers} ) {
-        my $twitter = Net::Twitter->new( username=> $self->{setting}{username} , password => $self->{setting}{password} );
-        my $screen_names = $twitter->following_screen_names_ref();
+        my $twitter = Net::Twitter::Diff->new( username=> $self->{setting}{username} , password => $self->{setting}{password} );
+        my $xfollowing = $twitter->xfollowing;
+    
         my @filters = ();
 
-        for my $screen_name ( @{ $screen_names } ) {
+        for my $item ( @{ $xfollowing } ) {
+            my $screen_name = $item->{screen_name} ;
             if( defined $data->{ $screen_name } ) {
                 push @filters , { id => $screen_name , score =>  $data->{ $screen_name } };
@@ -80 +57 @@
         $self->{filters} = \@filters;
 
+    }
+    if( defined $self->{setting}{username} ) {
+        delete $data->{  $self->{setting}{username} } if defined  $data->{  $self->{setting}{username} };
+    }
+    for my $screen_name ( @{ $self->{mask} } ) {
+        delete $data->{ $screen_name } if defined $data->{ $screen_name };
     }
 
@@ -162 +145 @@
 =head1 DESCRIPTION
 
-Hello. I started twitter but I did not have much friends,  since I am shay, so that I created this
+Hello. I started twitter but I did not have much friends.  Since I am shay, so that I created this
 module.
 
-You can find twitter friends by using keyword search, of course you can follow friends whith this module.
-
-INTERFACE MAY CHANGE IN THE FUTURE. STILL UNDER DEVELOPMENT.
+You can find twitter friends by using keyword search and then you can follow friends with this module.
 
 =head1 SYNOPSYS
@@ -194 +175 @@
       });
 
+    # mask who you do not want to find.
+    $tf->mask([qw/xxx yyy zzz/]);
     $tf->search( $keyword );
     $tf->show();
     $tf->follow();
 
+    #print Dumepr $twf->ids();
+    #print Dumepr $twf->filters();
+
+
 =head1 MODULE
 
@@ -204 +191 @@
 You should set configulation here.
 
-** setting
-
-
-limit - you can set limit for how many friends you want to find for max. 
-
-on_echo - when on_echo = 1 then , $tf->follow() method print out who you are going to follow.
-
-username - twitter username
-
-password - twitter password
-
-sleep - since Twitter API has request count limitation, you may want to set sleep time when you try to follow a lot of people.
+=over 2 
+
+=item B<setting>
+
+=back
+
+=over 4
+
+=item ->{limit}
+
+you can set limit for how many friends you want to find for max. 
+
+=item ->{on_echo}
+
+when on_echo = 1 then , $tf->follow() method print out who you are going to follow.
+
+=item ->{username}
+
+twitter username
+
+=item ->{password}
+
+twitter password
+
+=item ->{sleep}
+
+since Twitter API has request count limitation, you may want to set sleep time when you try to follow a lot of people.
 
 filter_already_followers - when true, it will check your current followers and not try to follow again. required username and password for this. NOTICE: you may miss some friends to filter who add recently because Twitter API does not return them.
 
-** default
+=back
+
+=over 2
+
+=item B<default>
 
 you can set default setting here. 
 
-coverage - you can set how much you cover. It depend on where you get resource from , so check the resource POD.
-
-** from
+=back
+
+=over 4
+
+
+=item ->{coverage}
+
+you can set how much you cover. It depend on where you get resource from , so check the resource POD.
+
+=back
+
+=over 2
+
+=item B<from>
 
 You can set where to search friends from. you can find resource from Net::Twitter::FriendFinder::From::*
@@ -241 +258 @@
  },
 
+=back
+
 =head2 search
 
- this seach method try to search your friends. 
+this seach method try to search your friends. 
 
 =head2 show
@@ -254 +273 @@
 should check who you are going t follow with show() method.
 
- =head1 HOW TO MAKE YOUR OWN RESOURCE
-
- this is just simple one.
+=head1 HOW TO MAKE YOUR OWN RESOURCE
+
+this is just simple one.
 
     package My::Recomend::User;
@@ -286 +305 @@
     $tw->follow();
 
+=head2 mask
+
+you can set screen_names in array ref who you want to avoid search.
+
+ $twf->mask([qw/xxx yyy zzz/]);
+
+=head2 ids
+
+get screen_names
+
+=head2 filters
+
+get filterd screen_names 
+
 =head1 SEE ALSO
 
-L:<Net::Twitter>
-
-L:<Net::Twitter::FriendFinder::From::Google>
-
-L:<Net::Twitter::FriendFinder::From::Twitter>
-
-L:<Net::Twitter::FriendFinder::From::TwitterKensaku>
-
-L:<Net::Twitter::FriendFinder::From::TwitterDiff>
-
-L:<Net::Twitter::FriendFinder::From::URL>
+L<Net::Twitter>
+
+L<Net::Twitter::From>
+
+L<Net::Twitter::FriendFinder::From::Google>
+
+L<Net::Twitter::FriendFinder::From::Twitter>
+
+L<Net::Twitter::FriendFinder::From::TwitterKensaku>
+
+L<Net::Twitter::FriendFinder::From::TwitterDiff>
+
+L<Net::Twitter::FriendFinder::From::URL>
 
 =head1 AUTHOR