[+ $key +] |
[$ if (ref $ref->{$key} eq 'HASH') $]
[$ foreach $key2 (sort keys %{$ref->{$key}}) $]
[+ "$key2 -> $ref->{$key}->{$key2}" +] [$ endforeach $] [$ else $] [+ $ref->{$key} +] [$ endif $] |
---|
[+ my $fdat = { p => 1, t => 'blue' }; # publishCheckpoint($req, \%fdat); HTML::EmbperlObject::Execute({ inputfile => "/opt/web/ewok/htdocs/test/execute2.html", output => \$new, fdat => $fdat, param => $param, options => $ENV{EMBPERL_OPTIONS}, object_base => $ENV{EMBPERL_OBJECT_BASE}, object_stopdir => "/opt/web/ewok/htdocs", object_addpath => "/opt/web/ewok/htdocs/templates;/opt/web/ewok/htdocs", }); # publishRestore($req, \%fdat); $new +]