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: