Select Code to Download

bang    !some text!
at      @more words@
percent %good stuff%
star    !not in stars!

#!/usr/bin/env perl6
use Test;
...
is   static('bang  !one!' ), 'one',  'parse bang!one ok';
isnt static('bang  @one@' ), 'one',  'isnt  bang@one ok';
nok  StatGrammar.parse('bang @one@', :actions(StatActions)), 'nok';

#!/usr/bin/env perl6
use Test;
...
is   dyn('bang    !one!' ), 'one',  'parse bang!one ok';
isnt dyn('bang    @one@' ), 'one',  'isnt  bang@one ok';
nok  DynGrammar.parse('bang @one@', :actions(DynActions)), 'nok';