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* > )}; # |