| line |
true |
false |
branch |
|
71
|
8 |
0 |
unless ('Parse::PlainConfig' eq $class) |
|
78
|
8 |
0 |
if defined *{"${class}::_globals";} |
|
81
|
8 |
0 |
if (scalar keys %_globals) |
|
85
|
0 |
40 |
unless $settings->set($_, $_globals{$_}) |
|
91
|
8 |
0 |
unless ('Parse::PlainConfig' eq $class) |
|
98
|
8 |
0 |
if defined *{"${class}::_parameters";} |
|
101
|
8 |
0 |
if (scalar keys %_parameters) |
|
106
|
8 |
32 |
$_parameters{$_} == 512 ? : |
|
|
0 |
40 |
unless (_declProperty($obj, $_, 1 | ($_parameters{$_} == 512 ? 8 : $_parameters{$_}))) |
|
132
|
8 |
0 |
unless ('Parse::PlainConfig' eq $class) |
|
139
|
8 |
0 |
if defined *{"${class}::_prototypes";} |
|
142
|
8 |
0 |
if (scalar keys %_prototypes) |
|
194
|
15 |
0 |
if (popen($fn, 0)) |
|
206
|
4 |
11 |
if (@lines and grep /^\s*__END__\s*$/s, @lines) |
|
218
|
14 |
1 |
wantarray ? : |
|
234
|
66 |
0 |
if (defined $p) |
|
238
|
4 |
62 |
unless $valp |
|
244
|
62 |
4 |
$valp ? : |
|
262
|
14 |
0 |
if (defined $p) |
|
266
|
3 |
11 |
unless $valp |
|
269
|
11 |
3 |
if ($valp) |
|
270
|
11 |
0 |
if (@vals) { } |
|
277
|
0 |
0 |
if ($propTypes{$p} == 8 or $propTypes{$p} == 512) { } |
|
289
|
11 |
3 |
$valp ? : |
|
318
|
61 |
317 |
if ($lref->[0] =~ /^$regex{$_}$/s) |
|
325
|
0 |
61 |
unless ($rv and defined $prop and length $prop) |
|
327
|
37 |
27 |
if ($lref->[0] =~ /^$pregex{$_}$/s) |
|
337
|
37 |
65 |
if (defined $proto and length $proto) |
|
338
|
37 |
0 |
if (defined $prop and length $prop) { } |
|
340
|
2 |
35 |
if (exists $regex{$prop}) { } |
|
351
|
19 |
16 |
if (exists $propTypes{$prop}) { } |
|
355
|
2 |
17 |
unless ($propTypes{$prop} == $prototypes{$proto}) |
|
379
|
0 |
16 |
$prototypes{$proto} == 512 ? : |
|
384
|
16 |
0 |
if ($rv) { } |
|
389
|
9 |
7 |
unless defined $preg |
|
413
|
94 |
8 |
if ($rv) |
|
415
|
15 |
79 |
if ($propTypes{$prop} == 512) { } |
|
421
|
15 |
45 |
if ($line =~ /^\s*\Q@{[$settings->hereDoc];}\E\s*$/s) { } |
|
432
|
0 |
15 |
unless $rv |
|
438
|
79 |
0 |
defined $indent ? : |
|
442
|
63 |
75 |
if $lref->[0] =~ /^\s*$/s |
|
447
|
15 |
60 |
if not defined $indent or $iwidth >= length $indent |
|
456
|
94 |
0 |
if defined $trailer |
|
459
|
94 |
8 |
if ($rv) |
|
491
|
34 |
60 |
if ($propTypes{$prop} == 512 or $propTypes{$prop} == 8) { } |
|
499
|
45 |
15 |
if ($propTypes{$prop} == 16) { } |
|
544
|
23 |
2 |
if (@lines) |
|
548
|
410 |
23 |
defined $text && length $text ? : |
|
558
|
210 |
103 |
if ($lines[0] =~ /^$cre/s or $lines[0] =~ /^\s*(?:@{[\undef];})?$/s) |
|
565
|
1 |
102 |
if ($lines[0] =~ /^\s*include\s+(.+?)\s*$/s) |
|
568
|
0 |
1 |
unless $obj->read($glob) |
|
573
|
94 |
8 |
if (&_snarfBlock(\@lines, \$prop, \$value, $settings)) { } |
|
576
|
0 |
94 |
unless _snarfProp($obj, $prop, $value) |
|
605
|
0 |
5 |
if (@_) { } |
|
|
4 |
1 |
elsif (ref $source eq '') { } |
|
|
1 |
0 |
elsif (ref $source eq 'Paranoid::Glob') { } |
|
609
|
0 |
0 |
unless $obj->read($_) |
|
614
|
4 |
0 |
if (&slurp($source, \@lines)) { } |
|
616
|
0 |
4 |
unless $rv |
|
628
|
0 |
1 |
unless $obj->read($_) |
|
633
|
0 |
0 |
if (&slurp($source, \@lines)) { } |
|
635
|
0 |
0 |
unless $rv |
|
667
|
19 |
22 |
if ($propTypes{$_} == 8 or $propTypes{$_} == 512) { } |
|
697
|
2 |
1 |
if (defined $proto and length $proto) { } |
|
698
|
2 |
0 |
if (exists $preg{$proto}) { } |
|
725
|
11 |
0 |
if (defined $msg) { } |