| line |
true |
false |
branch |
|
35
|
0 |
0 |
if (defined $class) { } |
|
48
|
0 |
0 |
unless defined $Perlilog::classes{$class} |
|
107
|
0 |
18 |
if $Perlilog::classes{$class} |
|
109
|
0 |
18 |
unless defined $papa |
|
125
|
0 |
0 |
unless -d $dir |
|
138
|
0 |
0 |
unless opendir DIR, $dir |
|
145
|
0 |
0 |
if $file eq '.' or $file eq '..' |
|
148
|
0 |
0 |
if (-d $thefile) { } |
|
149
|
0 |
0 |
unless $file =~ /^[a-zA-Z][a-zA-Z0-9_]*$/ |
|
153
|
0 |
0 |
unless defined $class |
|
157
|
0 |
0 |
if $Eobj::classes{$class} |
|
168
|
0 |
0 |
unless $newclasses{$newpapa} |
|
178
|
0 |
0 |
unless ($Perlilog::classes{$class}) |
|
179
|
0 |
0 |
if defined $papa |
|
185
|
0 |
0 |
unless ref $Perlilog::classes{$class} |
|
211
|
0 |
0 |
unless ($Perlilog::classes{$class}) |
|
216
|
0 |
0 |
unless ref $Perlilog::classes{$class} |
|
230
|
0 |
0 |
if (do {
$Perlilog::classes{$parent}
}->[2] ne $class) { } |
|
254
|
0 |
4 |
unless defined $p |
|
255
|
4 |
0 |
if ref $p |
|
261
|
0 |
4 |
unless definedclass($class) |
|
271
|
0 |
8 |
unless defined $p |
|
276
|
3 |
5 |
unless ref $p |
|
295
|
0 |
5 |
unless open CLASSFILE, $file |
|
300
|
0 |
5 |
if $@ |
|
305
|
0 |
0 |
if ref $Perlilog::globalobject |
|
318
|
0 |
0 |
if defined $Perlilog::interface_rec |
|
324
|
0 |
0 |
if grep {not $g->isobject($_);} @_ |
|
333
|
0 |
0 |
if (@obj) { } |
|
343
|
0 |
0 |
if ($g->isobject($p)) { } |
|
356
|
0 |
0 |
unless length $excuses |
|
366
|
0 |
0 |
unless defined $Perlilog::interface_rec |
|
368
|
0 |
0 |
if ($Perlilog::interface_rec < 0) |
|
380
|
0 |
0 |
if (@obj) |
|
381
|
0 |
0 |
if (globalobj()->isobject($obj[0])) |
|
385
|
0 |
0 |
if defined $obj[0] and $obj[0] =~ /[a-z]/i |
|
399
|
0 |
0 |
unless defined $extraindent |
|
406
|
0 |
0 |
if (/^.{0,79}$/) |
|
413
|
0 |
0 |
unless defined $x |
|
416
|
0 |
0 |
unless defined $x |
|
420
|
0 |
0 |
if (not defined $x) { } |
|
431
|
0 |
0 |
if $data =~ /\n$/ |
|
451
|
3 |
3 |
if $method =~ /::SUPER::/ |
|
458
|
0 |
3 |
if $method eq 'DESTROY' |
|
460
|
0 |
3 |
unless $class eq $package |
|
461
|
0 |
3 |
unless $class eq $package |
|
464
|
0 |
3 |
if ($name) |
|
474
|
0 |
3 |
if $UNIVERSAL::blacklist{$class} |