use Parse::RecDescent;

my $grammar = <<'__EOI__';
parse: <error:FOO!>
__EOI__

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

##</code><code>##

$_tok = do {
   if (1) {
      do {
         push @{$thisparser->{errors}}, [qq{FOO!},$thisline];
      } unless  $_noactions;
      undef
   } else {
      0
   }
};

##</code><code>##

use Parse::RecDescent;

my $grammar = <<'__EOI__';
parse: {
   # Create error message.
   my $msg = 'FOO!';

   # Create error.
   push(@{$thisparser->{errors}}, [ $msg, $thisline ])
      unless $_noactions;

   # Fail the action.
   undef;
}
__EOI__

my $parser = Parse::RecDescent->new($grammar)
or die("Bad grammar\n");

$parser->parse('');

##</code><code>##

       ERROR (line 1): FOO!