examples/bot.pl6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

use lib 'lib';
use IRC::Client;

class MyPlug does IRC::Client::Plugin {
    method irc-privmsg-channel ($msg where .text ~~ /^'say' \s+ $<cmd>=(.+)/ ) {
        $msg.reply: "How about: $<cmd>.uc()";
    }
}

my $irc = IRC::Client.new(
    :nick('IRCBot')
    :debug<2>
    :channels<#perl6 #perl7>
    # :host<irc.freenode.net>
    :port<6667>
    # :servers(
        # mine     => { :port<5667> },

        # inspircd => {             },
        # freenode => { :host<irc.freenode.net> },
    # )
    :plugins(MyPlug.new)
).run;