view release on metacpan or  search on metacpan

lib/Acme/Your/Filter.pm  view on Meta::CPAN

  plist       : identifier ',' plist
              | identifier

  identifier  : /[@%\$]\w+/

  keyword     : 'your'
              | 'have'

  declaration : keyword list ';'
              | keyword list  '=' /[^;]+/ ';'
              | <error>
};

my $parse;

sub _transform_statement {
    my $statement = shift;

    $::RD_AUTOACTION = q{ [ @item ] };

    $parse ||= new Parse::RecDescent $grammar;