#!/usr/bin/perl
use strict;
use warnings;

use AnyEvent;
use AnyEvent::Twitter;
use Net::Twitter;

my %config = (
    username => 'twitter username',
    password => 'twitter password',
);

# make remaining_hits 0.
{
    my $twitter = Net::Twitter->new(%config);
    my $rate_limit_status = $twitter->rate_limit_status;
    my $time_for_reset = $rate_limit_status->{reset_time_in_seconds} - time;
    if ($time_for_reset < 200) {
        sleep $time_for_reset;
    }
    for (1 .. $rate_limit_status->{remaining_hits}) {
        $twitter->home_timeline;
        print $twitter->rate_limit_status->{remaining_hits}, "\n";
        sleep 1;
    }
}

# main
{
    local $AnyEvent::Twitter::DEBUG = 1;
    my $twitty = AnyEvent::Twitter->new(%config);
    $twitty->reg_cb(
        error => sub {
            my ($twitty, $error) = @_;
            warn "error: $error\n";
        },
        statuses_friends => sub { },
    );
    $twitty->receive_statuses_friends;
    $twitty->start;

    my $cv = AE::cv;
    my $w = AE::io *STDIN, 0, sub { $cv->send };
    $cv->recv;
}