Changeset 1194

Show
Ignore:
Timestamp:
11/06/07 22:40:06 (6 years ago)
Author:
tomyhero
Message:

lang/perl/Net-Twitter-Friend-Finder: Add Net::Twitter::Friend::Finder::FromTwitter?

Location:
lang/perl/Net-Twitter-Friend-Finder/trunk
Files:
1 added
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-Twitter-Friend-Finder/trunk/Changes

    r1189 r1194  
    11Revision history for Net-Twitter-Friend-Finder 
    22 
     30.01_01 2007-11-06/22:33 
     4        - notice for changing interface. 
     5        - add FromTwitter 
    360.01    2007-11-06/17:09 
    47        First version, released on an unsuspecting world. 

  • lang/perl/Net-Twitter-Friend-Finder/trunk/MANIFEST

    r1189 r1194  
    55lib/Net/Twitter/Friend/Finder.pm 
    66lib/Net/Twitter/Friend/Finder/FromGoogle.pm 
     7lib/Net/Twitter/Friend/Finder/FromTwitter.pm 
    78sbin/sample.pl 
    89t/00-load.t 

  • lang/perl/Net-Twitter-Friend-Finder/trunk/lib/Net/Twitter/Friend/Finder.pm

    r1189 r1194  
    66use Net::Twitter; 
    77 
    8 our $VERSION ='0.01'; 
     8our $VERSION ='0.01_01'; 
    99 
    1010__PACKAGE__->mk_accessors(qw/limit ids username password on_echo/); 
    … …  
    5151=head1 DESCRIPTION 
    5252 
     53IMPORTANT! Interface is under development. It will be change future. Planning 
     54to convert plaggable interface.  
     55 
    5356This package is just template so that you should not use this directly , instead use it as base. 
    5457 
    … …  
    7982L<Net::Twitter::Friend::Finder::FromGoogle> 
    8083 
     84L<Net::Twitter::Friend::Finder::FromTwitter> 
     85 
     86sbin/sample.pl 
     87 
    8188=head1 AUTHOR 
    8289 

  • lang/perl/Net-Twitter-Friend-Finder/trunk/lib/Net/Twitter/Friend/Finder/FromGoogle.pm

    r1192 r1194  
    88use URI::Escape; 
    99use Text::SimpleTable ; 
    10 use Net::Twitter; 
    1110 
    12 __PACKAGE__->mk_accessors(qw/lang _count _keyword/); 
     11__PACKAGE__->mk_accessors(qw/lang _score _keyword/); 
    1312 
    1413my $url = "http://www.google.com/search?q=%s+site:.twitter.com&num=%d&start=%d&hl=%s"; 
    … …  
    5453    } 
    5554    $self->{ids} = \@ids; 
    56     $self->{_count} = $data; 
     55    $self->{_score} = $data; 
    5756 
    5857 
    … …  
    7877    my $cnt = 1; 
    7978    for my $id ( @{ $self->{ids} } ) { 
    80         $t3->row( $cnt, $id, $self->{_count}{ $id } ); 
     79        $t3->row( $cnt, $id, $self->{_score}{ $id } ); 
    8180        $cnt++; 
    8281    }