File Coverage

blib/lib/Form/Processor/Field/Boolean.pm
Criterion Covered Total %
statement 13 14 92.8
branch 4 4 100.0
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Form::Processor::Field::Boolean;
2             $Form::Processor::Field::Boolean::VERSION = '1.162360';
3 2     2   878 use strict;
  2         3  
  2         46  
4 2     2   5 use warnings;
  2         2  
  2         49  
5 2     2   13 use base 'Form::Processor::Field';
  2         2  
  2         842  
6              
7              
8 0     0 1 0 sub init_widget { return 'radio' } # although not really used.
9              
10              
11             sub value {
12 27     27 1 20 my $self = shift;
13              
14 27         37 my $v = $self->SUPER::value( @_ );
15              
16 27 100       66 return unless defined $v;
17              
18 14 100       31 return $v ? 1 : 0;
19             }
20              
21              
22             # ABSTRACT: A true or false field
23              
24              
25             1;
26              
27             __END__