From a579b7896ddb10c988bfd4c948dc33cad64085c7 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 13 Dec 2015 13:54:16 -0500
Subject: Lotsa changews

---
 lib/IRC/Client/Plugin/Debugger.pm6 |  8 ++++----
 lib/IRC/Client/Plugin/PingPong.pm6 | 12 ++----------
 2 files changed, 6 insertions(+), 14 deletions(-)

(limited to 'lib/IRC/Client/Plugin')

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]") }
-- 
cgit v1.1