blib/lib/CPAN/HandleConfig.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 101 | 6.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
208 | 0 | 0 | 0 | @args == 1 and $args[0] eq '' |
300 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
315 | 0 | 0 | 0 | $mode and not -w _ |
462 | 0 | 0 | 2 | $quote ne ' ' and defined $command |
0 | 2 | 0 | $quote ne ' ' and defined $command and $command =~ /\s/ | |
2 | 0 | 0 | $quote ne ' ' and defined $command and $command =~ /\s/ and not $command =~ /[$quote]/ | |
514 | 0 | 0 | 0 | $err_myconfig and not $err_myconfig =~ /locate \Q$file\E/ |
537 | 0 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
565 | 0 | 0 | 0 | $configpm and @miss |
0 | 0 | 0 | $configpm and @miss and not $do_init | |
566 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
709 | 0 | 0 | 0 | defined $words[2] and $words[2] =~ /list$/ |
0 | 0 | 0 | defined $words[2] and $words[2] =~ /list$/ and @words == 3 || @words == 4 && length $word | |
0 | 0 | 0 | defined $words[2] and $words[2] eq 'init' | |
0 | 0 | 0 | defined $words[2] and $words[2] eq 'init' and @words == 3 || @words >= 4 && length $word | |
750 | 0 | 0 | 0 | $distro and $distro->prefs |
0 | 0 | 0 | $distro and $distro->prefs and $distro->prefs->{'cpanconfig'} | |
0 | 0 | 0 | $distro and $distro->prefs and $distro->prefs->{'cpanconfig'} and defined $distro->prefs->{'cpanconfig'}{$what} |
line | l | !l | condition |
---|---|---|---|
165 | 0 | 0 | $func ||= '' |
181 | 0 | 0 | shift @args || 0 |
182 | 0 | 0 | shift @args || 0 |
341 | 0 | 0 | $msg ||= "\n" |
550 | 0 | 7 | delete $args{'do_init'} || 0 |
562 | 0 | 0 | $CPAN::HandleConfig::loading || 0 |
706 | 0 | 0 | $word ||= '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
227 | 0 | 0 | 0 | exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
297 | 0 | 0 | 0 | &require_myconfig_or_config() || make_new_config() |
0 | 0 | 0 | $configpm ||= &require_myconfig_or_config() || make_new_config() | |
460 | 0 | 2 | 0 | $CPAN::Config->{'commands_quote'} || $quotes |
486 | 7 | 0 | 0 | $INC{'CPAN/MyConfig.pm'} or _try_loading('CPAN::MyConfig', cpan_home()) |
0 | 0 | 0 | $INC{'CPAN/Config.pm'} or _try_loading('CPAN::Config') | |
557 | 0 | 0 | 7 | $do_init or @miss |
566 | 0 | 0 | 0 | $make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
586 | 0 | 0 | 0 | $configpm || make_new_config() |
709 | 0 | 0 | 0 | @words == 3 || @words == 4 && length $word |
0 | 0 | 0 | @words == 3 || @words >= 4 && length $word |