view release on metacpan or  search on metacpan

examples/meals.pl  view on Meta::CPAN

# create a new engine and read our chunk definitions

my $engine = new HTML::Chunks('meals.html');

# output the main 'mealPage' chunk.  name information
# is supplied with static text.  the 'meals' data element
# is handled by the 'outputMeals' routine.
#
# if this were run as a CGI, you'd need to output a
# content-type header as well.

$engine->output('mealPage', {
	firstName => 'Homer',
	lastName  => 'Simpson',
	meals     => \&outputMeals
});

# our first data element routine

sub outputMeals