Branch Coverage

blib/lib/Org/Parser.pm
Criterion Covered Total %
branch 23 34 67.6


line true false branch
16 2 94 unless defined $arg
23 90 4 if (not $r) { }
1 3 elsif ($r eq 'ARRAY') { }
1 2 elsif ($r eq 'GLOB' or &blessed($arg) and $arg->isa('IO::Handle')) { }
1 1 elsif ($r eq 'CODE') { }
54 3 10 if $opts
65 0 10 if (not $cf and $opts->{'cache'} // $ENV{'PERL_ORG_PARSER_CACHE'})
71 0 0 if (-d $_) { }
0 0 elsif (mkdir $_) { }
74 0 0 unless $dir
75 0 0 unless my $abs = Cwd::abs_path($filename)
79 3 10 if ($cf)
82 1 2 if ($cache)
85 1 0 unless $loaded++
88 0 1 if ($@)
95 12 1 unless $cache
96 1 11 if (defined $cache and not $cache)