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) {
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'
=over
-=item C<radio>|C<check> parameter order
-
-Row options (hash ref details) are inconsistent:
-on labels for C<check>, on values for C<radio>.
-Make behaviour more logical.
-
=item C<default()> method
$input->hidden(foo => $input->default('foo'));
Allow custom value quotation function.
Makes L<XML::Quote|XML::Quote> dependency optional.
+=item single checkbox id
+
+Do not add value to single check() by default.
+
=back
=head1 AUTHOR