use
strict;
use
POE;
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'
);
}