File Coverage

blib/lib/HTML/FormFu/Element/Button.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1 35     35   18468 use strict;
  35         91  
  35         2305  
2              
3             package HTML::FormFu::Element::Button;
4             $HTML::FormFu::Element::Button::VERSION = '2.07';
5             # ABSTRACT: Button form field
6              
7 35     35   409 use Moose;
  35         86  
  35         209  
8              
9             extends 'HTML::FormFu::Element';
10              
11             with 'HTML::FormFu::Role::Element::Input';
12              
13             after BUILD => sub {
14             my ( $self, $args ) = @_;
15              
16             $self->field_type('button');
17             $self->force_default(1);
18              
19             return;
20             };
21              
22             __PACKAGE__->meta->make_immutable;
23              
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             HTML::FormFu::Element::Button - Button form field
35              
36             =head1 VERSION
37              
38             version 2.07
39              
40             =head1 SYNOPSIS
41              
42             $e = $form->element( Button => 'foo' );
43              
44             =head1 DESCRIPTION
45              
46             Button form field, and base-class for L<HTML::FormFu::Element::Image>,
47             L<HTML::FormFu::Element::Reset>,
48             L<HTML::FormFu::Element::Submit>
49              
50             =head1 METHODS
51              
52             =head1 SEE ALSO
53              
54             Is a sub-class of, and inherits methods from
55             L<HTML::FormFu::Role::Element::Input>,
56             L<HTML::FormFu::Role::Element::Field>,
57             L<HTML::FormFu::Element>
58              
59             L<HTML::FormFu>
60              
61             =head1 AUTHOR
62              
63             Carl Franks, C<cfranks@cpan.org>
64              
65             =head1 LICENSE
66              
67             This library is free software, you can redistribute it and/or modify it under
68             the same terms as Perl itself.
69              
70             =head1 AUTHOR
71              
72             Carl Franks <cpan@fireartist.com>
73              
74             =head1 COPYRIGHT AND LICENSE
75              
76             This software is copyright (c) 2018 by Carl Franks.
77              
78             This is free software; you can redistribute it and/or modify it under
79             the same terms as the Perl 5 programming language system itself.
80              
81             =cut