diff options
Diffstat (limited to 'lib/IRC/Client/Plugin')
-rw-r--r-- | lib/IRC/Client/Plugin/Debugger.pm6 | 8 | ||||
-rw-r--r-- | lib/IRC/Client/Plugin/PingPong.pm6 | 12 |
2 files changed, 6 insertions, 14 deletions
diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 5966ca0..4c6775c 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<1.002001> is IRC::Client::Plugin; -multi method msg () { True } -multi method msg ($irc, $msg) { +method msg ($irc, $msg) { say Dump $msg, :indent(4); + return irc-not-handled; } diff --git a/lib/IRC/Client/Plugin/PingPong.pm6 b/lib/IRC/Client/Plugin/PingPong.pm6 index 7ba977d..a85dc96 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<1.002001>; +method irc-ping ($irc, $msg) { $irc.ssay("PONG {$irc.nick} $msg<params>[0]") } |