my $template;
eval {
$template = new HTML::Template(filename => 'foo.tmpl');
};
print $@ if $@;
eval {
$template->param(param1 => $somevalue);
$template->param(param2 => $someothervalue);
};
print $@ if $@;
eval {
print $template->output();
};
####
... the non-debug page ...
##
##
my @debuglog = ();
if ( ... ) {
push @debuglog, {item => "Some message"};
}
...
$template->parameter(debug => 0 != @debuglog);
$template->parameter(debuglog => \@debuglog);
##
##
sub debuglog {
push @debuglog, {item => $_} for ( @_ );
}
##
##
debuglog("Some message") if ( ... );