20 lines
475 B
Perl
20 lines
475 B
Perl
use Net::Twitter::Lite;
|
|
|
|
my $user = '@etafni';
|
|
my $password = '+t.iVBl4cN*!YL.4wx!';
|
|
|
|
my $nt = Net::Twitter::Lite->new(
|
|
username => $user,
|
|
password => $password,
|
|
legacy_lists_api => 1,
|
|
);
|
|
|
|
my $result = eval { $nt->update('Hello, world!') };
|
|
|
|
eval {
|
|
my $statuses = $nt->friends_timeline({ count => 100 });
|
|
for my $status ( @$statuses ) {
|
|
print "$status->{created_at} <$status->{user}{screen_name}> $status->{text}\n";
|
|
}
|
|
};
|
|
warn "$@\n" if $@; |