package HTML::FormWidgets::Checkbox; # @(#)$Id: Checkbox.pm 28 2008-03-26 15:33:59Z pjf $ use strict; use warnings; use base qw(HTML::FormWidgets); use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 28 $ =~ /\d+/gmx ); sub _render { my ($me, $ref) = @_; $ref->{checked} = q(checked) if ($me->checked); $ref->{value } = $me->value; my $htag = $me->elem; my $html = $htag->checkbox( $ref ); my $label = $me->labels && $me->labels->{ $me->value } ? $me->labels->{ $me->value } : undef; return $html.$htag->span( { class => q(note) }, $label ) } 1; # Local Variables: # mode: perl # tab-width: 3 # End: