From d2da9fcd250533bee5df17bd182648a8cea0d7b0 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 6 Dec 2015 18:07:19 -0500
Subject: Prerelease

---
 lib/IRC/Client/Plugin.pm6          |  8 --------
 lib/IRC/Client/Plugin/Debugger.pm6 |  9 ++++-----
 lib/IRC/Client/Plugin/HNY.pm6      | 26 --------------------------
 lib/IRC/Client/Plugin/PingPong.pm6 | 10 ++++++++++
 4 files changed, 14 insertions(+), 39 deletions(-)
 delete mode 100644 lib/IRC/Client/Plugin.pm6
 delete mode 100644 lib/IRC/Client/Plugin/HNY.pm6
 create mode 100644 lib/IRC/Client/Plugin/PingPong.pm6

(limited to 'lib/IRC/Client')

diff --git a/lib/IRC/Client/Plugin.pm6 b/lib/IRC/Client/Plugin.pm6
deleted file mode 100644
index 724447e..0000000
--- a/lib/IRC/Client/Plugin.pm6
+++ /dev/null
@@ -1,8 +0,0 @@
-use v6;
-use IRC::Client;
-unit role IRC::Client::Plugin:ver<1.001001>;
-
-multi method inverval (           ) {    0    }
-multi method inverval (IRC::Client) {   ...   }
-multi method msg      (           ) {  False  }
-multi method msg      (IRC::Client) {   ...   }
diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6
index 20a2283..dabb353 100644
--- a/lib/IRC/Client/Plugin/Debugger.pm6
+++ b/lib/IRC/Client/Plugin/Debugger.pm6
@@ -1,15 +1,14 @@
 use v6;
-use IRC::Client;
-use IRC::Client::Plugin;
-unit class IRC::Client::Plugin::Debugger:ver<1.001001> does IRC::Client::Plugin;
+use Data::Dump;
+unit class IRC::Client::Plugin::Debugger:ver<1.001001>;
 
 multi method msg () { True }
 multi method msg ($irc, $msg) {
-    $msg.say;
+    say Dump $msg, :indent(4);
 }
 
 multi method interval (                ) {  6  }
-multi method interval (IRC::Client $irc) {
+multi method interval ($irc) {
     $irc.privmsg(
         $irc.channels[0], "5 seconds passed. Time is now " ~ now
     );
diff --git a/lib/IRC/Client/Plugin/HNY.pm6 b/lib/IRC/Client/Plugin/HNY.pm6
deleted file mode 100644
index ce7154d..0000000
--- a/lib/IRC/Client/Plugin/HNY.pm6
+++ /dev/null
@@ -1,26 +0,0 @@
-use v6;
-use JSON::Tiny;
-use IRC::Client;
-use IRC::Client::Plugin;
-
-unit class IRC::Client::Plugin::HNY:ver<1.001001> does IRC::Client::Plugin;
-
-
-get_UTC_offsets();
-
-multi method interval (                ) {  6  }
-multi method interval (IRC::Client $irc) {
-    $irc.privmsg(
-        $irc.channels[0], "5 seconds passed. Time is now " ~ now
-    );
-}
-
-
-
-sub get_UTC_offsets {
-    my $times = from-json 'tzs.json'.IO.slurp;
-
-    for $times -> $zone {
-        say "Offset is $zone<offset>";
-    }
-}
diff --git a/lib/IRC/Client/Plugin/PingPong.pm6 b/lib/IRC/Client/Plugin/PingPong.pm6
new file mode 100644
index 0000000..7ba977d
--- /dev/null
+++ b/lib/IRC/Client/Plugin/PingPong.pm6
@@ -0,0 +1,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);
+}
-- 
cgit v1.1