p6.p6

#!/usr/bin/env perl6
use IRC::Client;
my $bot_username = 'sqttestbot';
my $username = 'sqttestbot';
my @channels = <##sqt-test>;

class said2 does IRC::Client::Plugin {
    has Proc::Async $!proc;
    method irc-started {
        given Proc::Async.new: 'perl', 'said.in.pl' {
            .stdout.tap: -> $line {
                $.irc.send: :where($_) :text($line) for @channels
                    if $line ~~ s/^\%//;
            }
            await .start;
            $!proc = $_;
        }
    }
    method irc-privmsg-channel ($e) {
        $!proc.write: "$e.channel() >$bot_username\< \<$e.nick()> $e.text()\n";
        Nil;
    }
}


.run with IRC::Client.new:
    :nick<sqttestbot>
    :host<irc.freenode.net>
    :@channels
    :debug
    :plugins(said2);