File Coverage

blib/lib/HTML/FormFu/Element/Radio.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package HTML::FormFu::Element::Radio;
2              
3 13     13   959 use strict;
  13         19  
  13         551  
4             our $VERSION = '2.05'; # VERSION
5              
6 13     13   49 use Moose;
  13         15  
  13         80  
7              
8             extends 'HTML::FormFu::Element::Checkbox';
9              
10 13     13   59058 use HTML::FormFu::Constants qw( $EMPTY_STR );
  13         20  
  13         2191  
11              
12             __PACKAGE__->mk_output_accessors(qw( default ));
13              
14             after BUILD => sub {
15             my $self = shift;
16              
17             $self->field_type('radio');
18              
19             return;
20             };
21              
22             __PACKAGE__->meta->make_immutable;
23              
24             1;
25              
26             __END__
27              
28             =head1 NAME
29              
30             HTML::FormFu::Element::Radio - Radio form field
31              
32             =head1 VERSION
33              
34             version 2.05
35              
36             =head1 SYNOPSIS
37              
38             my $element = $form->element( Radio => 'foo' );
39              
40             =head1 DESCRIPTION
41              
42             Radio form field.
43              
44             =head1 SEE ALSO
45              
46             Is a sub-class of, and inherits methods from
47             L<HTML::FormFu::Element::Checkbox>,
48             L<HTML::FormFu::Role::Element::Input>,
49             L<HTML::FormFu::Role::Element::Field>,
50             L<HTML::FormFu::Element>
51              
52             L<HTML::FormFu>
53              
54             =head1 AUTHOR
55              
56             Carl Franks, C<cfranks@cpan.org>
57              
58             =head1 LICENSE
59              
60             This library is free software, you can redistribute it and/or modify it under
61             the same terms as Perl itself.
62              
63             =cut