sub radio {
my $self = shift;
- my ($name, $label, $rows, $attr) = $self->_attr(3, @_);
+ my ($name, $rows, $label, $attr) = $self->_attr(3, @_);
if (not defined $rows) {
if (defined $label) {
1;
+__END__
+
=head1 NAME
HTML::Form::Simple - Generate HTML form elements
msg => 'Textarea default', {rows => 4, style => 'background:red'}
) ],
[ Gender => join ' or ', $input->radio(
- sex => ['m', 'f']
+ sex => [qw(m f)], [qw(Male Female)]
) ],
[ Colour => scalar $input->select(
favcolour => [qw(Blue Green Red)], 'Green'
);
say $input->stop; # </form>
+=head1 TODO
+
+=over
+
+=item C<default()> method
+
+ $input->hidden(foo => $input->default('foo'));
+ $hash_ref = $input->default;
+ $input->default('foo') = 'new value';
+ undef $input->default; # clear all
+ # XXX: does this equal $input->default=undef;?
+ $input->default = {amend => 'stuff'};
+
+=item documentation
+
+Actual descriptions instead of just a synopsis.
+
+=item C<quote> override
+
+Allow custom value quotation function.
+Makes L<XML::Quote|XML::Quote> dependency optional.
+
+=back
+
=head1 AUTHOR
Mischa POSLAWSKY <perl@shiar.org>