| line |
true |
false |
branch |
|
49
|
42 |
26 |
ref $text ? : |
|
63
|
42 |
26 |
ref $text ? : |
|
74
|
2 |
140 |
UNIVERSAL::isa($form, 'ARRAY') ? : |
|
75
|
3 |
139 |
if UNIVERSAL::isa($ignore, "ARRAY") |
|
76
|
139 |
3 |
unless defined $fill_password |
|
82
|
3 |
139 |
defined $args->{'remove_script'} ? : |
|
|
139 |
3 |
if (defined $args->{'remove_script'} ? $args->{'remove_script'} : $REMOVE_SCRIPT) |
|
85
|
3 |
139 |
defined $args->{'remove_comment'} ? : |
|
|
139 |
3 |
if (defined $args->{'remove_comment'} ? $args->{'remove_comment'} : $REMOVE_COMMENT) |
|
93
|
3 |
139 |
if ($target) |
|
113
|
0 |
3 |
if $#comment != -1 |
|
114
|
0 |
3 |
if $#script != -1 |
|
123
|
0 |
138 |
unless (defined $key and length $key) |
|
124
|
0 |
0 |
$all ? : |
|
130
|
0 |
140 |
unless ref $form |
|
131
|
118 |
22 |
if (UNIVERSAL::isa($form, 'HASH') and defined $form->{$key}) { } |
|
|
3 |
19 |
elsif ($meth = UNIVERSAL::can($form, $args->{'object_method'} || $OBJECT_METHOD)) { } |
|
|
1 |
18 |
elsif (UNIVERSAL::isa($form, 'CODE')) { } |
|
136
|
2 |
1 |
if defined $val |
|
139
|
1 |
0 |
if defined $val |
|
142
|
17 |
121 |
unless (defined $val) |
|
143
|
11 |
6 |
$all ? : |
|
147
|
1 |
120 |
if (UNIVERSAL::isa($val, "CODE")) |
|
150
|
26 |
95 |
if (UNIVERSAL::isa($val, 'ARRAY')) { } |
|
|
0 |
95 |
elsif (ref $val) { } |
|
158
|
26 |
95 |
ref $val ? : |
|
162
|
40 |
81 |
if ($all) { } |
|
|
16 |
65 |
elsif (ref $val) { } |
|
163
|
10 |
30 |
ref $val ? : |
|
167
|
5 |
11 |
unless defined $ret |
|
188
|
115 |
4 |
if ($name and not $ignore->{$name}) |
|
189
|
78 |
37 |
if (not $type or $type ne 'PASSWORD' and $type ne 'CHECKBOX' and $type ne 'RADIO' or $type eq 'PASSWORD' and $fill_password) { } |
|
|
35 |
2 |
elsif ($type eq 'CHECKBOX' or $type eq 'RADIO') { } |
|
194
|
73 |
5 |
if (defined $value) { } |
|
|
2 |
3 |
elsif (not defined get_tagval_by_key(\$tag, 'value')) { } |
|
203
|
29 |
6 |
if (@$values) |
|
207
|
5 |
24 |
unless defined $fvalue |
|
208
|
29 |
0 |
if (defined $fvalue) |
|
210
|
24 |
11 |
if $_ ne $fvalue |
|
233
|
8 |
10 |
if ($i == $#start) { } |
|
|
1 |
9 |
elsif (not defined $close[$i] or $close[$i] > $start[$i + 1]) { } |
|
234
|
1 |
7 |
unless defined $close[$i] |
|
241
|
0 |
18 |
unless $opts =~ s/
( |
|
246
|
0 |
18 |
unless $opts |
|
249
|
1 |
17 |
unless defined $name and length $name |
|
250
|
1 |
16 |
$ignore->{$name} ? : |
|
251
|
11 |
6 |
if ($#$values != -1) |
|
261
|
13 |
0 |
$opt =~ /^\s*(.*?)\s*$/ ? : |
|
|
18 |
13 |
@$fvalues ? : |
|
264
|
29 |
12 |
if $_ ne $fvalue |
|
270
|
11 |
0 |
if ($n) |
|
287
|
4 |
5 |
if ($i == $#start) { } |
|
|
1 |
4 |
elsif (not defined $close[$i] or $close[$i] > $start[$i + 1]) { } |
|
288
|
1 |
3 |
unless defined $close[$i] |
|
296
|
0 |
9 |
unless $oldval =~ s/
( |