eval {
my $page = 0;
- while ($pages - $page && $page <= 160) {
+ while ($pages - $page && $page <= 20) {
$page++;
my $param = ($screen_name)
- ? { page => $page, screen_name => $screen_name, }
- : { page => $page, }
+ ? { page => $page, screen_name => $screen_name, count => 200, }
+ : { page => $page, count => 200, }
;
my $res;
my $bot = Net::Twitter::Lite->new(
consumer_key => $conf->{consumer_key},
consumer_secret => $conf->{consumer_secret},
+ legacy_lists_api => 0,
);
$bot->access_token($conf->{access_token});