| line |
true |
false |
branch |
|
74
|
1 |
4 |
if (@_ == 1) { } |
|
90
|
407 |
7 |
$_[0] =~ /(['"]) (.*) \1/msx ? : |
|
93
|
20 |
2 |
$_[0] =~ /$SPACE $id = ($ATTR_VALUE)/msx ? : |
|
96
|
91 |
87 |
$_[0] =~ /$SPACE $type = ($ATTR_VALUE)/msx ? : |
|
99
|
228 |
3 |
$_[0] =~ /$SPACE $name = ($ATTR_VALUE)/msx ? : |
|
102
|
75 |
43 |
$_[0] =~ /$SPACE $value = ($ATTR_VALUE)/msx ? : |
|
121
|
141 |
103 |
if (ref $self and not @_) |
|
141
|
46 |
57 |
if (ref $self) |
|
143
|
68 |
147 |
ref $val eq 'HASH' ? : |
|
149
|
1 |
91 |
unless defined $val |
|
151
|
8 |
83 |
if ($opt eq 'ignore_fields' or $opt eq 'disable_fields') { } |
|
|
27 |
56 |
elsif ($opt eq 'fill_password') { } |
|
|
21 |
35 |
elsif ($opt eq 'target') { } |
|
|
3 |
32 |
elsif ($opt eq 'escape') { } |
|
|
0 |
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 |
213 |
unless defined $src |
|
197
|
2 |
211 |
unless defined $q |
|
205
|
190 |
20 |
if (ref $src eq 'SCALAR') { } |
|
|
7 |
13 |
elsif (ref $src eq 'ARRAY') { } |
|
214
|
11 |
2 |
if ($is_fh or not ref $src) { } |
|
215
|
6 |
5 |
unless ($is_fh) |
|
216
|
1 |
5 |
unless open my $in, '<' . $context->{'layer'}, $src |
|
238
|
21 |
182 |
if (defined $context->{'target'}) { } |
|
245
|
11 |
11 |
defined $id && $context->{'target'} eq $id ? : |
|
279
|
9 |
169 |
if ($context->{'ignore_types'}{$type}) |
|
283
|
21 |
148 |
unless my $values_ref = $context->_get_param(_get_name($tag)) |
|
286
|
44 |
104 |
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 |
75 |
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 |
223 |
if not defined $name or $context->{'ignore_fields'}{$name} |
|
371
|
200 |
23 |
unless (defined $ref) |
|
375
|
7 |
193 |
if ($context->{'utf8'}) |
|
377
|
5 |
2 |
unless utf8::is_utf8($datum) |
|
382
|
201 |
22 |
@{$ref;} ? : |
|
404
|
2 |
45 |
unless (%entity2char) |
|
408
|
0 |
2 |
unless open my $data_in, '<', '/root/.cpan/build/HTML-FillInForm-Lite-1.15-tDch4E/blib/lib/HTML/FillInForm/Lite.pm' |
|
410
|
0 |
2 |
unless eval scalar <$data_in> |
|
413
|
1 |
10 |
unless $entity2char{$1} |
|
438
|
130 |
86 |
if (not &Scalar::Util::blessed($ref)) { } |
|
|
83 |
3 |
elsif ($ref->can('param')) { } |
|
440
|
118 |
12 |
if ($type eq 'HASH') { } |
|
|
5 |
7 |
elsif ($type eq 'ARRAY') { } |
|
|
2 |
5 |
elsif ($type eq 'CODE') { } |
|
444
|
126 |
4 |
defined $_ ? : |
|
|
23 |
130 |
ref $_ eq 'ARRAY' ? : |
|
474
|
6 |
111 |
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]) ? : |