]>
Dogcows Code - chaz/p5-CGI-Ex/blob - samples/memory_template.pl
28b17105331b72f6328abd0bb60894ba259827a8
8 hash
=> {a
=> 1, b
=> 2},
9 code
=> sub {"($_[0])"},
12 my $txt = "[% one %][% two %][% three %][% hash.keys.join %] [% code(one).length %] [% hash.\$a_var %]\n";
14 ###----------------------------------------------------------------###
18 $module = 'CGI::Ex::Template';
26 my $pm = "$module.pm";
30 my $t = $module->new(ABSOLUTE
=> 1);
32 $t->process(\
$txt, $swap, \
$out);
36 sleep 15; # go and check the 'ps fauwx|grep perl'
39 ###----------------------------------------------------------------###
This page took 0.039249 seconds and 4 git commands to generate.