#!/usr/bin/perl

use Parse::RecDescent;

my $grammar =
q(
myrule : <rulevar: local $failed>
myrule : 'stuff' mysubrule(?) <reject:$failed>
| <error>
mysubrule: 'ID' <commit> '[' ']'
| <error?> { $failed++ }
);

my $text = "stuff ID something";
my $parser = Parse::RecDescent->new($grammar) or die "hi";
my $tree = $parser->myrule($text);
print $tree;