- or download this
my $grammar = q{
list : '(' item(s) ')' { $item[2] }
...
| word
word : /[^()]*/
};
- or download this
my $grammar = <<'__END_OF_GRAMMAR__';
...
word : /[^()]*/
__END_OF_GRAMMAR__
- or download this
my $grammar = <<'__END_OF_GRAMMAR__';
{
...
word : /[^()]*/
__END_OF_GRAMMAR__
- or download this
list : item(s)
item : '(' <commit> list ')' { $item[3] }
| word
word : /[^()]*/
- or download this
list : item(s?)
item : '(' <commit> list ')' { $item[3] }
| word
word : /[^()]+/