From a579b7896ddb10c988bfd4c948dc33cad64085c7 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Sun, 13 Dec 2015 13:54:16 -0500 Subject: Lotsa changews --- lib/IRC/Client/Plugin.pm6 | 5 +++++ lib/IRC/Client/Plugin/Debugger.pm6 | 8 ++++---- lib/IRC/Client/Plugin/PingPong.pm6 | 12 ++---------- 3 files changed, 11 insertions(+), 14 deletions(-) create mode 100644 lib/IRC/Client/Plugin.pm6 (limited to 'lib/IRC/Client') diff --git a/lib/IRC/Client/Plugin.pm6 b/lib/IRC/Client/Plugin.pm6 new file mode 100644 index 0000000..deaef50 --- /dev/null +++ b/lib/IRC/Client/Plugin.pm6 @@ -0,0 +1,5 @@ +constant irc-handled = "irc plugin handled \x1"; +constant irc-not-handled = "irc plugin not-handled \x2"; +unit class IRC::Client::Plugin:ver<1.002002>; +has $.irc; + 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 eq 'PING'; - my $res = "PONG {$irc.nick} $msg[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[0]") } -- cgit v1.1 From 22e34475c8fe5d6957525962adb4f65d910e46d0 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Sun, 13 Dec 2015 14:14:10 -0500 Subject: Rename constants to all-caps --- lib/IRC/Client/Plugin.pm6 | 4 ++-- lib/IRC/Client/Plugin/Debugger.pm6 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/IRC/Client') diff --git a/lib/IRC/Client/Plugin.pm6 b/lib/IRC/Client/Plugin.pm6 index deaef50..eda7a0a 100644 --- a/lib/IRC/Client/Plugin.pm6 +++ b/lib/IRC/Client/Plugin.pm6 @@ -1,5 +1,5 @@ -constant irc-handled = "irc plugin handled \x1"; -constant irc-not-handled = "irc plugin not-handled \x2"; +constant IRC_HANDLED = "irc plugin handled \x1"; +constant IRC_NOT_HANDLED = "irc plugin not-handled \x2"; unit class IRC::Client::Plugin:ver<1.002002>; has $.irc; diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 4c6775c..4ded968 100644 --- a/lib/IRC/Client/Plugin/Debugger.pm6 +++ b/lib/IRC/Client/Plugin/Debugger.pm6 @@ -4,5 +4,5 @@ unit class IRC::Client::Plugin::Debugger:ver<1.002001> is IRC::Client::Plugin; method msg ($irc, $msg) { say Dump $msg, :indent(4); - return irc-not-handled; + return IRC_NOT_HANDLED; } -- cgit v1.1 From 05647bd1f2312cc756f71152252a6349e86f43c5 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Sun, 13 Dec 2015 19:14:23 -0500 Subject: update docs --- lib/IRC/Client/Plugin.pm6 | 1 - lib/IRC/Client/Plugin/Debugger.pm6 | 4 ++-- lib/IRC/Client/Plugin/PingPong.pm6 | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) (limited to 'lib/IRC/Client') diff --git a/lib/IRC/Client/Plugin.pm6 b/lib/IRC/Client/Plugin.pm6 index eda7a0a..55db82c 100644 --- a/lib/IRC/Client/Plugin.pm6 +++ b/lib/IRC/Client/Plugin.pm6 @@ -1,5 +1,4 @@ constant IRC_HANDLED = "irc plugin handled \x1"; constant IRC_NOT_HANDLED = "irc plugin not-handled \x2"; unit class IRC::Client::Plugin:ver<1.002002>; -has $.irc; diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 4ded968..17cf697 100644 --- a/lib/IRC/Client/Plugin/Debugger.pm6 +++ b/lib/IRC/Client/Plugin/Debugger.pm6 @@ -2,7 +2,7 @@ use Data::Dump; use IRC::Client::Plugin; unit class IRC::Client::Plugin::Debugger:ver<1.002001> is IRC::Client::Plugin; -method msg ($irc, $msg) { - say Dump $msg, :indent(4); +method all-events ($irc, $e) { + say Dump $e, :indent(4); return IRC_NOT_HANDLED; } diff --git a/lib/IRC/Client/Plugin/PingPong.pm6 b/lib/IRC/Client/Plugin/PingPong.pm6 index a85dc96..d6b8f28 100644 --- a/lib/IRC/Client/Plugin/PingPong.pm6 +++ b/lib/IRC/Client/Plugin/PingPong.pm6 @@ -1,2 +1,2 @@ unit class IRC::Client::Plugin::PingPong:ver<1.002001>; -method irc-ping ($irc, $msg) { $irc.ssay("PONG {$irc.nick} $msg[0]") } +method irc-ping ($irc, $e) { $irc.ssay("PONG {$irc.nick} $e[0]") } -- cgit v1.1 From c97eb34b64788602713fcc77d3c18ab17b629318 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Mon, 21 Dec 2015 09:10:03 -0500 Subject: Some docs --- lib/IRC/Client/Plugin/Debugger.pm6 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/IRC/Client') diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 17cf697..131bb35 100644 --- a/lib/IRC/Client/Plugin/Debugger.pm6 +++ b/lib/IRC/Client/Plugin/Debugger.pm6 @@ -2,7 +2,7 @@ use Data::Dump; use IRC::Client::Plugin; unit class IRC::Client::Plugin::Debugger:ver<1.002001> is IRC::Client::Plugin; -method all-events ($irc, $e) { +method irc-all-events ($irc, $e) { say Dump $e, :indent(4); return IRC_NOT_HANDLED; } -- cgit v1.1 From c525790efcc8f1b45c3d236a08da1f8ed122fc9b Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Mon, 21 Dec 2015 09:56:38 -0500 Subject: Bump versions --- lib/IRC/Client/Plugin.pm6 | 3 +-- lib/IRC/Client/Plugin/Debugger.pm6 | 2 +- lib/IRC/Client/Plugin/PingPong.pm6 | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) (limited to 'lib/IRC/Client') diff --git a/lib/IRC/Client/Plugin.pm6 b/lib/IRC/Client/Plugin.pm6 index 55db82c..83703d7 100644 --- a/lib/IRC/Client/Plugin.pm6 +++ b/lib/IRC/Client/Plugin.pm6 @@ -1,4 +1,3 @@ constant IRC_HANDLED = "irc plugin handled \x1"; constant IRC_NOT_HANDLED = "irc plugin not-handled \x2"; -unit class IRC::Client::Plugin:ver<1.002002>; - +unit class IRC::Client::Plugin:ver<2.001001>; diff --git a/lib/IRC/Client/Plugin/Debugger.pm6 b/lib/IRC/Client/Plugin/Debugger.pm6 index 131bb35..c959cc2 100644 --- a/lib/IRC/Client/Plugin/Debugger.pm6 +++ b/lib/IRC/Client/Plugin/Debugger.pm6 @@ -1,6 +1,6 @@ use Data::Dump; use IRC::Client::Plugin; -unit class IRC::Client::Plugin::Debugger:ver<1.002001> is IRC::Client::Plugin; +unit class IRC::Client::Plugin::Debugger:ver<2.001001> is IRC::Client::Plugin; method irc-all-events ($irc, $e) { say Dump $e, :indent(4); diff --git a/lib/IRC/Client/Plugin/PingPong.pm6 b/lib/IRC/Client/Plugin/PingPong.pm6 index d6b8f28..b499051 100644 --- a/lib/IRC/Client/Plugin/PingPong.pm6 +++ b/lib/IRC/Client/Plugin/PingPong.pm6 @@ -1,2 +1,2 @@ -unit class IRC::Client::Plugin::PingPong:ver<1.002001>; +unit class IRC::Client::Plugin::PingPong:ver<2.001001>; method irc-ping ($irc, $e) { $irc.ssay("PONG {$irc.nick} $e[0]") } -- cgit v1.1