DARK_GREEN ORANGE TEAL BROWN);
use POE::Component::IRC::Plugin qw(PCI_EAT_NONE);
use POE::Filter::JSON;
use POE::Wheel::ReadWrite;
use POE::Wheel::SocketFactory;
sub new {
my ($package, %args) =
} = POE::Wheel::ReadWrite->new(
Handle => $socket,
Filter => POE::Filter::JSON->new(),
InputEvent => 'eval_read',
ErrorEvent => 'eval_error',
);
$eval-