| line |
true |
false |
branch |
|
66
|
42 |
0 |
if (defined *{"${class}::ISA";}{"ARRAY"}) |
|
75
|
12 |
30 |
if scalar @classes or grep {$_ eq __PACKAGE__;} @{*{"${class}::ISA";}{"ARRAY"};} |
|
81
|
14 |
0 |
unless exists $c{$c} |
|
112
|
10 |
0 |
unless (__PACKAGE__ eq $class) |
|
115
|
12 |
0 |
if (defined *{"${class}::_globals";}) |
|
124
|
10 |
2 |
if (scalar keys %new) |
|
129
|
0 |
50 |
unless $settings->set($_, $_globals{$_}) |
|
136
|
12 |
0 |
if (defined *{"${class}::_parameters";}) |
|
145
|
12 |
0 |
if (scalar keys %new) |
|
151
|
10 |
42 |
$_parameters{$_} == 1024 ? : |
|
|
0 |
52 |
unless (_declProperty($obj, $_, 1 | ($_parameters{$_} == 1024 ? 8 : $_parameters{$_}))) |
|
175
|
12 |
0 |
if (defined *{"${class}::_prototypes";}) |
|
184
|
12 |
0 |
if (scalar keys %new) |
|
240
|
23 |
0 |
if (popen($fn, 0)) |
|
252
|
12 |
11 |
if (@lines and grep /^\s*__END__\s*$/s, @lines) |
|
263
|
23 |
0 |
wantarray ? : |
|
301
|
78 |
0 |
if (defined $p) |
|
303
|
73 |
5 |
if ($valp) |
|
305
|
7 |
66 |
if $valt == 1024 |
|
309
|
5 |
73 |
unless $valp |
|
313
|
73 |
5 |
if (defined $valt) |
|
314
|
35 |
38 |
if ($valt == 8) { } |
|
|
31 |
7 |
elsif ($valt == 16) { } |
|
348
|
17 |
0 |
if (defined $p) |
|
352
|
4 |
13 |
unless $valp |
|
355
|
13 |
4 |
if ($valp) |
|
356
|
13 |
0 |
if (@vals) { } |
|
363
|
0 |
0 |
if ($propTypes{$p} == 8 or $propTypes{$p} == 1024) { } |
|
372
|
13 |
4 |
$valp ? : |
|
374
|
13 |
4 |
$valp ? : |
|
402
|
79 |
471 |
if ($lref->[0] =~ /^$regex{$_}$/s) |
|
409
|
0 |
79 |
unless ($rv and defined $prop and length $prop) |
|
411
|
54 |
49 |
if ($lref->[0] =~ /^$pregex{$_}$/s) |
|
421
|
54 |
84 |
if (defined $proto and length $proto) |
|
422
|
54 |
0 |
if (defined $prop and length $prop) { } |
|
424
|
3 |
51 |
if (exists $regex{$prop}) { } |
|
435
|
27 |
24 |
if (exists $propTypes{$prop}) { } |
|
439
|
3 |
24 |
unless ($propTypes{$prop} == $prototypes{$proto}) |
|
462
|
0 |
24 |
$prototypes{$proto} == 1024 ? : |
|
467
|
24 |
0 |
if ($rv) { } |
|
472
|
15 |
9 |
unless defined $preg |
|
496
|
127 |
11 |
if ($rv) |
|
498
|
18 |
109 |
if ($propTypes{$prop} == 1024) { } |
|
504
|
18 |
54 |
if ($line =~ /^\s*\Q@{[$settings->hereDoc];}\E\s*$/s) { } |
|
515
|
0 |
18 |
unless $rv |
|
521
|
109 |
0 |
defined $indent ? : |
|
525
|
87 |
93 |
if $lref->[0] =~ /^\s*$/s |
|
530
|
21 |
72 |
if not defined $indent or $iwidth >= length $indent |
|
539
|
127 |
0 |
if defined $trailer |
|
542
|
127 |
11 |
if ($rv) |
|
572
|
55 |
72 |
if ($propTypes{$prop} == 1024 or $propTypes{$prop} == 8) { } |
|
580
|
54 |
18 |
if ($propTypes{$prop} == 16) { } |
|
623
|
29 |
2 |
if (@lines) |
|
627
|
530 |
29 |
defined $text && length $text ? : |
|
637
|
276 |
139 |
if ($lines[0] =~ /^$cre/s or $lines[0] =~ m[^\s*(?:@{[qr/(?:\15\12|\15|\12)/s];})?$]s) |
|
644
|
1 |
138 |
if ($lines[0] =~ /^\s*include\s+(.+?)\s*$/s) |
|
647
|
0 |
1 |
unless $obj->read($glob) |
|
652
|
127 |
11 |
if (&_snarfBlock(\@lines, \$prop, \$value, $settings)) { } |
|
655
|
0 |
127 |
unless _snarfProp($obj, $prop, $value) |
|
682
|
0 |
5 |
if (@_) { } |
|
|
4 |
1 |
elsif (ref $source eq '') { } |
|
|
1 |
0 |
elsif (ref $source eq 'Paranoid::Glob') { } |
|
686
|
0 |
0 |
unless $obj->read($_) |
|
691
|
4 |
0 |
if (&slurp($source, \@lines)) { } |
|
693
|
0 |
4 |
unless $rv |
|
705
|
0 |
1 |
unless $obj->read($_) |
|
710
|
0 |
0 |
if (&slurp($source, \@lines)) { } |
|
712
|
0 |
0 |
unless $rv |
|
742
|
25 |
26 |
if ($propTypes{$_} == 8 or $propTypes{$_} == 1024) { } |
|
771
|
4 |
2 |
if (defined $proto and length $proto) { } |
|
772
|
4 |
0 |
if (exists $preg{$proto}) { } |
|
798
|
15 |
0 |
if (defined $msg) { } |