File Coverage

blib/lib/HTML/Tag/TEXTFIELD.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package HTML::Tag::TEXTFIELD;
2              
3 2     2   12 use strict;
  2         5  
  2         84  
4 2     2   11 use warnings;
  2         3  
  2         69  
5              
6 2     2   11 use Class::AutoAccess;
  2         4  
  2         56  
7 2     2   10 use base qw(Class::AutoAccess HTML::Tag);
  2         3  
  2         379  
8              
9             our $VERSION = '1.01';
10              
11             BEGIN {
12 2     2   72 our $class_def = {
13             element => 'TEXTFIELD',
14             tag => 'INPUT',
15             has_end_tag => 0,
16             type => 'text',
17             value => '',
18             size => '',
19             maxlength => '',
20             attributes => ['type','value','size','maxlength'] ,
21             };
22             }
23              
24             1;
25              
26             # vim: set ts=2: