File Coverage

lib/HTML/FormWidgets/Hidden.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 2 50.0
subroutine 5 5 100.0
pod 2 2 100.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             package HTML::FormWidgets::Hidden;
2              
3 1     1   775 use strict;
  1         2  
  1         28  
4 1     1   4 use warnings;
  1         2  
  1         33  
5 1     1   5 use parent 'HTML::FormWidgets';
  1         2  
  1         6  
6              
7             sub init {
8 1     1 1 2    my ($self, $args) = @_;
9              
10 1         7    $self->container( 0 );
11 1         6    return;
12             }
13              
14             sub render_field {
15 1     1 1 2    my ($self, $args) = @_;
16              
17 1         2    delete $args->{id};
18 1         2    $args->{type} = q(hidden);
19 1   50     14    $args->{value} = delete $args->{default} || q();
20              
21 1         4    return $self->hacc->input( $args );
22             }
23              
24             1;
25              
26             # Local Variables:
27             # mode: perl
28             # tab-width: 3
29             # End:
30              
31