| Subject: | Net::Twitter::Diff xfollowing bug |
Show quoted text
>perl following.pl --username=***** --password=******
Retrieving those you follow, and those that follow you for user ***
required arg 'id' missing at ...lib/Net/Twitter/Diff.pm line 20
# this should fix it, diff to see your problem
sub xfollowing {
my $self = shift;
my $id = shift;
my $cursor = -1;
my @data = ();
my $hash = { cursor => $cursor };
$hash->{id} = $id if $id;
while(1){
my $res = $self->following($hash);
push @data , @{ $res->{users} };
$cursor = $res->{next_cursor};
last if $cursor == 0;
}
return \@data;
}