Test

% foreach (qw/firstname lastname email/) { <& '/forms/textinput.comp', lexkey=>$_, name=>$_ ,missing =>$missing&> %}

Result

% foreach ( keys %$result ) { <% $_ %> = <% $result->{$_} %>
%}

Missing

<% join ('
', keys %$missing ) %>

Invalid

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