| 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)
|