lib/IRC/Client/Plugin/Debugger.pm6


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

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

multi method msg () { True }
multi method msg ($irc, $msg) {
    say Dump $msg, :indent(4);
}

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