File Coverage

blib/lib/HTML/FillInForm/Lite.pm
Criterion Covered Total %
statement 212 213 99.5
branch 119 122 97.5
condition 26 28 92.8
subroutine 30 30 100.0
pod 3 3 100.0
total 390 396 98.4


line stmt bran cond sub pod time code
1             package HTML::FillInForm::Lite;
2 17     17   324133 use 5.008_001; # 5.8.1
  17         54  
3              
4 17     17   78 use strict;
  17         23  
  17         407  
5 17     17   62 use warnings;
  17         31  
  17         744  
6              
7             our $VERSION = '1.15';
8              
9 17     17   67 use Exporter ();
  17         25  
  17         733  
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw(fillinform);
12              
13             #use Smart::Comments '####';
14 17     17   76 use Carp ();
  17         23  
  17         282  
15 17     17   63 use Scalar::Util ();
  17         18  
  17         46774  
16              
17             # Regexp for HTML tags
18              
19             my $form = q{[fF][oO][rR][mM]};
20             my $input = q{[iI][nN][pP][uU][tT]};
21             my $select = q{[sS][eE][lL][eE][cC][tT] };
22             my $option = q{[oO][pP][tT][iI][oO][nN] };
23             my $textarea = q{[tT][eE][xX][tT][aA][rR][eE][aA]};
24              
25             my $checked = q{[cC][hH][eE][cC][kK][eE][dD]};
26             my $selected = q{[sS][eE][lL][eE][cC][tT][eE][dD]};
27             my $multiple = q{[mM][uU][lL][tT][iI][pP][lL][eE]};
28              
29             my $id = q{[iI][dD]};
30             my $type = q{[tT][yY][pP][eE]};
31             my $name = q{[nN][aA][mM][eE]};
32             my $value = q{[vV][aA][lL][uU][eE]};
33              
34             my $SPACE = q{\s};
35             my $ATTR_NAME = q{[\w\-]+};
36             my $ATTR_VALUE = q{(?:" [^"]* " | ' [^']* ' | [^'"/>\s]+ | [\w\-]+ )};
37             my $ATTR = qq{(?: $SPACE+ (?: $ATTR_NAME (?: = $ATTR_VALUE )? ) )};
38              
39             my $FORM = qq{(?: <$form $ATTR+ $SPACE* > )}; #
40             my $INPUT = qq{(?: <$input $ATTR+ $SPACE*/?> )}; #
41             my $SELECT = qq{(?: <$select $ATTR+ $SPACE* > )}; #
42             my $OPTION = qq{(?: <$option $ATTR* $SPACE* > )}; #
43             my $TEXTAREA = qq{(?: <$textarea $ATTR+ $SPACE* > )}; #