| line |
true |
false |
branch |
|
166
|
0 |
0 |
unless ref $self |
|
168
|
0 |
0 |
unless ($self->{'offline'}) |
|
175
|
0 |
0 |
unless -w $local |
|
181
|
0 |
0 |
unless $self->{'force'} or $self->{'changes_made'} |
|
194
|
0 |
0 |
unless $self->{'skip_cleanup'} |
|
204
|
0 |
0 |
unless my(@keys) = keys %{$$self{"recent"};} |
|
207
|
0 |
0 |
unless open my $recent_fh, ">", $recent |
|
210
|
0 |
0 |
unless print {$recent_fh;} "$file\n" |
|
213
|
0 |
0 |
unless close $recent_fh |
|
228
|
0 |
0 |
unless my $gz = &Compress::Zlib::gzopen($details, "rb") |
|
234
|
0 |
0 |
if ($inheader) |
|
235
|
0 |
0 |
if (/\S/) { } |
|
238
|
0 |
0 |
if ($header eq "File" and $value eq '02packages.details.txt' || $value eq '02packages.details.txt.gz') |
|
250
|
0 |
0 |
unless $file_ok |
|
254
|
0 |
0 |
if $self->_filter_module({"module", $module, "version", $version, "path", $path}) |
|
287
|
0 |
9 |
unless defined $self->{'dirmode'} |
|
291
|
0 |
9 |
unless $self->{'local'} |
|
294
|
0 |
9 |
if substr($self->{'local'}, 0, 1) eq "~" |
|
300
|
0 |
9 |
if -e $self->{'local'} and not -d $self->{'local'} |
|
302
|
0 |
9 |
unless (-e $self->{'local'}) |
|
312
|
0 |
9 |
unless -w $self->{'local'} |
|
314
|
0 |
9 |
unless $self->{'remote'} |
|
316
|
9 |
0 |
if substr($self->{'remote'}, -1) ne "/" |
|
319
|
0 |
9 |
unless defined $version |
|
325
|
0 |
9 |
$self->{'no_conn_cache'} ? : |
|
|
0 |
9 |
$self->{'timeout'} ? : |
|
328
|
0 |
9 |
unless ($self->{'offline'}) |
|
335
|
0 |
0 |
unless eval {
do {
$self->__lwp->head($test_uri)->is_success
}
} |
|
397
|
0 |
0 |
unless defined $dir_mode |
|
398
|
0 |
0 |
unless defined $trace |
|
404
|
0 |
0 |
unless -d $needed |
|
448
|
0 |
0 |
eval {
do {
$path->isa('URI')
}
} ? : |
|
453
|
0 |
0 |
$arg->{'to_scratch'} ? : |
|
458
|
0 |
0 |
if ($skip_if_present and -f $local_file) { } |
|
|
0 |
0 |
elsif (($self->{'mirrored'}{$local_file} || 0) < 2) { } |
|
476
|
0 |
0 |
if (not $res) { } |
|
|
0 |
0 |
elsif ($res->is_success) { } |
|
|
0 |
0 |
elsif ($res->code != 304) { } |
|
482
|
0 |
0 |
if $arg->{'update_times'} |
|
496
|
0 |
0 |
if ($path =~ m[^authors/id]) |
|
500
|
0 |
0 |
if ($path ne $checksum_path) |
|
526
|
6 |
39 |
unless $filter |
|
528
|
11 |
28 |
if (ref $filter eq "ARRAY") |
|
530
|
7 |
18 |
if $self->__do_filter($what, $_, $file) |
|
536
|
6 |
22 |
if (ref $filter eq 'CODE') { } |
|
542
|
8 |
20 |
if $match |
|
543
|
8 |
20 |
if $match |
|
551
|
6 |
13 |
if ($self->{'skip_perl'}) |
|
552
|
3 |
3 |
if $args->{'path'} =~ m[/(?:emb|syb|bio)?perl-\d]i |
|
553
|
2 |
1 |
if $args->{'path'} =~ m[/(?:parrot|ponie)-\d]i |
|
554
|
0 |
1 |
if $args->{'path'} =~ m[/(?:kurila)-\d]i |
|
555
|
0 |
1 |
if $args->{'path'} =~ m[/\bperl-?5\.004]i |
|
556
|
0 |
1 |
if $args->{'path'} =~ m[/\bperl_mlb\.zip]i |
|
559
|
8 |
6 |
if $self->__do_filter("path", $self->{'path_filters'}, $args->{'path'}) |
|
560
|
0 |
6 |
if $self->__do_filter("module", $self->{'module_filters'}, $args->{'module'}) |
|
578
|
0 |
0 |
if $self->{'exact_mirror'} |
|
581
|
0 |
0 |
if $file eq "File::Spec"->catfile($self->{'local'}, "RECENT") |
|
583
|
0 |
0 |
substr(File::Basename::basename($file), 0, 1) eq '.' ? : |
|
618
|
0 |
0 |
if ($self->{'ignore_source_control'} and exists $Source_control_files{$basename}) |
|
626
|
0 |
0 |
unless -f $file and not $self->{'mirrored'}{$file} |
|
627
|
0 |
0 |
if $self->file_allowed($file) |
|
646
|
0 |
0 |
unless (unlink $file) |
|
672
|
15 |
0 |
if ref $_[0] |
|
680
|
0 |
0 |
$arg->{'no_nl'} ? : |
|
684
|
0 |
0 |
if $_[0]->log_level eq "fatal" |
|
689
|
0 |
0 |
unless $_[0]->log_level =~ /\A(?:info|debug)\z/ |
|
700
|
8 |
0 |
unless ($_[0]->log_level || '') eq "debug" |
|
720
|
0 |
18 |
unless defined $homedir |
|
743
|
7 |
2 |
unless defined $config_file |
|
748
|
0 |
2 |
if ($options->{'log_level'} || 'info') =~ /\A(?:warn|fatal)\z/ |
|
750
|
0 |
2 |
if substr($config_file, 0, 1) eq "~" |
|
753
|
0 |
2 |
unless -e $config_file |
|
755
|
0 |
2 |
unless open my $config_fh, "<", $config_file |
|
766
|
0 |
2 |
if /\A\s*\Z/ms |
|
768
|
2 |
0 |
if (/\A(\w+):\s*(\S.*?)\s*\Z/ms) |
|
771
|
0 |
2 |
if ($is_multivalue{$key}) { } |
|
788
|
6 |
0 |
unless @{$config{$_};} |
|
812
|
1 |
15 |
if (defined eval {
do {
$options->{'config_file'}
}
}) { } |
|
|
3 |
12 |
elsif (defined $ENV{'CPAN_MINI_CONFIG'}) { } |
|
|
10 |
2 |
elsif (defined $class->__homedir_configfile) { } |
|
|
1 |
1 |
elsif (defined $class->__default_configfile) { } |
|
826
|
8 |
8 |
defined $config_file && -e $config_file ? : |
|
850
|
0 |
0 |
unless $class->can($method) |
|
855
|
0 |
0 |
if not $quiet and $orig_remote |
|
875
|
0 |
0 |
unless eval {
do {
require CPAN;
1
}
} |
|
880
|
0 |
0 |
unless exists $CPAN::Config->{'urllist'} |
|
883
|
0 |
0 |
unless ref $CPAN::Config->{'urllist'} eq "ARRAY" and $CPAN::Config->{'urllist'}[0] |
|
902
|
0 |
0 |
unless eval {
do {
require CPANPLUS::Backend
}
} |
|
907
|
0 |
0 |
unless $hosts |
|
910
|
0 |
0 |
unless ref $hosts eq "ARRAY" and $hosts->[0] |