| line |
true |
false |
branch |
|
138
|
0 |
0 |
unless @args |
|
142
|
0 |
0 |
if ($CPAN::HandleConfig::can{$o}) { } |
|
144
|
0 |
0 |
unless ($success) |
|
148
|
0 |
0 |
if $CPAN::DEBUG |
|
149
|
0 |
0 |
unless (exists $CPAN::HandleConfig::keys{$o}) |
|
157
|
0 |
0 |
if (do {
$o =~ /^(wait_list|urllist|dontload_list|plugin_list)$/
}) { } |
|
|
0 |
0 |
elsif ($o =~ /_hash$/) { } |
|
166
|
0 |
0 |
if $CPAN::DEBUG |
|
168
|
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) { } |
|
191
|
0 |
0 |
if ($changed) |
|
192
|
0 |
0 |
if ($o eq 'urllist') { } |
|
|
0 |
0 |
elsif ($o eq 'dontload_list') { } |
|
208
|
0 |
0 |
if (@args == 1 and $args[0] eq '') { } |
|
|
0 |
0 |
elsif (@args % 2) { } |
|
221
|
0 |
0 |
if (defined $args[0]) |
|
227
|
0 |
0 |
if exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
|
229
|
0 |
0 |
if ($changed) |
|
230
|
0 |
0 |
if ($CPAN::Config->{'auto_commit'}) { } |
|
244
|
0 |
0 |
if (ref $v) { } |
|
|
0 |
0 |
elsif (defined $v) { } |
|
246
|
0 |
0 |
if (ref $v eq 'ARRAY') { } |
|
253
|
0 |
0 |
defined $v->{$_} ? : |
|
277
|
0 |
0 |
if $CPAN::DEBUG |
|
278
|
0 |
0 |
if ($CPAN::RUN_DEGRADED) |
|
288
|
0 |
0 |
if (@args) |
|
289
|
0 |
0 |
if ($args[0] eq 'args') { } |
|
300
|
0 |
0 |
if (not -w $configpm and $configpm =~ m[CPAN/Config\.pm]) |
|
313
|
0 |
0 |
if (-f $configpm) |
|
315
|
0 |
0 |
if ($mode and not -w _) |
|
321
|
0 |
0 |
if $must_reload |
|
334
|
0 |
0 |
if $configpm =~ m[CPAN/Config\.pm] |
|
343
|
0 |
0 |
if -f $configpm |
|
344
|
0 |
0 |
unless open $fh, ">$configpm" |
|
348
|
0 |
0 |
unless (exists $CPAN::HandleConfig::keys{$_}) |
|
371
|
0 |
7 |
unless defined $v |
|
373
|
4 |
3 |
unless ($t) |
|
377
|
1 |
2 |
if ($t eq 'ARRAY') |
|
387
|
0 |
2 |
unless $t eq 'HASH' |
|
398
|
0 |
0 |
if ($CPAN::RUN_DEGRADED) |
|
407
|
0 |
0 |
if ($INC{$config}) |
|
408
|
0 |
0 |
if $CPAN::DEBUG |
|
462
|
0 |
2 |
if ($quote ne ' ' and defined $command and $command =~ /\s/ and not $command =~ /[$quote]/) |
|
486
|
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')) { } |
|
506
|
0 |
0 |
if (-f 'File::Spec'->catfile($dir, $file)) |
|
514
|
0 |
0 |
if ($err_myconfig and not $err_myconfig =~ /locate \Q$file\E/) |
|
525
|
0 |
0 |
if ($CPAN::META->has_usable('File::HomeDir')) |
|
526
|
0 |
0 |
if ($^O ne 'darwin') |
|
534
|
0 |
0 |
if $ENV{'HOME'} |
|
537
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
538
|
0 |
0 |
if $ENV{'USERPROFILE'} |
|
541
|
0 |
0 |
$^O eq 'VMS' ? : |
|
543
|
0 |
0 |
wantarray ? : |
|
549
|
0 |
9 |
if $args{'be_silent'} |
|
552
|
4 |
5 |
unless defined $CPAN::HandleConfig::loading |
|
556
|
0 |
9 |
if $CPAN::DEBUG |
|
557
|
9 |
0 |
unless $do_init or @miss |
|
561
|
0 |
0 |
if $CPAN::HandleConfig::loading |
|
565
|
0 |
0 |
if ($configpm and @miss and not $do_init) |
|
566
|
0 |
0 |
if ($make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm]) { } |
|
595
|
0 |
0 |
unless -d $configpmdir |
|
597
|
0 |
0 |
if (-w $configpmdir) |
|
599
|
0 |
0 |
if (-f $configpm) |
|
601
|
0 |
0 |
if -f $configpm_bak |
|
602
|
0 |
0 |
if (rename $configpm, $configpm_bak) |
|
610
|
0 |
0 |
if ($fh->open(">$configpm")) |
|
636
|
0 |
0 |
if -f "$d/CPAN/MyConfig.pm" |
|
639
|
0 |
0 |
if -d $d |
|
651
|
0 |
9 |
$^O eq 'MSWin32' ? : |
|
679
|
0 |
180 |
unless exists $CPAN::HandleConfig::keys{$_} |
|
680
|
0 |
180 |
unless defined $CPAN::Config->{$_} |
|
707
|
0 |
0 |
if $CPAN::DEBUG |
|
709
|
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) { } |
|
745
|
0 |
0 |
if ($prefssupport{$what}) { } |
|
750
|
0 |
0 |
unless $distro and $distro->prefs and $distro->prefs->{'cpanconfig'} and defined $distro->prefs->{'cpanconfig'}{$what} |