13 my $hidden_form_in = qq{<input type="hidden" name="foo1">
14 <input type="hidden" name="foo2" value="ack">};
16 my %fdat = (foo1a => 'bar1a',
17 foo2 => ['bar2','bar3']);
19 my $fif = new CGI::Ex;
20 my $output = $fif->fill(scalarref => \$hidden_form_in,
22 if ($output =~ m/^<input( (type="hidden"|name="foo1"|value="")){3}>\s*<input( (type="hidden"|name="foo2"|value="bar2")){3}>$/){
25 print "Got unexpected out for hidden form:\n$output\n";