| line |
true |
false |
branch |
|
15
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
16
|
0 |
1 |
if $ENV{'AUTOLOAD_LIB'} |
|
17
|
1 |
0 |
if ($lib =~ m[^[^/]]) |
|
23
|
1 |
0 |
if $hook |
|
30
|
4 |
0 |
if ($path =~ s[/+[^/]*$ ][]x) |
|
31
|
2 |
2 |
if -d $path |
|
33
|
0 |
2 |
if lstat $path |
|
34
|
2 |
0 |
if (mkbase($path)) |
|
35
|
0 |
2 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
44
|
0 |
2 |
unless $url =~ m[^\w+://] |
|
47
|
0 |
0 |
if ($contents =~ /The document has moved /) |
|
49
|
0 |
0 |
if ++$recurse->{$bounce} > 3 |
|
50
|
0 |
0 |
if ++$recurse->{'total'} < 21 |
|
59
|
0 |
0 |
if ($rel =~ m[http://] or not $last_fetched =~ m[^(http://[^/]+)(/?.*)]) |
|
64
|
0 |
0 |
if ($rel =~ m[^/]) |
|
77
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
113
|
0 |
0 |
if ($write) |
|
116
|
0 |
0 |
unless open my $fh, ">", $write |
|
127
|
0 |
2 |
if (-f $cache_file) |
|
131
|
0 |
2 |
unless mkbase($cache_file) |
|
132
|
0 |
2 |
if $INC[0] eq \&Acme::AutoLoad::ignore |
|
134
|
2 |
0 |
if ($f =~ m[^(([\w/]+)\.pm)]) |
|
142
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
143
|
0 |
0 |
if ($search =~ m[download_url.*?(\w+/[\w\-\.]+)\.tar.gz]) |
|
145
|
0 |
0 |
if ($search =~ /"distribution"\s*:\s*"(.*?)"/ and $dist ne $1) |
|
146
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
149
|
0 |
0 |
if (my $MANIFEST = fetch("$src/MANIFEST")) { } |
|
150
|
0 |
0 |
if $last_fetched =~ m[^(.*?)/+MANIFEST] |
|
151
|
0 |
0 |
if ($MANIFEST =~ m[^lib/]m) { } |
|
152
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
155
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
158
|
0 |
0 |
unless (-f $cache) |
|
165
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
167
|
0 |
0 |
unless (-f $cache_file) |
|
169
|
0 |
0 |
if ($f =~ /(\w+\.pm)/) { } |
|
171
|
0 |
0 |
if ($MANIFEST =~ /^(.*$stub)$/m) { } |
|
178
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
193
|
0 |
0 |
if (open my $fh, "<", $cache_file) |
|
206
|
2 |
0 |
if (m[^([\w\-\.]+:\d+)(/.*)]) |
|
209
|
0 |
0 |
unless my $r = "IO::Socket::INET"->new($host) |