| line |
true |
false |
branch |
| 155 |
0 |
0 |
unless ref $self |
| 161 |
0 |
0 |
unless $$self{'force'} or $$self{'changes_made'} |
| 169 |
0 |
0 |
unless my $gz = &Compress::Zlib::gzopen($details, 'rb') |
| 174 |
0 |
0 |
if ($inheader) |
| 175 |
0 |
0 |
unless /\S/ |
| 180 |
0 |
0 |
if $self->_filter_module({'module', $module, 'version', $version, 'path', $path}) |
| 190 |
0 |
0 |
unless $$self{'skip_cleanup'} |
| 214 |
0 |
0 |
unless $$self{'local'} |
| 216 |
0 |
0 |
if substr($$self{'local'}, 0, 1) eq '~' |
| 219 |
0 |
0 |
if -e $$self{'local'} and not -d $$self{'local'} |
| 222 |
0 |
0 |
unless -e $$self{'local'} |
| 225 |
0 |
0 |
unless -w $$self{'local'} |
| 227 |
0 |
0 |
unless $$self{'remote'} |
| 228 |
0 |
0 |
unless &LWP::Simple::head($$self{'remote'}) |
| 278 |
0 |
0 |
if ($skip_if_present and -f $local_file) { } |
| |
0 |
0 |
elsif (($$self{'mirrored'}{$local_file} || 0) < 2) { } |
| 280 |
0 |
0 |
unless $$self{'mirrored'}{$local_file} |
| 294 |
0 |
0 |
if ($status == 200) { } |
| |
0 |
0 |
elsif ($status != 304) { } |
| 295 |
0 |
0 |
if $update_times |
| 300 |
0 |
0 |
$$self{'trace'} ? : |
| |
0 |
0 |
if $$self{'errors'} |
| 308 |
0 |
0 |
if ($path =~ m[^authors/id]) |
| 311 |
0 |
0 |
if ($path ne $checksum_path) |
| 338 |
6 |
39 |
unless $filter |
| 339 |
11 |
28 |
if (ref $filter eq 'ARRAY') |
| 341 |
7 |
18 |
if $self->__do_filter($_, $file) |
| 344 |
6 |
26 |
if (ref $filter eq 'CODE') { } |
| 355 |
6 |
13 |
if ($$self{'skip_perl'}) |
| 356 |
3 |
3 |
if $$args{'path'} =~ m[/(?:emb|syb|bio)*perl-\d]i |
| 357 |
2 |
1 |
if $$args{'path'} =~ m[/(?:parrot|ponie)-\d]i |
| 358 |
0 |
1 |
if $$args{'path'} =~ m[/\bperl5\.004]i |
| 361 |
8 |
6 |
if $self->__do_filter($$self{'path_filters'}, $$args{'path'}) |
| 362 |
0 |
6 |
if $self->__do_filter($$self{'module_filters'}, $$args{'module'}) |
| 380 |
0 |
0 |
if $$self{'exact_mirror'} |
| 381 |
0 |
0 |
substr(File::Basename::basename($file), 0, 1) eq '.' ? : |
| 399 |
0 |
0 |
unless -f $file and not $$self{'mirrored'}{$file} |
| 400 |
0 |
0 |
if $self->file_allowed($file) |
| 402 |
0 |
0 |
if ($self->clean_file($file)) { } |
| 422 |
0 |
0 |
unless (unlink $file) |
| 423 |
0 |
0 |
if $$self{'errors'} |
| 440 |
0 |
0 |
if $$self{'trace'} |
| 459 |
0 |
0 |
unless defined $homedir |
| 470 |
0 |
0 |
unless -e $filename |
| 472 |
0 |
0 |
unless open my $config_file, '<', $filename |
| 478 |
0 |
0 |
if /\A\s*\Z/ms |
| 479 |
0 |
0 |
if (/\A(\w+):\s*(.+)\Z/ms) |
| 482 |
0 |
0 |
if $config{$_} |
| 485 |
0 |
0 |
if $config{$_} |