blob: 20a228363f484a7046ab4140765ce2909c2b585e (
plain)
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
);
}
|