lib/IRC/Client/Plugin/PingPong.pm6


1
2
3
4
5
6
7
8
9
10

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

multi method msg () { True }
multi method msg ($irc, $msg) {
    return unless $msg<command> eq 'PING';
    my $res = "PONG {$irc.nick} $msg<params>[0]";
    $irc.debug and say $res;
    $irc.ssay($res);
}