use strict;
use warnings;
use utf8;

use AnyEvent;
use AnyEvent::Twitter;
use AnyEvent::Twitter::Stream;
use Config::Pit;
use Growl::Any;

my $auth = Config::Pit::get('twitter.koetter');
my $cv = AE::cv;

my @tweets;
my $method = 'filter';
my $name = 'Koetter_dev';

my $growl = Growl::Any->new;
$growl->register('twitter.pl', ['Default']);
$growl->notify('', 'twitter.pl', '起動...');

my $pop = AnyEvent->timer(
	after    => 0,
	interval => 6,
	cb       => sub {
		if(scalar @tweets >= 1) {
			my $tweet = shift @tweets;
			$growl->notify($tweet->{user}->{profile_image_url}, $tweet->{user}->{name}, $tweet->{text}, $tweet->{user}->{profile_image_url});
		}
	},
);

my $stream = AnyEvent::Twitter::Stream->new(
	%$auth,
	method => $method,
	track  => '@' . $name,
	on_tweet => sub {
		my $tweet = shift;
		push @tweets, $tweet;
	},
	on_error => sub {
		my $tweet = shift;
		print "ERROR: $tweet\n";
	},
);

$cv->recv;

__END__