test.p6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use v6;
grammar IRC::Grammar:ver<1.001001> {

my $res = IRC::Grammar.parse(
":ZoffixW!~ZoffixW\@unaffiliated/zoffix PRIVMSG #perl6bot :test\r\n"
, :actions(IRC::Grammar::Actions) ).made;

say $res[0]

=finish

my @messages = (
    ":verne.freenode.net 372 Perl6IRC :- running for their sustained support.\r\n",
    ":Perl6IRC MODE Perl6IRC :+i\r\n",
    ":Perl6IRC!~Perl6IRC@static-67-226-172-41.ptr.terago.net JOIN #perl6bot\r\n",
    ":verne.freenode.net MODE #perl6bot +ns\r\n",
    ":verne.freenode.net 353 Perl6IRC @ #perl6bot :@Perl6IRC\r\n",
    ":ZoffixW!~ZoffixW@unaffiliated/zoffix JOIN #perl6bot\r\n",
    ":ZoffixW!~ZoffixW@unaffiliated/zoffix PRIVMSG #perl6bot :test\r\n",
);
# say so IRC::Grammar.parse(@messages[$_]) for 0..@messages.elems-1;
# say IRC::Grammar.parse(":verne.freenode.net 372 Perl6IRC :- running for their sustained support.\r\n");