Branch Coverage

blib/lib/Medical/Growth/Base.pm
Criterion Covered Total %
branch 16 16 100.0


line true false branch
19 2 3 if (not defined $file) { }
1 2 elsif (openhandle $file) { }
20 1 1 if ref $callpkg
28 1 1 unless (open $fh, '<', $file)
36 4 22 if /^__END__/
40 10 12 if /^(?:#.*|\s*)$/
44 1 3 if ($opened_here) { }
2 1 elsif ($pos) { }