—use
strict;
sub
init {
my
$self
=
shift
;
my
$config
=
shift
;
$config
->{multiple} = 1;
$self
->{cols} =
delete
$config
->{cols};
$self
->{rows} =
delete
$config
->{rows};
}
sub
to_html {
my
$self
=
shift
;
return
$self
->options_html;
}
1;
__END__
=head1 NAME
HTML::SuperForm::Field::CheckboxGroup - CheckboxGroup field used by HTML::SuperForm
=head1 SYNOPSIS
my $checkbox_group = HTML::SuperForm::Field::CheckboxGroup->new( name => 'my_checkbox_group',
values => [ 1, 2, 3, 4 ],
labels => { 1 => 'One',
2 => 'Two',
3 => 'Three',
4 => 'Four' },
rows => 2);
print $checkbox_group;
=head1 SEE ALSO
HTML::SuperForm::Field
=head1 AUTHOR
John Allwine E<lt>jallwine86@yahoo.comE<gt>
=cut