aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changes8
-rw-r--r--lib/IRC/Client.pm62
-rw-r--r--lib/IRC/Client/Plugin.pm63
-rw-r--r--lib/IRC/Client/Plugin/Debugger.pm62
-rw-r--r--lib/IRC/Client/Plugin/PingPong.pm62
-rw-r--r--lib/IRC/Grammar.pm62
-rw-r--r--lib/IRC/Grammar/Actions.pm62
-rw-r--r--lib/IRC/Parser.pm62
8 files changed, 11 insertions, 12 deletions
diff --git a/Changes b/Changes
index e04841e..0ac6bda 100644
--- a/Changes
+++ b/Changes
@@ -1,12 +1,12 @@
Revision History for 'IRC::Client' Perl 6 Distribution
-1.002001 Unreleased
+2.001001 2015-12-21
[Redesign plugin system]
- each IRC command can now be implemented with a specific method of
- name 'irc_COMMAND'
+ name 'irc-command'
- Added individual privmsg-me and notice-me methods
- - Removed `interval` plugin methods.
- - Added `register` plugin method that is called during client start up
+ - Removed `interval` and `msg` plugin methods.
+ - Added `irc-start-up` and `irc-connected` plugin methods
[Other]
- Improved debug output
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 59efa97..65f80e7 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -2,7 +2,7 @@ use v6;
use IRC::Parser; # parse-irc
use IRC::Client::Plugin::PingPong;
use IRC::Client::Plugin;
-class IRC::Client:ver<1.002001> {
+class IRC::Client:ver<2.001001> {
has Bool:D $.debug = False;
has Str:D $.host = 'localhost';
has Int:D $.port where 0 <= $_ <= 65535 = 6667;
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<params>[0]") }
diff --git a/lib/IRC/Grammar.pm6 b/lib/IRC/Grammar.pm6
index d26a3dc..241c497 100644
--- a/lib/IRC/Grammar.pm6
+++ b/lib/IRC/Grammar.pm6
@@ -1,4 +1,4 @@
-unit grammar IRC::Grammar:ver<1.001001>;
+unit grammar IRC::Grammar:ver<2.001001>;
token TOP { <message>+ }
token SPACE { ' '+ }
token message { [':' <prefix> <SPACE> ]? <command> <params> \n }
diff --git a/lib/IRC/Grammar/Actions.pm6 b/lib/IRC/Grammar/Actions.pm6
index 74a8f11..469f8f8 100644
--- a/lib/IRC/Grammar/Actions.pm6
+++ b/lib/IRC/Grammar/Actions.pm6
@@ -1,4 +1,4 @@
-unit class IRC::Grammar::Actions:ver<1.001001>;
+unit class IRC::Grammar::Actions:ver<2.001001>;
method TOP ($/) { $/.make: $<message>>>.made }
method message ($/) {
my $pref = $/<prefix>;
diff --git a/lib/IRC/Parser.pm6 b/lib/IRC/Parser.pm6
index aa87fa7..77de768 100644
--- a/lib/IRC/Parser.pm6
+++ b/lib/IRC/Parser.pm6
@@ -1,6 +1,6 @@
use IRC::Grammar;
use IRC::Grammar::Actions;
-unit class IRC::Parser:ver<1.001001>;
+unit class IRC::Parser:ver<2.001001>;
sub parse-irc (Str:D $input) is export {
IRC::Grammar.parse($input, actions => IRC::Grammar::Actions).made // [];