File Coverage

blib/lib/HTML/FillInForm/Lite.pm
Criterion Covered Total %
statement 214 214 100.0
branch 120 122 98.3
condition 27 28 96.4
subroutine 30 30 100.0
pod 3 3 100.0
total 394 397 99.2


line stmt bran cond sub pod time code
1             package HTML::FillInForm::Lite;
2 17     17   794029 use 5.008_001; # 5.8.1
  17         71  
  17         1948  
3              
4 17     17   284 use strict;
  17         35  
  17         791  
5 17     17   116 use warnings;
  17         50  
  17         875  
6              
7             our $VERSION = '1.13';
8              
9 17     17   84 use Exporter ();
  17         48  
  17         992  
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw(fillinform);
12              
13             #use Smart::Comments '####';
14 17     17   94 use Carp ();
  17         30  
  17         345  
15 17     17   88 use Scalar::Util ();
  17         29  
  17         72590  
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* > )}; #