gistfile1.txt

use Pegex;
use Pegex::Compiler;
use XXX;

my $grammar = <<'...';
foo: /foo/ <bar>?
bar: /bar/ <foo>?
...

# XXX 'Pegex::Compiler'->compile($grammar);

pegex($grammar)->parse("foo bar foo bar foo");



--- !!perl/hash:Pegex::Compiler
combined: &1
  _FIRST_RULE: foo
  bar:
    +all:
      - +re: bar
      - +rule: foo
        <: '?'
  foo:
    +all:
      - +re: foo
      - +rule: bar
        <: '?'
grammar: *1
...
  at t.pl line 10