| line |
true |
false |
branch |
|
70
|
41 |
4 |
if defined $check_file and not $check_file =~ /\.zip$/ |
|
73
|
0 |
45 |
if (defined $support and not $support) |
|
78
|
2 |
43 |
if $$self{'checksums_timeout'} |
|
80
|
0 |
45 |
if (not defined $checksums) { } |
|
88
|
13 |
32 |
if (not defined $$self{'checksums'} or keys %{$$self{'checksums'};} == 0) { } |
|
95
|
3 |
29 |
if (not defined $check_file) { } |
|
96
|
3 |
0 |
if keys %$local_checksums != keys %$checksums |
|
98
|
0 |
0 |
unless exists $$local_checksums{$file} and $$local_checksums{$file} eq $$checksums{$file} |
|
104
|
0 |
22 |
unless exists $$local_checksums{$check_file} and exists $$checksums{$check_file} and $$local_checksums{$check_file} eq $$checksums{$check_file} |
|
189
|
2 |
9 |
unless defined $hash |
|
198
|
9 |
0 |
if ($$self{'checksums'}) |
|
218
|
9 |
2 |
unless defined $hash |
|
227
|
2 |
0 |
if ($$self{'checksums'}) |
|
247
|
9 |
2 |
unless defined $hash |
|
256
|
2 |
0 |
if ($$self{'checksums'}) |
|
294
|
17 |
13 |
if ($$self{$dbm_hashkey}) |
|
296
|
17 |
0 |
unless $checksums |
|
300
|
0 |
0 |
if ($$self{'checksums'}) |
|
303
|
0 |
0 |
if defined $local_checksum and defined $remote_checksum and $local_checksum eq $remote_checksum |
|
314
|
13 |
0 |
if ($checksums) { } |
|
317
|
0 |
13 |
unless defined $file |
|
322
|
0 |
0 |
unless -f $file |
|
332
|
0 |
13 |
unless ($self->_unzip_file($file, $tempfile, $dbm_remotefile)) |
|
350
|
13 |
0 |
if (ref $checksums) |
|
351
|
9 |
4 |
unless ($$self{'checksums'}) |
|
382
|
0 |
45 |
if (ref $file_or_fh eq 'GLOB') { } |
|
|
0 |
45 |
elsif (ref $file_or_fh eq 'SCALAR') { } |
|
389
|
0 |
45 |
unless open $fh, '<', $file_or_fh |
|
395
|
0 |
45 |
if $is_string |
|
398
|
0 |
405 |
$is_string ? : |
|
399
|
45 |
360 |
unless defined $_ |
|
400
|
180 |
180 |
if /^\s*$/ or /^\s*#/ |
|
402
|
0 |
180 |
unless (defined $file and defined $hash) |
|
436
|
9 |
0 |
unless ($$self{'private_cache_dir'}) |
|
443
|
0 |
0 |
if $@ |
|
444
|
0 |
0 |
if ($@) |
|
457
|
0 |
0 |
unless -f $filepath |
|
458
|
0 |
0 |
unless open my $fh, '<', $filepath |