lib/IRC/Client/Plugin/Debugger.pm6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use v6;
use IRC::Client;
use IRC::Client::Plugin;
unit class IRC::Client::Plugin::Debugger:ver<1.001001> does IRC::Client::Plugin;

multi method msg () { True }
multi method msg ($irc, $msg) {
    $msg.say;
}

multi method interval (                ) {  6  }
multi method interval (IRC::Client $irc) {
    $irc.privmsg(
        $irc.channels[0], "5 seconds passed. Time is now " ~ now
    );
}