Branch Coverage

blib/lib/CPAN/HandleConfig.pm
Criterion Covered Total %
branch 16 164 9.7


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 7 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 7 if $args{'be_silent'}
552 3 4 unless defined $CPAN::HandleConfig::loading
556 0 7 if $CPAN::DEBUG
557 7 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 7 $^O eq 'MSWin32' ? :
679 0 140 unless exists $CPAN::HandleConfig::keys{$_}
680 0 140 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}