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 |
322 |
if ($lref->[0] =~ /^$regex{$_}$/s) |
325
|
0 |
61 |
unless ($rv and defined $prop and length $prop) |
327
|
37 |
29 |
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) { } |