use strict; use warnings; use utf8; use namespace::autoclean; use Coro; use AnyEvent; use LWP::Protocol::AnyEvent::http; use Net::Twitter; use AnyEvent::Twitter::Stream; use YAML::Any; use DateTime::Format::Strptime; use Data::Visitor::Callback; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); use Moose; has 'twitter' => (is => 'rw', required => 1, isa => 'Net::Twitter'); has 'listener' => (is => 'rw', required => 1, isa => 'AnyEvent::Twitter::Stream'); has 'mongo' => (is => 'rw', required => 0, isa => 'MongoDB::Database');