| line |
true |
false |
branch |
|
92
|
1 |
22 |
if @_ % 2 |
|
97
|
9 |
12 |
unless $spec{$key} and $spec{$key}{'is_valid'}($value) |
|
103
|
8 |
5 |
if $ENV{'PERL_CR_SMOKER_SHORTCUT'} |
|
117
|
5 |
0 |
unless ($init_cpan++) |
|
143
|
3 |
7 |
if ($args{'list'}) { } |
|
145
|
2 |
1 |
if (ref $args{'list'} eq 'ARRAY') { } |
|
150
|
0 |
1 |
unless open my $list_fh, '<', $args{'list'} |
|
168
|
1 |
9 |
if ($args{'reverse'}) |
|
173
|
0 |
10 |
if ($args{'random'}) |
|
179
|
0 |
10 |
if ($$CPAN::Config{'build_dir_reuse'} and $CPAN::META->can('reset_tested')) |
|
187
|
0 |
10 |
if ($args{'force_trust'}) |
|
201
|
15 |
18 |
if ($seen{$base}++) { } |
|
|
0 |
18 |
elsif ($args{'filter'} and $args{'filter'}($dist)) { } |
|
|
0 |
18 |
elsif ('CPAN::Distribution'->new(%{$dist;})->prefs->{'disabled'}) { } |
|
220
|
18 |
0 |
if ($args{'set_term_title'}) |
|
226
|
18 |
0 |
if ($status_fh) |
|
233
|
0 |
18 |
$args{'install'} ? : |
|
238
|
0 |
18 |
if $? & 127 |
|
240
|
18 |
0 |
if -f $args{'status_file'} |
|
243
|
0 |
18 |
if ($dists_tested >= $args{'clean_cache_after'}) |
|
247
|
0 |
18 |
if (time - $history_loaded_at > $args{'reload_history_period'}) |
|
253
|
5 |
13 |
if time - $loop_start_time > $args{'restart_delay'} |
|
255
|
5 |
0 |
if $ENV{'PERL_CR_SMOKER_RUNONCE'} |
|
256
|
0 |
0 |
if $args{'list'} |
|
259
|
0 |
0 |
if ($delay > 0) |
|
278
|
5 |
5 |
if ($$CPAN::META{'cachemgr'}) { } |
|
289
|
0 |
0 |
if ($sig =~ /\d+/) |
|
294
|
0 |
0 |
if defined $ENV{'PERL_CR_SMOKER_CURRENT'} |
|
300
|
0 |
0 |
unless substr(lc $answer, 0, 1) eq 'y' |
|
318
|
0 |
14 |
unless (-r $actual_local) |
|
407
|
0 |
7 |
unless my $gz = &Compress::Zlib::gzopen($packages, 'rb') |
|
412
|
63 |
63 |
if ($inheader) |
|
413
|
7 |
56 |
unless /\S/ |
|
422
|
7 |
56 |
if $base_id =~ /$re{'perls'}/ |
|
425
|
14 |
42 |
if $base_id =~ /$re{'mod_perl'}/ |
|
428
|
7 |
35 |
if $module =~ /$re{'bundle'}/ |
|
432
|
35 |
0 |
if ($base_name) |
|
449
|
0 |
203 |
unless ($stat{'name'} and $stat{'perms'} and $stat{'datetime'}) |
|
453
|
112 |
91 |
if $stat{'perms'} eq 'l' or substr($stat{'perms'}, 0, 1) eq 'd' |
|
454
|
35 |
56 |
unless $stat{'name'} =~ /$re{'target_dir'}/ |
|
455
|
7 |
49 |
unless $stat{'name'} =~ /$re{'archive'}/ |
|
460
|
0 |
49 |
unless $base_id |
|
462
|
0 |
49 |
if $base_id =~ /$re{'perls'}/ |
|
469
|
35 |
14 |
if ($valid_distros{$base_id}) { } |
|
471
|
0 |
35 |
unless $base_name |
|
472
|
35 |
0 |
if ($stat{'datetime'} > $latest{$base_name}{'datetime'}) |
|
483
|
0 |
14 |
unless defined $base_name |
|
486
|
7 |
7 |
unless $latest{$base_name} |
|
488
|
0 |
7 |
if $skip_dev_versions |
|
492
|
7 |
0 |
if ($stat{'datetime'} > $latest_dev{$base_name}{'datetime'}) |
|
504
|
0 |
35 |
unless $mirror{$base_id} |
|
511
|
0 |
7 |
unless ($latest{$name}) |
|
514
|
0 |
7 |
if $latest{$name}{'datetime'} > $latest_dev{$name}{'datetime'} |