From 3f65d48264430428a2165f6a9f5a4e16f823f6b8 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Thu, 19 May 2016 19:49:39 -0400
Subject: Start new design docs

---
 lib/old-IRC/Client/Plugin/Debugger.pm6 | 8 ++++++++
 lib/old-IRC/Client/Plugin/PingPong.pm6 | 2 ++
 2 files changed, 10 insertions(+)
 create mode 100644 lib/old-IRC/Client/Plugin/Debugger.pm6
 create mode 100644 lib/old-IRC/Client/Plugin/PingPong.pm6

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

diff --git a/lib/old-IRC/Client/Plugin/Debugger.pm6 b/lib/old-IRC/Client/Plugin/Debugger.pm6
new file mode 100644
index 0000000..13b1461
--- /dev/null
+++ b/lib/old-IRC/Client/Plugin/Debugger.pm6
@@ -0,0 +1,8 @@
+use Data::Dump;
+use IRC::Client::Plugin;
+unit class IRC::Client::Plugin::Debugger is IRC::Client::Plugin;
+
+method irc-all-events ($irc, $e) {
+    say Dump $e, :indent(4);
+    return IRC_NOT_HANDLED;
+}
diff --git a/lib/old-IRC/Client/Plugin/PingPong.pm6 b/lib/old-IRC/Client/Plugin/PingPong.pm6
new file mode 100644
index 0000000..2651fd6
--- /dev/null
+++ b/lib/old-IRC/Client/Plugin/PingPong.pm6
@@ -0,0 +1,2 @@
+unit class IRC::Client::Plugin::PingPong;
+method irc-ping ($irc, $e) { $irc.ssay("PONG {$irc.nick} $e<params>[0]") }
-- 
cgit v1.1