The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings FATAL => 'all';
use lib 't/inc';
use POE;
use POE::Component::Server::IRC;
use Test::More tests => 2;

my $ircd = POE::Component::Server::IRC->spawn(auth => 0);
isa_ok($ircd, 'POE::Component::Server::IRC');

POE::Session->create(
    package_states => [
        main => [ qw(_start) ]
    ],
);

$poe_kernel->run();

sub _start {
    my ($kernel) = $_[KERNEL];
    pass('Session started');
    $ircd->yield('shutdown');
}