| line |
true |
false |
branch |
|
35
|
0 |
9 |
if (defined &Params::Util::_STRING($_[-1]) and $_[-1] eq '-DEBUG') |
|
42
|
0 |
9 |
if (defined &Params::Util::_STRING($_[1])) { } |
|
|
9 |
0 |
elsif (&Params::Util::_HASH($_[1])) { } |
|
56
|
0 |
9 |
if ($params{'create'} and ref $params{'create'}) |
|
61
|
9 |
0 |
unless (defined $params{'package'}) |
|
68
|
0 |
9 |
$params{'show_progress'} ? : |
|
69
|
0 |
9 |
$params{'env_proxy'} ? : |
|
72
|
3 |
6 |
unless (defined $params{'array'}) |
|
78
|
6 |
3 |
unless (defined $maxage) |
|
81
|
0 |
9 |
unless (&Params::Util::_NONNEGINT($maxage)) |
|
87
|
4 |
5 |
if ($stub) |
|
88
|
2 |
2 |
if $stub eq '1' |
|
91
|
0 |
4 |
unless (-f $stub) |
|
98
|
7 |
2 |
unless (defined $update) |
|
99
|
2 |
5 |
$stub ? : |
|
101
|
0 |
9 |
unless ($update =~ /^(?:compile|connect)$/) |
|
106
|
0 |
9 |
$^O eq 'MSWin32' ? : |
|
113
|
7 |
2 |
unless (-e $dir) |
|
115
|
7 |
0 |
if $params{'prune'} |
|
125
|
5 |
4 |
$url =~ /(\.gz|\.bz2)$/ ? : |
|
126
|
8 |
1 |
unless (-f $path) |
|
127
|
8 |
0 |
if $params{'prune'} |
|
132
|
0 |
0 |
unless ($online or -f $path or $stub) |
|
139
|
8 |
1 |
unless (-f $db) |
|
140
|
3 |
5 |
if ($update eq 'connect' and $stub) { } |
|
142
|
0 |
3 |
unless File::Copy::copy($stub, $db) |
|
148
|
8 |
0 |
if $params{'prune'} |
|
157
|
1 |
5 |
-f $path ? : |
|
|
5 |
1 |
if (not $STUBBED and -f $path ? $old && $online : 1) |
|
160
|
5 |
0 |
unless ($useragent) |
|
171
|
0 |
5 |
unless ($response->is_success or $response->code == 304) |
|
177
|
2 |
3 |
if ($path =~ /\.gz$/) { } |
|
|
1 |
2 |
elsif ($path =~ /\.bz2$/) { } |
|
178
|
2 |
0 |
unless ($response->code == 304 and -f $path) |
|
180
|
0 |
2 |
unless IO::Uncompress::Gunzip::gunzip($path, $db, 'BinModeOut', 1) |
|
187
|
1 |
0 |
unless ($response->code == 304 and -f $path) |
|
189
|
0 |
1 |
unless IO::Uncompress::Bunzip2::bunzip2($path, $db, 'BinModeOut', 1) |
|
198
|
1 |
4 |
if ($refreshed and $params{'index'}) |
|
217
|
4 |
5 |
if ($update eq 'connect') |
|
220
|
2 |
2 |
if ($path =~ /\.gz$/) { } |
|
|
0 |
2 |
elsif ($path =~ /\.bz2$/) { } |
|
328
|
0 |
9 |
$DEBUG ? : |