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 13     13   898 use strict;
  13         28  
  13         795  
2              
3             package HTML::FormFu::Element::Radio;
4             $HTML::FormFu::Element::Radio::VERSION = '2.07';
5             # ABSTRACT: Radio form field
6              
7 13     13   326 use Moose;
  13         33  
  13         99  
8              
9             extends 'HTML::FormFu::Element::Checkbox';
10              
11 13     13   92934 use HTML::FormFu::Constants qw( $EMPTY_STR );
  13         47  
  13         2688  
12              
13             __PACKAGE__->mk_output_accessors(qw( default ));
14              
15             after BUILD => sub {
16             my $self = shift;
17              
18             $self->field_type('radio');
19              
20             return;
21             };
22              
23             __PACKAGE__->meta->make_immutable;
24              
25             1;
26              
27             __END__
28              
29             =pod
30              
31             =encoding UTF-8
32              
33             =head1 NAME
34              
35             HTML::FormFu::Element::Radio - Radio form field
36              
37             =head1 VERSION
38              
39             version 2.07
40              
41             =head1 SYNOPSIS
42              
43             my $element = $form->element( Radio => 'foo' );
44              
45             =head1 DESCRIPTION
46              
47             Radio form field.
48              
49             =head1 SEE ALSO
50              
51             Is a sub-class of, and inherits methods from
52             L<HTML::FormFu::Element::Checkbox>,
53             L<HTML::FormFu::Role::Element::Input>,
54             L<HTML::FormFu::Role::Element::Field>,
55             L<HTML::FormFu::Element>
56              
57             L<HTML::FormFu>
58              
59             =head1 AUTHOR
60              
61             Carl Franks, C<cfranks@cpan.org>
62              
63             =head1 LICENSE
64              
65             This library is free software, you can redistribute it and/or modify it under
66             the same terms as Perl itself.
67              
68             =head1 AUTHOR
69              
70             Carl Franks <cpan@fireartist.com>
71              
72             =head1 COPYRIGHT AND LICENSE
73              
74             This software is copyright (c) 2018 by Carl Franks.
75              
76             This is free software; you can redistribute it and/or modify it under
77             the same terms as the Perl 5 programming language system itself.
78              
79             =cut