| line |
true |
false |
branch |
|
16
|
2 |
94 |
unless defined $arg
|
|
22
|
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') { }
|
|
57
|
0 |
10 |
if (not $cf and $opts->{'cache'} // $ENV{'PERL_ORG_PARSER_CACHE'})
|
|
63
|
0 |
0 |
if (-d $_) { }
|
|
|
0 |
0 |
elsif (mkdir $_) { }
|
|
66
|
0 |
0 |
unless $dir
|
|
67
|
0 |
0 |
unless my $abs = Cwd::abs_path($filename)
|
|
71
|
3 |
10 |
if ($cf)
|
|
74
|
1 |
2 |
if ($cache)
|
|
77
|
1 |
0 |
unless $loaded++
|
|
79
|
0 |
1 |
if ($@)
|
|
86
|
12 |
1 |
unless $cache
|
|
87
|
1 |
11 |
if (defined $cache and not $cache)
|