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