| line |
true |
false |
branch |
|
13
|
0 |
2 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
14
|
0 |
2 |
if $ENV{'AUTOLOAD_LIB'} |
|
15
|
2 |
0 |
if ($lib =~ m[^[^/]]) |
|
26
|
3 |
0 |
if ($path =~ s[/+[^/]*$ ][]x) |
|
27
|
2 |
1 |
if -d $path |
|
29
|
0 |
1 |
if lstat $path |
|
30
|
1 |
0 |
if (mkbase($path)) |
|
31
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
40
|
0 |
3 |
unless $url =~ m[^\w+://] |
|
43
|
0 |
3 |
if ($contents =~ /The document has moved /) |
|
45
|
0 |
0 |
if ($recurse->{$bounce} and $recurse->{$bounce} > 2) |
|
49
|
0 |
0 |
if $recurse->{'total'}++ < 20 |
|
58
|
0 |
2 |
if ($rel =~ m[http://] or not $last_fetched =~ m[^(http://[^/]+)(/?.*)]) |
|
63
|
1 |
1 |
if ($rel =~ m[^/]) |
|
76
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
112
|
1 |
0 |
if ($write) |
|
115
|
0 |
1 |
unless open my $fh, '>', $write |
|
126
|
0 |
1 |
if (-f $cache_file) |
|
130
|
0 |
1 |
unless mkbase($cache_file) |
|
131
|
1 |
0 |
if $INC[-1] eq \&botstrap::inc |
|
133
|
1 |
0 |
if ($f =~ m[^([\w/]+)\.pm]) |
|
142
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
143
|
1 |
0 |
if ($search =~ m[download_url.*?(\w+/[\w\d\-\.]+)\.tar.gz]) |
|
145
|
1 |
0 |
if (my $MANIFEST = fetch("$src/MANIFEST")) { } |
|
146
|
1 |
0 |
if $last_fetched =~ m[^(.*?)/+MANIFEST] |
|
147
|
1 |
0 |
if ($MANIFEST =~ m[^lib/]m) { } |
|
148
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
151
|
0 |
1 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
154
|
1 |
0 |
unless (-f $cache) |
|
161
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
163
|
0 |
1 |
unless (-f $cache_file) |
|
165
|
0 |
0 |
if ($f =~ /(\w+\.pm)/) { } |
|
167
|
0 |
0 |
if ($MANIFEST =~ /^(.*$stub)$/m) { } |
|
174
|
0 |
0 |
if $ENV{'AUTOLOAD_DEBUG'} |
|
189
|
1 |
0 |
if (open my $fh, '<', $cache_file) |