Select Code to Download

use strict;

...
}

print parse('start: /foo/ | <error>', 'fo'), "\n";

$ perl rectest.pl
        ERROR (line 1): Invalid start: Was expecting /foo/

$ perl rectest2.pl

       ERROR (line 1): Invalid start: Was expecting /foo/
Died at recdescent.pl line 34.

use strict;

...
}

print parse('start: /foo/ | <error>', 'fo'), "\n";

$ perl recdescent3.pl 
Undefined format "Parse::RecDescent::ERROR" called at /usr/share/perl5
+/Parse/RecDescent.pm line 2910.