vent::Twitter;
use AnyEvent::Twitter::Stream;
use HTML::Entities;
use Regexp::Common qw/URI/;
use JSON::MaybeXS;
with 'MooseX::Log::Log4perl';
=head1 NAME
POE::Component::Server::Twirc - Twitter/IR
twitter_rest_api_request => 'request',
},
);
sub to_json { JSON::MaybeXS->new->encode($_[1]) }
sub to_pretty_json { JSON::MaybeXS->new->pretty>encode($_[1]) }
# force build of users by
keepalive");
},
on_friends => sub {
TRACE("on_friends: ", $self->to_json(@_));
$self->yield(friends_ids => shift);
},
on_event => sub {