| line |
true |
false |
branch |
|
24
|
4 |
11 |
ref $_[0] ? : |
|
27
|
3 |
12 |
unless exists $arg{'name'} |
|
32
|
9 |
30 |
unless (grep {$key eq $_;} @KNOWN_KEYS) |
|
46
|
0 |
39 |
ref $_[0] ? : |
|
51
|
38 |
40 |
if exists $arg{"${_}s"} |
|
54
|
16 |
62 |
if exists $arg{$_} and not ref $arg{$_} |
|
59
|
0 |
39 |
if (exists $arg{'override'}) |
|
67
|
22 |
25 |
if ($option eq $default) |
|
73
|
5 |
4 |
if ($att eq $option) |
|
84
|
12 |
49 |
if (exists $arg{'labels'} and exists $arg{'labels'}{$option}) { } |
|
102
|
0 |
151 |
unless defined $escape |
|
104
|
3 |
148 |
if (exists $INC{'CGI.pm'}) { } |
|
|
0 |
148 |
elsif (exists $INC{'CGI/Simple/Util.pm'}) { } |
|
|
3 |
145 |
elsif (exists $INC{'HTML/Entities.pm'}) { } |
|
|
0 |
145 |
elsif (exists $INC{'Apache/Util.pm'}) { } |