#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use Coro;
use AnyEvent;
use YAML::Any;
use Net::Twitter;
use namespace::autoclean;
use Data::Visitor::Callback;
use AnyEvent::Twitter::Stream;
use DateTime::Format::Strptime;
use LWP::Protocol::AnyEvent::http;

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',
);