| line |
true |
false |
branch |
|
17
|
0 |
2 |
if ($^O =~ /^(dos|os2)/i) { }
|
|
|
0 |
2 |
elsif ($^O =~ /^MacOS/i) { }
|
|
34
|
1 |
17 |
if ($name =~ m[/|\.pm\z]) { }
|
|
|
0 |
17 |
elsif ($SEPARATOR ne '/' and $name =~ /\Q$SEPARATOR\E/) { }
|
|
38
|
0 |
1 |
if $SEPARATOR ne "/"
|
|
48
|
0 |
17 |
if $SEPARATOR ne "/"
|
|
58
|
5 |
8 |
unless defined $opts->{'die'}
|
|
67
|
0 |
145 |
unless defined $entry
|
|
70
|
0 |
145 |
if ($ref eq 'ARRAY') { }
|
|
|
1 |
144 |
elsif (UNIVERSAL::can($entry, 'INC')) { }
|
|
|
0 |
144 |
elsif ($ref eq 'CODE') { }
|
|
73
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
77
|
0 |
1 |
if ($opts->{'die'}) { }
|
|
|
1 |
0 |
if ($@)
|
|
81
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
84
|
8 |
136 |
if (-f $path) { }
|
|
|
35 |
101 |
elsif ($opts->{'find_prefix'}) { }
|
|
86
|
0 |
8 |
unless (open $fh, "<", $path)
|
|
87
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
90
|
4 |
4 |
wantarray ? :
|
|
91
|
2 |
2 |
wantarray ? :
|
|
|
4 |
4 |
if ($opts->{'all'}) { }
|
|
94
|
2 |
33 |
if (-d $path)
|
|
95
|
1 |
1 |
wantarray ? :
|
|
96
|
1 |
1 |
wantarray ? :
|
|
|
0 |
2 |
if ($opts->{'all'}) { }
|
|
101
|
0 |
138 |
if ($is_hook)
|
|
102
|
0 |
0 |
unless @hook_res
|
|
105
|
0 |
0 |
if ref $hook_res[0] eq "SCALAR"
|
|
106
|
0 |
0 |
if ref $hook_res[0] eq "GLOB"
|
|
107
|
0 |
0 |
if ref $hook_res[0] eq "CODE"
|
|
108
|
0 |
0 |
if @hook_res
|
|
109
|
0 |
0 |
if ($fh) { }
|
|
|
0 |
0 |
elsif ($code) { }
|
|
114
|
0 |
0 |
if ($code)
|
|
119
|
0 |
0 |
if $prepend_ref
|
|
126
|
0 |
0 |
if $prepend_ref
|
|
129
|
0 |
0 |
if ($opts->{'die'}) { }
|
|
|
0 |
0 |
if ($@)
|
|
130
|
0 |
0 |
wantarray ? :
|
|
131
|
0 |
0 |
wantarray ? :
|
|
|
0 |
0 |
if ($opts->{'all'}) { }
|
|
135
|
2 |
4 |
if (@res) { }
|
|
136
|
1 |
1 |
wantarray ? :
|
|
138
|
1 |
3 |
if ($opts->{'die'}) { }
|
|
152
|
2 |
3 |
if exists $INC{$name_pm}
|
|
154
|
3 |
0 |
unless $opts
|
|
155
|
1 |
2 |
defined $res ? :
|