File Coverage

blib/lib/HTML/FillInForm/Lite.pm
Criterion Covered Total %
statement 195 213 91.5
branch 102 122 83.6
condition 20 28 71.4
subroutine 29 30 96.6
pod 3 3 100.0
total 349 396 88.1


line stmt bran cond sub pod time code
1             package HTML::FillInForm::Lite;
2 16     16   3648574 use 5.008_001; # 5.8.1
  16         51  
3              
4 16     16   53 use strict;
  16         23  
  16         272  
5 16     16   48 use warnings;
  16         25  
  16         509  
6              
7             our $VERSION = '1.14';
8              
9 16     16   64 use Exporter ();
  16         14  
  16         594  
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw(fillinform);
12              
13             #use Smart::Comments '####';
14 16     16   48 use Carp ();
  16         18  
  16         197  
15 16     16   46 use Scalar::Util ();
  16         14  
  16         35515  
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* > )}; #