| line |
true |
false |
branch |
|
74
|
1 |
3 |
if (@_ == 1) { } |
|
90
|
411 |
7 |
$_[0] =~ /(['"]) (.*) \1/msx ? : |
|
93
|
20 |
2 |
$_[0] =~ /$id = ($ATTR_VALUE)/msx ? : |
|
96
|
90 |
93 |
$_[0] =~ /$type = ($ATTR_VALUE)/msx ? : |
|
99
|
233 |
3 |
$_[0] =~ /$name = ($ATTR_VALUE)/msx ? : |
|
102
|
75 |
43 |
$_[0] =~ /$value = ($ATTR_VALUE)/msx ? : |
|
121
|
141 |
106 |
if (ref $self and not @_) |
|
141
|
49 |
57 |
if (ref $self) |
|
143
|
71 |
156 |
ref $val eq 'HASH' ? : |
|
149
|
1 |
94 |
unless defined $val |
|
151
|
8 |
86 |
if ($opt eq 'ignore_fields' or $opt eq 'disable_fields') { } |
|
|
27 |
59 |
elsif ($opt eq 'fill_password') { } |
|
|
21 |
38 |
elsif ($opt eq 'target') { } |
|
|
3 |
35 |
elsif ($opt eq 'escape') { } |
|
|
3 |
32 |
elsif ($opt eq 'layer') { } |
|
|
30 |
2 |
elsif ($opt eq 'decode_entity') { } |
|
163
|
2 |
1 |
if ($val) { } |
|
164
|
1 |
1 |
ref $val eq 'CODE' ? : |
|
176
|
28 |
2 |
if ($val) { } |
|
177
|
1 |
27 |
ref $val eq 'CODE' ? : |
|
196
|
3 |
215 |
unless defined $src |
|
197
|
2 |
213 |
unless defined $q |
|
205
|
189 |
23 |
if (ref $src eq 'SCALAR') { } |
|
|
7 |
16 |
elsif (ref $src eq 'ARRAY') { } |
|
214
|
14 |
2 |
if ($is_fh or not ref $src) { } |
|
215
|
9 |
5 |
unless ($is_fh) |
|
216
|
1 |
8 |
unless open my $in, '<' . $$context{'layer'}, $src |
|
238
|
21 |
184 |
if (defined $$context{'target'}) { } |
|
245
|
11 |
11 |
defined $id && $$context{'target'} eq $id ? : |
|
279
|
9 |
174 |
if ($$context{'ignore_types'}{$type}) |
|
283
|
24 |
150 |
unless my $values_ref = $context->_get_param(_get_name($tag)) |
|
286
|
44 |
106 |
if ($type eq 'checkbox' or $type eq 'radio') { } |
|
289
|
7 |
37 |
if (not defined $value) { } |
|
296
|
24 |
20 |
if (grep {$value eq $_;} @{$values_ref;}) { } |
|
297
|
19 |
5 |
unless $tag =~ /$CHECKED/msx |
|
308
|
29 |
77 |
unless $tag =~ s/$value = $ATTR_VALUE/value="$new_value"/msx |
|
317
|
6 |
37 |
unless my $values_ref = $context->_get_param(_get_name($tag)) |
|
320
|
24 |
13 |
unless ($tag =~ /$MULTIPLE/mosx) |
|
332
|
36 |
38 |
unless (defined $value) |
|
342
|
40 |
34 |
if (grep {$value eq $_;} @{$values_ref;}) { } |
|
343
|
38 |
2 |
unless $tag =~ /$SELECTED/mosx |
|
356
|
3 |
16 |
unless my $values_ref = $context->_get_param(_get_name($tag)) |
|
367
|
8 |
228 |
if not defined $name or $$context{'ignore_fields'}{$name} |
|
371
|
205 |
23 |
unless (defined $ref) |
|
375
|
13 |
192 |
if ($$context{'utf8'}) |
|
377
|
5 |
5 |
unless utf8::is_utf8($datum) |
|
382
|
203 |
25 |
@{$ref;} ? : |
|
404
|
2 |
45 |
unless (%entity2char) |
|
408
|
0 |
2 |
unless open my $data_in, '<', '/.cpan/build/HTML-FillInForm-Lite-1.13-0U9BbR/blib/lib/HTML/FillInForm/Lite.pm' |
|
410
|
0 |
2 |
unless eval scalar <$data_in> |
|
413
|
1 |
10 |
unless $entity2char{$1} |
|
438
|
132 |
86 |
if (not &Scalar::Util::blessed($ref)) { } |
|
|
83 |
3 |
elsif ($ref->can('param')) { } |
|
440
|
120 |
12 |
if ($type eq 'HASH') { } |
|
|
5 |
7 |
elsif ($type eq 'ARRAY') { } |
|
|
2 |
5 |
elsif ($type eq 'CODE') { } |
|
442
|
128 |
4 |
defined $_ ? : |
|
|
23 |
132 |
ref $_ eq 'ARRAY' ? : |
|
474
|
9 |
113 |
unless my $value = $$hash_ref{$key} |
|
492
|
2 |
13 |
unless my $method = ${$ref_to_object;}->can($key) |
|
495
|
1 |
12 |
@values == 1 && !defined($values[0]) ? : |