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 POE;
use POE::Component::IRC::Qnet::State;
use Test::More tests => 1;

my $bot = POE::Component::IRC::Qnet::State->spawn();
isa_ok($bot, 'POE::Component::IRC::Qnet::State');
$bot->yield('shutdown');

$poe_kernel->run();

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

sub _start {
    $bot->yield('shutdown');
}