Branch Coverage

blib/lib/Eobj.pm
Criterion Covered Total %
branch 14 76 18.4


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}