File Coverage

blib/lib/HTML/FormHandler/Widget/Field/Submit.pm
Criterion Covered Total %
statement 23 23 100.0
branch 1 2 50.0
condition 3 6 50.0
subroutine 5 5 100.0
pod 0 2 0.0
total 32 38 84.2


line stmt bran cond sub pod time code
1             package HTML::FormHandler::Widget::Field::Submit;
2             # ABSTRACT: submit field rendering widget
3             $HTML::FormHandler::Widget::Field::Submit::VERSION = '0.40067';
4 19     19   12860 use Moose::Role;
  19         34  
  19         179  
5 19     19   74772 use namespace::autoclean;
  19         31  
  19         168  
6 19     19   1258 use HTML::FormHandler::Render::Util ('process_attrs');
  19         28  
  19         165  
7              
8              
9             sub render_element {
10 19     19 0 32 my ( $self, $result ) = @_;
11 19   33     49 $result ||= $self->result;
12              
13 19         39 my $output = '<input type="submit" name="';
14 19         579 $output .= $self->html_name . '"';
15 19         535 $output .= ' id="' . $self->id . '"';
16 19         604 $output .= ' value="' . $self->html_filter($self->_localize($self->value)) . '"';
17 19         110 $output .= process_attrs($self->element_attributes($result));
18 19         57 $output .= ' />';
19 19         48 return $output;
20             }
21              
22             sub render {
23 18     18 0 38 my ( $self, $result ) = @_;
24 18   66     196 $result ||= $self->result;
25 18 50       51 die "No result for form field '" . $self->full_name . "'. Field may be inactive." unless $result;
26 18         78 my $output = $self->render_element( $result );
27 18         76 return $self->wrap_field( $result, $output );
28             }
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding UTF-8
37              
38             =head1 NAME
39              
40             HTML::FormHandler::Widget::Field::Submit - submit field rendering widget
41              
42             =head1 VERSION
43              
44             version 0.40067
45              
46             =head1 SYNOPSIS
47              
48             Renders a submit field.
49              
50             =head1 AUTHOR
51              
52             FormHandler Contributors - see HTML::FormHandler
53              
54             =head1 COPYRIGHT AND LICENSE
55              
56             This software is copyright (c) 2016 by Gerda Shank.
57              
58             This is free software; you can redistribute it and/or modify it under
59             the same terms as the Perl 5 programming language system itself.
60              
61             =cut