| line |
true |
false |
branch |
|
76
|
2 |
1 |
if (@_ > 0) |
|
127
|
0 |
1 |
if (@_ % 2) |
|
135
|
0 |
1 |
unless ($opts{'dest'}) |
|
142
|
0 |
0 |
if ($dir and -d $dir) |
|
147
|
0 |
0 |
if (-w $path) |
|
157
|
0 |
1 |
if (not $opts{'dest'} and $ENV{'HOME'}) |
|
159
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
164
|
0 |
1 |
unless ($opts{'dest'}) |
|
169
|
0 |
1 |
unless (defined $opts{'compress'}) |
|
175
|
0 |
0 |
if (not $@) { } |
|
182
|
0 |
0 |
unless ($@) |
|
189
|
0 |
1 |
$opts{'compress'} ? : |
|
193
|
0 |
1 |
if $opts{'verbose'} |
|
198
|
0 |
1 |
unless $ua->mirror($url, $dest . $ext) |
|
201
|
0 |
1 |
if ($opts{'compress'}) |
|
203
|
0 |
0 |
if $opts{'verbose'} |
|
204
|
0 |
0 |
unless open my $out, "> $dest" |
|
207
|
0 |
0 |
if ($opts{'compress'} eq 'bz2') { } |
|
|
0 |
0 |
elsif ($opts{'compress'} eq 'gz') { } |
|
232
|
0 |
1 |
if $opts{'verbose'} |