Nested EmbperlObject::Executes

[- $req = shift; $p = $fdat{p}; -] [$ sub dumphash $] [- $ref = shift; -] [$ foreach $key (sort keys %$ref) $] [$ endforeach $]
[+ $key +] [$ if (ref $ref->{$key} eq 'HASH') $] [$ foreach $key2 (sort keys %{$ref->{$key}}) $] [+ "$key2 -> $ref->{$key}->{$key2}" +]
[$ endforeach $] [$ else $] [+ $ref->{$key} +] [$ endif $]
[$ endsub $] [$ if ($p) $] Published version. [- $req->{PUBLISHED} = 1; $ENV{PUBLISHED} = 1; -] [$ else $]

$req:

[- dumphash $req -]

%ENV:

[- dumphash \%ENV -]

%fdat:

[- dumphash \%fdat -]

EmbperlObject::Execute:

[# Do another EmbperlObject Execute #]
[+
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
+]

$req:

[- dumphash $req -]

%ENV:

[- dumphash \%ENV -]

%fdat:

[- dumphash \%fdat -] [$ endif $]