Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

use strict;
use warnings FATAL => 'all';
use POE;
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');
}