XXX: hidden hash

[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 5946030fc4d1a7eda47d3e28aed25f50f3defbdf..bbeb6b6fbf1c6b49ebccca76b8a1573cc6cce452 100644 (file)
--- a/lib/HTML/Form/Simple.pm
+++ b/lib/HTML/Form/Simple.pm
@@ -71,6 +71,11 @@ sub hidden {
        my $self = shift;
        my ($name, $value, $attr) = $self->_attr(2, @_);
 
+       if (ref $name eq 'HASH') {
+               my @return = map { $self->hidden($_, $name->{$_}, $attr) } sort keys %$name;
+               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};