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             package HTML::FormFu::Element::Button;
2              
3 35     35   14577 use strict;
  35         53  
  35         1401  
4             our $VERSION = '2.05'; # VERSION
5              
6 35     35   122 use Moose;
  35         48  
  35         196  
7              
8             extends 'HTML::FormFu::Element';
9              
10             with 'HTML::FormFu::Role::Element::Input';
11              
12             after BUILD => sub {
13             my ( $self, $args ) = @_;
14              
15             $self->field_type('button');
16             $self->force_default(1);
17              
18             return;
19             };
20              
21             __PACKAGE__->meta->make_immutable;
22              
23             1;
24              
25             __END__
26              
27             =head1 NAME
28              
29             HTML::FormFu::Element::Button - Button form field
30              
31             =head1 VERSION
32              
33             version 2.05
34              
35             =head1 SYNOPSIS
36              
37             $e = $form->element( Button => 'foo' );
38              
39             =head1 DESCRIPTION
40              
41             Button form field, and base-class for L<HTML::FormFu::Element::Image>,
42             L<HTML::FormFu::Element::Reset>,
43             L<HTML::FormFu::Element::Submit>
44              
45             =head1 METHODS
46              
47             =head1 SEE ALSO
48              
49             Is a sub-class of, and inherits methods from
50             L<HTML::FormFu::Role::Element::Input>,
51             L<HTML::FormFu::Role::Element::Field>,
52             L<HTML::FormFu::Element>
53              
54             L<HTML::FormFu>
55              
56             =head1 AUTHOR
57              
58             Carl Franks, C<cfranks@cpan.org>
59              
60             =head1 LICENSE
61              
62             This library is free software, you can redistribute it and/or modify it under
63             the same terms as Perl itself.
64              
65             =cut