use v6;

use Net::IRC::Bot;
use MuEvent;

my $nick = 'cjsix';


#MuEvent::timer(
   #after => 5,
   #interval => 60,
   #cb       => sub { say "eek" }
#);
   
class Help {
    multi method said($e where { $e.what ~~ /^ $nick ':' <.ws> [ '?' | 'help' | 'h'] /}) {
        $e.msg: "Perl 6 do nothing bot.";
    }
}

Net::IRC::Bot.new(
    :$nick,
    server   => 'irc.freenode.net',
    channels => <#bottest>,
    modules  => [ Help.new ],
).run;