File Coverage

blib/lib/Rose/HTMLx/Form/Field/RadioButtonBoolean.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition 0 4 0.0
subroutine 2 4 50.0
pod 2 2 100.0
total 10 21 47.6


line stmt bran cond sub pod time code
1             package Rose::HTMLx::Form::Field::RadioButtonBoolean;
2              
3 1     1   10 use strict;
  1         4  
  1         46  
4 1     1   5 use base qw( Rose::HTML::Form::Field::RadioButton );
  1         3  
  1         1076  
5             our $VERSION = '0.03';
6              
7             sub init {
8 0     0 1   my $self = shift;
9 0           $self->class('boolean');
10 0           return $self->SUPER::init(@_);
11             }
12              
13             sub xhtml_field {
14 0     0 1   my ($self) = shift;
15 0   0       return ( $self->html_prefix || '' )
      0        
16             . $self->xhtml_radio_button
17             . $self->html_label
18             . ( $self->html_suffix || '' );
19             }
20              
21             1;
22              
23             __END__