XXX: hidden array

[perl/html-form-simple.git] / lib / HTML / Form / Simple.pm

diff --git a/lib/HTML/Form/Simple.pm b/lib/HTML/Form/Simple.pm
index bbeb6b6fbf1c6b49ebccca76b8a1573cc6cce452..e2a586d51987dc2914ea1b4c154caf2fff2dece7 100644 (file)
--- a/lib/HTML/Form/Simple.pm
+++ b/lib/HTML/Form/Simple.pm
@@ -76,6 +76,11 @@ sub hidden {
                return wantarray ? @return : join(defined $, ? $, : '', @return);
        }
 
+       if (ref $value eq 'ARRAY') {
+               my @return = map { $self->hidden($name, $_, $attr) } @$value;
+               return wantarray ? @return : join(defined $, ? $, : '', @return);
+       }
+
        $attr->{name } = $name  if defined $name;
        $attr->{value} = $value if defined $value;
        $attr->{type} = 'hidden' unless defined $attr->{type};