File tree Expand file tree Collapse file tree 8 files changed +8
-8
lines changed Expand file tree Collapse file tree 8 files changed +8
-8
lines changed Original file line number Diff line number Diff line change 1
1
{
2
2
"perl" : "6.c",
3
3
"name" : "IRC::Client",
4
- "version" : "2.001002 ",
4
+ "version" : "2.003001 ",
5
5
"description" : "Extendable Internet Relay Chat client",
6
6
"depends" : [ "Data::Dump" ],
7
7
"test-depends" : [ "Test" ],
Original file line number Diff line number Diff line change 2
2
use IRC::Parser; # parse-irc
3
3
use IRC::Client::Plugin::PingPong;
4
4
use IRC::Client::Plugin;
5
- unit class IRC::Client : ver<2.002001 >;
5
+ unit class IRC::Client : ver<2.003001 >;
6
6
7
7
has Bool : D $ . debug = False ;
8
8
has Str : D $ . host = ' localhost' ;
Original file line number Diff line number Diff line change 1
1
constant IRC_HANDLED = " irc plugin handled \x1" ;
2
2
constant IRC_NOT_HANDLED = " irc plugin not-handled \x2" ;
3
- unit class IRC::Client::Plugin : ver<2.002001 >;
3
+ unit class IRC::Client::Plugin : ver<2.003001 >;
Original file line number Diff line number Diff line change 1
1
use Data::Dump;
2
2
use IRC::Client::Plugin;
3
- unit class IRC::Client::Plugin::Debugger : ver<2.002001 > is IRC::Client::Plugin;
3
+ unit class IRC::Client::Plugin::Debugger : ver<2.003001 > is IRC::Client::Plugin;
4
4
5
5
method irc-all-events ($ irc , $ e ) {
6
6
say Dump $ e , : indent(4 );
Original file line number Diff line number Diff line change 1
- unit class IRC::Client::Plugin::PingPong : ver<2.002001 >;
1
+ unit class IRC::Client::Plugin::PingPong : ver<2.003001 >;
2
2
method irc-ping ($ irc , $ e ) { $ irc . ssay(" PONG { $ irc . nick} $ e <params>[0]" ) }
Original file line number Diff line number Diff line change 1
- unit grammar IRC::Grammar : ver<2.002001 >;
1
+ unit grammar IRC::Grammar : ver<2.003001 >;
2
2
token TOP { <message >+ }
3
3
token SPACE { ' ' + }
4
4
token message { [':' <prefix > <SPACE > ]? <command > <params > \n }
Original file line number Diff line number Diff line change 1
- unit class IRC::Grammar::Actions : ver<2.002001 >;
1
+ unit class IRC::Grammar::Actions : ver<2.003001 >;
2
2
method TOP ($/ ) { $/ . make : $ < message > >>. made }
3
3
method message ($/ ) {
4
4
my $ pref = $/ <prefix >;
Original file line number Diff line number Diff line change 1
1
use IRC::Grammar;
2
2
use IRC::Grammar::Actions;
3
- unit class IRC::Parser : ver<2.002001 >;
3
+ unit class IRC::Parser : ver<2.003001 >;
4
4
5
5
sub parse-irc (Str : D $ input ) is export {
6
6
IRC::Grammar. parse($ input , actions => IRC::Grammar::Actions). made // [];
You can’t perform that action at this time.
0 commit comments