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

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