File Coverage

lib/HTML/FormWidgets/Textfield.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition 1 2 50.0
subroutine 5 5 100.0
pod 2 2 100.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package HTML::FormWidgets::Textfield;
2              
3 1     1   799 use strict;
  1         2  
  1         27  
4 1     1   5 use warnings;
  1         2  
  1         31  
5 1     1   5 use parent 'HTML::FormWidgets';
  1         2  
  1         5  
6              
7             __PACKAGE__->mk_accessors( qw( width ) );
8              
9             sub init {
10 2     2 1 3    my ($self, $args) = @_;
11              
12 2         8    $self->width( 40 );
13 2         12    return;
14             }
15              
16             sub render_field {
17 2     2 1 5    my ($self, $args) = @_;
18              
19 2 50 50     11    $args->{class} .= ($args->{class} ? q( ): q()).($self->class || q(ifield));
20 2         23    $args->{size } = $self->width;
21              
22 2         12    return $self->hacc->textfield( $args );
23             }
24              
25             1;
26              
27             # Local Variables:
28             # mode: perl
29             # tab-width: 3
30             # End:
31