gistfile1.none

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

class ABCActions {
    method b($/) { nqp::say('matched b') }
}

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

pmichaud@kiwi:~/p6/nqp$ ./nqpq t.nqp
ABC()
matched b
abc
pmichaud@kiwi:~/p6/nqp$