Help for this page

Select Code to Download

Select or download this

use POE qw(Component::Server::TCP Component::IRC);

...
sub client_input {
  print "Starting bot in session: ", $_[SESSION]->ID(), "\n";
}

Select or download this

use POE qw(Component::Server::TCP Component::IRC);

...
sub client_input {
  $_[KERNEL]->post(mine => 'create_bot');
}