#!/usr/bin/env perl
use feature ':5.10';
use Net::Twitter::Stream;


my $user = 'user';
my $pass = 'pass';

say 'running twitter stream';
say 'user:' . $user;

# Create "track" connection with a list of keywords.
Net::Twitter::Stream::Track->new(
    $user,
    $pass,
    'vim,perl,ruby',  # keyword filter
    \&got_tweet_callback    # callback function
);

say 'event looping..';
Danga::Socket->EventLoop;

sub got_tweet_callback {
    my $tweet = shift;
    say "By: $tweet->{user}{screen_name} : " . $tweet->{text};
}