line |
true |
false |
branch |
41
|
0 |
0 |
if (defined $class) { } |
53
|
0 |
0 |
unless defined $Eobj::classes{$class} |
109
|
0 |
4 |
if $Eobj::classes{$class} |
112
|
0 |
4 |
unless defined $papa |
128
|
0 |
0 |
unless -d $dir |
141
|
0 |
0 |
unless opendir DIR, $dir |
148
|
0 |
0 |
if $file eq '.' or $file eq '..' |
151
|
0 |
0 |
if (-d $thefile) { } |
152
|
0 |
0 |
unless $file =~ /^[a-zA-Z][a-zA-Z0-9_]*$/ |
156
|
0 |
0 |
unless defined $class |
158
|
0 |
0 |
if $Eobj::classes{$class} |
169
|
0 |
0 |
unless $newclasses{$newpapa} |
181
|
0 |
0 |
unless ($Eobj::classes{$class}) |
182
|
0 |
0 |
if defined $papa |
187
|
0 |
0 |
unless ref $Eobj::classes{$class} |
214
|
0 |
0 |
unless ($Eobj::classes{$class}) |
218
|
0 |
0 |
unless ref $Eobj::classes{$class} |
233
|
0 |
0 |
if (${$Eobj::classes{$parent};}[2] ne $class) { } |
257
|
0 |
0 |
unless defined $p |
258
|
0 |
0 |
if ref $p |
267
|
0 |
7 |
unless defined $p |
272
|
3 |
4 |
unless ref $p |
291
|
0 |
4 |
unless open CLASSFILE, $file |
296
|
0 |
4 |
if $@ |
301
|
0 |
0 |
if ref $Eobj::globalobject |
310
|
0 |
0 |
unless defined $extraindent |
317
|
0 |
0 |
if (/^.{0,79}$/) |
324
|
0 |
0 |
unless defined $x |
327
|
0 |
0 |
unless defined $x |
331
|
0 |
0 |
if (not defined $x) { } |
342
|
0 |
0 |
if $data =~ /\n$/ |
366
|
0 |
0 |
if $method eq 'DESTROY' |
382
|
2 |
3 |
if $method =~ /::SUPER::/ |
389
|
0 |
3 |
if $method eq 'DESTROY' |
391
|
0 |
3 |
unless $class eq $package |
392
|
0 |
3 |
unless $class eq $package |
395
|
0 |
3 |
if ($name) |
404
|
0 |
3 |
if $UNIVERSAL::blacklist{$class} |