source: lab.git/twitter/nt_bot.pl @ 8ac2029

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Net::Twitter;

my $consumer_key = 'CONSUMER_KEY';
my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
my $access_token = 'ACCESS_TOKEN';
my $access_token_secret = 'ACCESS_TOKEN_SECRET';

my $nt = Net::Twitter->new(
  traits          => ['API::REST', 'OAuth'],
  consumer_key    => $consumer_key,
  consumer_secret => $consumer_key_secret,
);
$nt->access_token($access_token);
$nt->access_token_secret($access_token_secret);

my $res = $nt->update({ status => "test tweet!" });