| line |
true |
false |
branch |
|
146
|
0 |
0 |
unless @args |
|
150
|
0 |
0 |
if ($CPAN::HandleConfig::can{$o}) { } |
|
152
|
0 |
0 |
unless ($success) |
|
156
|
0 |
0 |
if $CPAN::DEBUG |
|
157
|
0 |
0 |
unless (exists $CPAN::HandleConfig::keys{$o}) |
|
165
|
0 |
0 |
if (do {
$o =~ /^(wait_list|urllist|dontload_list|plugin_list)$/
}) { } |
|
|
0 |
0 |
elsif ($o =~ /_hash$/) { } |
|
174
|
0 |
0 |
if $CPAN::DEBUG |
|
176
|
0 |
0 |
if ($func eq 'push') { } |
|
|
0 |
0 |
elsif ($func eq 'pop') { } |
|
|
0 |
0 |
elsif ($func eq 'shift') { } |
|
|
0 |
0 |
elsif ($func eq 'unshift') { } |
|
|
0 |
0 |
elsif ($func eq 'splice') { } |
|
|
0 |
0 |
elsif ($func) { } |
|
199
|
0 |
0 |
if ($changed) |
|
200
|
0 |
0 |
if ($o eq 'urllist') { } |
|
|
0 |
0 |
elsif ($o eq 'dontload_list') { } |
|
216
|
0 |
0 |
if (@args == 1 and $args[0] eq '') { } |
|
|
0 |
0 |
elsif (@args % 2) { } |
|
229
|
0 |
0 |
if (defined $args[0]) |
|
235
|
0 |
0 |
if exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
|
237
|
0 |
0 |
if ($changed) |
|
238
|
0 |
0 |
if ($CPAN::Config->{'auto_commit'}) { } |
|
252
|
0 |
0 |
if (ref $v) { } |
|
|
0 |
0 |
elsif (defined $v) { } |
|
254
|
0 |
0 |
if (ref $v eq 'ARRAY') { } |
|
261
|
0 |
0 |
defined $v->{$_} ? : |
|
285
|
0 |
0 |
if $CPAN::DEBUG |
|
286
|
0 |
0 |
if ($CPAN::RUN_DEGRADED) |
|
296
|
0 |
0 |
if (@args) |
|
297
|
0 |
0 |
if ($args[0] eq 'args') { } |
|
308
|
0 |
0 |
if (not -w $configpm and $configpm =~ m[CPAN/Config\.pm]) |
|
321
|
0 |
0 |
if (-f $configpm) |
|
323
|
0 |
0 |
if ($mode and not -w _) |
|
329
|
0 |
0 |
if $must_reload |
|
342
|
0 |
0 |
if $configpm =~ m[CPAN/Config\.pm] |
|
351
|
0 |
0 |
if -f $configpm |
|
352
|
0 |
0 |
unless open $fh, ">$configpm" |
|
356
|
0 |
0 |
unless (exists $CPAN::HandleConfig::keys{$_}) |
|
379
|
0 |
7 |
unless defined $v |
|
381
|
4 |
3 |
unless ($t) |
|
385
|
1 |
2 |
if ($t eq "ARRAY") |
|
395
|
0 |
2 |
unless $t eq "HASH" |
|
406
|
0 |
0 |
if ($CPAN::RUN_DEGRADED) |
|
415
|
0 |
0 |
if ($INC{$config}) |
|
416
|
0 |
0 |
if $CPAN::DEBUG |
|
470
|
0 |
2 |
if ($quote ne " " and defined $command and $command =~ /\s/ and not $command =~ /[$quote]/) |
|
494
|
9 |
0 |
if ($INC{'CPAN/MyConfig.pm'} or _try_loading('CPAN::MyConfig', cpan_home())) { } |
|
|
0 |
0 |
elsif ($INC{'CPAN/Config.pm'} or _try_loading('CPAN::Config')) { } |
|
514
|
0 |
0 |
if (-f "File::Spec"->catfile($dir, $file)) |
|
522
|
0 |
0 |
if ($err_myconfig and not $err_myconfig =~ /locate \Q$file\E/) |
|
533
|
0 |
0 |
if ($CPAN::META->has_usable("File::HomeDir")) |
|
534
|
0 |
0 |
if ($^O ne "darwin") |
|
542
|
0 |
0 |
if $ENV{'HOME'} |
|
545
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
546
|
0 |
0 |
if $ENV{'USERPROFILE'} |
|
549
|
0 |
0 |
$^O eq 'VMS' ? : |
|
551
|
0 |
0 |
wantarray ? : |
|
557
|
0 |
9 |
if $args{'be_silent'} |
|
560
|
4 |
5 |
unless defined $CPAN::HandleConfig::loading |
|
564
|
0 |
9 |
if $CPAN::DEBUG |
|
565
|
9 |
0 |
unless $do_init or @miss |
|
566
|
0 |
0 |
if (@miss == 1 and ($miss[0] eq "pushy_https" and not $do_init)) |
|
586
|
0 |
0 |
if $CPAN::HandleConfig::loading |
|
590
|
0 |
0 |
if ($configpm and @miss and not $do_init) |
|
591
|
0 |
0 |
if ($make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm]) { } |
|
620
|
0 |
0 |
unless -d $configpmdir |
|
622
|
0 |
0 |
if (-w $configpmdir) |
|
624
|
0 |
0 |
if (-f $configpm) |
|
626
|
0 |
0 |
if -f $configpm_bak |
|
627
|
0 |
0 |
if (rename $configpm, $configpm_bak) |
|
635
|
0 |
0 |
if ($fh->open(">$configpm")) |
|
661
|
0 |
0 |
if -f "$d/CPAN/MyConfig.pm" |
|
664
|
0 |
0 |
if -d $d |
|
676
|
0 |
9 |
$^O eq 'MSWin32' ? : |
|
705
|
0 |
189 |
unless exists $CPAN::HandleConfig::keys{$_} |
|
706
|
0 |
189 |
unless defined $CPAN::Config->{$_} |
|
733
|
0 |
0 |
if $CPAN::DEBUG |
|
735
|
0 |
0 |
if (defined $words[2] and $words[2] =~ /list$/ and @words == 3 || @words == 4 && length $word) { } |
|
|
0 |
0 |
elsif (defined $words[2] and $words[2] eq 'init' and @words == 3 || @words >= 4 && length $word) { } |
|
|
0 |
0 |
elsif (@words >= 4) { } |
|
771
|
0 |
0 |
if ($prefssupport{$what}) { } |
|
776
|
0 |
0 |
unless $distro and $distro->prefs and $distro->prefs->{'cpanconfig'} and defined $distro->prefs->{'cpanconfig'}{$what} |