Select Code to Download

#!/usr/bin/perl
 
use warnings;
...
sub test_stop {
    print "Server stopped\n";
}

POE::Session->create (
    inline_states => {
        _start => \&test_start,
...
#   package_states => [ 'POE::Component::Server::IRC' => { ircd_client
+_privmsg => 'hue_privmsg_handler' },], ## 3
    heap => { Obj  => $pocosi },
);

$kernel->post ( 'ircd', 'ircd_client_privmsg', 'test1');
$kernel->delay ( 'ircd_client_privmsg', 2, 'test2');

my $pocosi_ircd_client_message = \&POE::Component::Server::IRC::ircd_c
+lient_message;
sub POE::Component::Server::IRC::ircd_client_message {
    print "got in!\n";
#   $pocosi_ircd_client_message->(@_);
}