POE::Component::IRC::Test::Harness3pm

 use POE;
 use POE::Component::IRC::Test::Harness;
 my $pocosi = POE::Component::IRC::Test::Harness->spawn( Alias => 'ircd' );
 POE::Session->create (
     inline_states => { _start => \&test_start,
                        _stop  => \&test_stop,
     },
     heap => { Obj  => $pocosi },
 );
 $poe_kernel->run();
 sub test_start {
     my ($kernel, $heap) = @_[KERNEL, HEAP];
     $kernel->post ( 'ircd' => 'register' );
     $kernel->post ( 'ircd' => 'add_i_line' => { IPMask => '*', Port => 6667 } );
     $kernel->post ( 'ircd' => 'add_operator' => { UserName => 'Flibble', Password => 'letmein' } );
     $kernel->post ( 'ircd' => 'add_listener' => { Port => 6667 } );
     $kernel->post ( 'ircd' => 'set_motd' => [ 'This is an experimental server', 'Testing POE::Component::Server::IRC', 'Enjoy!' ] );
 }
 sub test_stop {
     print "Server stopped\n";
 }