| 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
|
0 |
0 |
if ($path =~ s[/+[^/]*$ ][]x) |
|
31
|
0 |
0 |
if -d $path |
|
33
|
0 |
0 |
if lstat $path |
|
34
|
0 |
0 |
if (mkbase($path)) |
|
35
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
44
|
0 |
0 |
unless $url =~ m[^\w+://] |
|
47
|
0 |
0 |
if ($contents =~ /The document has moved /) |
|
49
|
0 |
0 |
if ($recurse->{$bounce} and $recurse->{$bounce} > 2) |
|
53
|
0 |
0 |
if $recurse->{'total'}++ < 20 |
|
62
|
0 |
0 |
if ($rel =~ m[http://] or not $last_fetched =~ m[^(http://[^/]+)(/?.*)]) |
|
67
|
0 |
0 |
if ($rel =~ m[^/]) |
|
80
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
116
|
0 |
0 |
if ($write) |
|
119
|
0 |
0 |
unless open my $fh, '>', $write |
|
130
|
0 |
0 |
if (-f $cache_file) |
|
134
|
0 |
0 |
unless mkbase($cache_file) |
|
135
|
0 |
0 |
if $INC[0] eq \&Acme::AutoLoad::ignore |
|
137
|
0 |
0 |
if ($f =~ m[^([\w/]+)\.pm]) |
|
146
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
147
|
0 |
0 |
if ($search =~ m[download_url.*?(\w+/[\w\d\-\.]+)\.tar.gz]) |
|
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
|
0 |
0 |
if (m[^([\w\-\.]+:\d+)(/.*)]) |
|
209
|
0 |
0 |
unless my $r = 'IO::Socket::INET'->new($host) |