gistfile1.none

pmichaud@kiwi:~/p6/nom$ cat t.p6
grammar ABC {
    regex TOP { <a> <b> <c> }
    regex a { 'a' }
    regex b { 'b' }
    regex c { 'c' }
}


class ABCActions {
    method b($match) { say 'matched b' }
}

my $match = ABC.parse('abc', :actions(ABCActions));
say $match;

pmichaud@kiwi:~/p6/nom$ ./perl6 t.p6
matched b
abc
pmichaud@kiwi:~/p6/nom$