Select Code to Download

POE::Session->create(
    package_states  => [
        main => [ qw(_default _start irc_public irc_join irc_botcmd_sl
+ap irc_botcmd_rot13) ],
    ],
);

irc_botcmd_slap:  'foo!foo@workstation.local.tld' '#foo' 'foo' 'slap' 
+'slap'

#!/usr/bin/perl
use 5.010;
...
    $irc->yield(privmsg => $where, "ACTION slaps $arg where: $where $c
+hannel");
    return;
}

-YourBot/#foo- Commands: lookup, slap
-YourBot/#foo- For more details, use: !help <command>