Select Code to Download

use Parse::RecDescent;

...

Parse::RecDescent->Precompile($grammar, "grammar")
or die("Bad grammar\n");

$_tok = do {
   if (1) {
...
      0
   }
};

use Parse::RecDescent;

...
or die("Bad grammar\n");

$parser->parse('');

       ERROR (line 1): FOO!