Test
Result
% foreach ( keys %$result ) {
<% $_ %> = <% $result->{$_} %>
%}
Missing
<% join ('
', keys %$missing ) %>
Invalid
<% join ('
', keys %$invalid ) %>
<% Dumper $missing %>
<%once>
use Data::Dumper;
$Data::Dumper::Pad = '
';
%once>
<%init>
my ($missing, $invalid, $result);
$missing = $App->saved_args->{missing} ;
$invalid = $App->saved_args->{invalid} ;
$result = $App->saved_args->{result};
%init>
%#============================================
<%filter>
use HTML::FillInForm;
my $args = $App->saved_args->{args};
$_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $args );
%filter>
%#============================================