講読してくれたユーザを自動で講読

先日 WWW::Wassr で書きましたが、follow周りのAPI追加されたので、これも Net::Wassr でいけます。

use strict;
use warnings;
use Net::Wassr;
use List::MoreUtils qw(uniq all);

my @ignore_list = qw();
my $wassr = Net::Wassr->new(
    user   => 'LOGIN_ID',
    passwd => 'PASSWORD'
);
my @friends = map{$_->{screen_name}} @{$wassr->friend_list()};
my @follower = map{$_->{login_id}} @{$wassr->followers_list()};
push @ignore_list,@friends;
for my $user (uniq(@follower)){
    if( all{ $user ne $_ } @ignore_list){
        #warn "I follow $user";
        $wassr->follow($user);
    }
}