Branch Coverage

blib/lib/Perlilog.pm
Criterion Covered Total %
branch 17 96 17.7


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}