diff options
Diffstat (limited to 'lib/old-IRC/Client')
-rw-r--r-- | lib/old-IRC/Client/Plugin.pm6 | 3 | ||||
-rw-r--r-- | lib/old-IRC/Client/Plugin/Debugger.pm6 | 8 | ||||
-rw-r--r-- | lib/old-IRC/Client/Plugin/PingPong.pm6 | 2 |
3 files changed, 13 insertions, 0 deletions
diff --git a/lib/old-IRC/Client/Plugin.pm6 b/lib/old-IRC/Client/Plugin.pm6 new file mode 100644 index 0000000..d73d7bd --- /dev/null +++ b/lib/old-IRC/Client/Plugin.pm6 @@ -0,0 +1,3 @@ +constant IRC_HANDLED = "irc plugin handled \x1"; +constant IRC_NOT_HANDLED = "irc plugin not-handled \x2"; +unit class 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]") } |