File Coverage

lib/HTML/FormWidgets/RadioGroup.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	33	36	91.6

package HTML::FormWidgets::RadioGroup;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( columns labels values ) );

sub init {
   my ($self, $args) = @_;

   $self->columns( undef );
   $self->labels ( undef );
   $self->values ( [] );
   return;
}

sub render_field {
   my ($self, $args) = @_; my $hacc = $self->hacc;

   $args->{label_class} = q(radio_group);
   $args->{columns    } = $self->columns  if ($self->columns);
   $args->{labels     } = $self->labels   if ($self->labels);
   $args->{onchange   } = $self->onchange if ($self->onchange);
   $args->{values     } = $self->values;

   my $html = $hacc->radio_group( $args );

   return $hacc->div( { class => q(checkbox_container) }, $html );
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: