Prerelease

4 files changed, 14 insertions, 39 deletions

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);
+}