blib/lib/CPAN/HandleConfig.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 101 | 6.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
207 | 0 | 0 | 0 | @args == 1 and $args[0] eq '' |
299 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
314 | 0 | 0 | 0 | $mode and not -w _ |
461 | 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]/ | |
513 | 0 | 0 | 0 | $err_myconfig and not $err_myconfig =~ /locate \Q$file\E/ |
536 | 0 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
564 | 0 | 0 | 0 | $configpm and @miss |
0 | 0 | 0 | $configpm and @miss and not $do_init | |
565 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
708 | 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 | |
749 | 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 |
---|---|---|---|
164 | 0 | 0 | $func ||= '' |
180 | 0 | 0 | shift @args || 0 |
181 | 0 | 0 | shift @args || 0 |
340 | 0 | 0 | $msg ||= "\n" |
549 | 0 | 7 | delete $args{'do_init'} || 0 |
561 | 0 | 0 | $CPAN::HandleConfig::loading || 0 |
705 | 0 | 0 | $word ||= '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
226 | 0 | 0 | 0 | exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
296 | 0 | 0 | 0 | &require_myconfig_or_config() || make_new_config() |
0 | 0 | 0 | $configpm ||= &require_myconfig_or_config() || make_new_config() | |
459 | 0 | 2 | 0 | $CPAN::Config->{'commands_quote'} || $quotes |
485 | 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') | |
556 | 0 | 0 | 7 | $do_init or @miss |
565 | 0 | 0 | 0 | $make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
585 | 0 | 0 | 0 | $configpm || make_new_config() |
708 | 0 | 0 | 0 | @words == 3 || @words == 4 && length $word |
0 | 0 | 0 | @words == 3 || @words >= 4 && length $word |