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 | |
parent | b8035c1c7840ecb3f6ee2fd46560f41589d846aa (diff) | |
parent | c525790efcc8f1b45c3d236a08da1f8ed122fc9b (diff) |
Merge pull request #2 from zoffixznet/bleed
Bleed v 2.001001
Diffstat (limited to 'lib/IRC/Client/Plugin')
-rw-r--r-- | lib/IRC/Client/Plugin/Debugger.pm6 | 10 | ||||
-rw-r--r-- | lib/IRC/Client/Plugin/PingPong.pm6 | 12 |
2 files changed, 7 insertions, 15 deletions
diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 5966ca0..c959cc2 100644 --- a/lib/IRC/Client/Plugin/Debugger.pm6 +++ b/lib/IRC/Client/Plugin/Debugger.pm6 @@ -1,8 +1,8 @@ -use v6; use Data::Dump; -unit class IRC::Client::Plugin::Debugger:ver<1.001001>; +use IRC::Client::Plugin; +unit class IRC::Client::Plugin::Debugger:ver<2.001001> is IRC::Client::Plugin; -multi method msg () { True } -multi method msg ($irc, $msg) { - say Dump $msg, :indent(4); +method irc-all-events ($irc, $e) { + say Dump $e, :indent(4); + return IRC_NOT_HANDLED; } 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]") } |