view release on metacpan or  search on metacpan

t/unpacked/GraphViz/examples/recdescent.pl  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use lib '../lib';
use GraphViz::Parse::RecDescent;

# The grammar below was taken from the Parse::RecDescent
# demo_recipe.pl script

# "Potato, Egg, Red meat & Lard Cookbook",
# T. Omnicient Rash & N. Hot Ignorant-Kant
# O'Besity & Associates

my $recipegrammar =
q{
        Recipe: Step(s)

        Step:
                Verb Object Clause(s?)
                        { print "$item[1]\n" }