| line |
true |
false |
branch |
|
17
|
0 |
2 |
if ($^O =~ /^(dos|os2)/i) { }
|
|
|
0 |
2 |
elsif ($^O =~ /^MacOS/i) { }
|
|
34
|
1 |
12 |
if ($name =~ m[/|\.pm\z]) { }
|
|
|
0 |
12 |
elsif ($SEPARATOR ne '/' and $name =~ /\Q$SEPARATOR\E/) { }
|
|
38
|
0 |
1 |
if $SEPARATOR ne "/"
|
|
48
|
0 |
12 |
if $SEPARATOR ne "/"
|
|
58
|
2 |
6 |
unless defined $opts->{'die'}
|
|
65
|
0 |
59 |
unless defined $entry
|
|
68
|
0 |
59 |
if ($ref eq 'ARRAY') { }
|
|
|
1 |
58 |
elsif (UNIVERSAL::can($entry, 'INC')) { }
|
|
|
0 |
58 |
elsif ($ref eq 'CODE') { }
|
|
71
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
75
|
0 |
1 |
if ($opts->{'die'}) { }
|
|
|
1 |
0 |
if ($@)
|
|
79
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
82
|
3 |
55 |
if (-f $path) { }
|
|
|
4 |
51 |
elsif ($opts->{'find_prefix'}) { }
|
|
84
|
0 |
3 |
unless (open $fh, "<", $path)
|
|
85
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
88
|
1 |
2 |
wantarray ? :
|
|
91
|
2 |
2 |
if (-d $path)
|
|
92
|
1 |
1 |
wantarray ? :
|
|
97
|
0 |
53 |
if ($is_hook)
|
|
98
|
0 |
0 |
unless @hook_res
|
|
101
|
0 |
0 |
if ref $hook_res[0] eq "SCALAR"
|
|
102
|
0 |
0 |
if ref $hook_res[0] eq "GLOB"
|
|
103
|
0 |
0 |
if ref $hook_res[0] eq "CODE"
|
|
104
|
0 |
0 |
if @hook_res
|
|
105
|
0 |
0 |
if ($fh) { }
|
|
|
0 |
0 |
elsif ($code) { }
|
|
110
|
0 |
0 |
if ($code)
|
|
115
|
0 |
0 |
if $prepend_ref
|
|
122
|
0 |
0 |
if $prepend_ref
|
|
125
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
126
|
0 |
0 |
wantarray ? :
|
|
130
|
0 |
2 |
if ($opts->{'die'}) { }
|
|
143
|
2 |
3 |
if exists $INC{$name_pm}
|
|
145
|
3 |
0 |
unless $opts
|
|
146
|
1 |
2 |
defined $res ? :
|