diff options
| author | Zoffix Znet <zoffixznet@users.noreply.github.com> | 2015-12-21 09:52:42 -0500 |
|---|---|---|
| committer | Zoffix Znet <zoffixznet@users.noreply.github.com> | 2015-12-21 09:52:42 -0500 |
| commit | 3be97d3be43be4a40737fa21c033763b29361bea (patch) | |
| tree | 5ba5df3fcbeb2f640f2dcc9373f2a730a0f80fdc /lib/IRC/Client/Plugin/PingPong.pm6 | |
| parent | b8035c1c7840ecb3f6ee2fd46560f41589d846aa (diff) | |
| parent | c525790efcc8f1b45c3d236a08da1f8ed122fc9b (diff) | |
Merge pull request #2 from zoffixznet/bleed
Bleed v 2.001001
Diffstat (limited to 'lib/IRC/Client/Plugin/PingPong.pm6')
| -rw-r--r-- | lib/IRC/Client/Plugin/PingPong.pm6 | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/lib/IRC/Client/Plugin/PingPong.pm6 b/lib/IRC/Client/Plugin/PingPong.pm6 index 7ba977d..b499051 100644 --- a/lib/IRC/Client/Plugin/PingPong.pm6 +++ b/lib/IRC/Client/Plugin/PingPong.pm6 @@ -1,10 +1,2 @@ -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); -} +unit class IRC::Client::Plugin::PingPong:ver<2.001001>; +method irc-ping ($irc, $e) { $irc.ssay("PONG {$irc.nick} $e<params>[0]") } |