blib/lib/CPAN/HandleConfig.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 101 | 6.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
214 | 0 | 0 | 0 | @args == 1 and $args[0] eq '' |
306 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
321 | 0 | 0 | 0 | $mode and not -w _ |
468 | 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]/ | |
520 | 0 | 0 | 0 | $err_myconfig and not $err_myconfig =~ /locate \Q$file\E/ |
543 | 0 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
571 | 0 | 0 | 0 | $configpm and @miss |
0 | 0 | 0 | $configpm and @miss and not $do_init | |
572 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
715 | 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 | |
756 | 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 |
---|---|---|---|
171 | 0 | 0 | $func ||= '' |
187 | 0 | 0 | shift @args || 0 |
188 | 0 | 0 | shift @args || 0 |
347 | 0 | 0 | $msg ||= "\n" |
556 | 0 | 9 | delete $args{'do_init'} || 0 |
568 | 0 | 0 | $CPAN::HandleConfig::loading || 0 |
712 | 0 | 0 | $word ||= '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
233 | 0 | 0 | 0 | exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
303 | 0 | 0 | 0 | &require_myconfig_or_config() || make_new_config() |
0 | 0 | 0 | $configpm ||= &require_myconfig_or_config() || make_new_config() | |
466 | 0 | 2 | 0 | $CPAN::Config->{'commands_quote'} || $quotes |
492 | 9 | 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') | |
563 | 0 | 0 | 9 | $do_init or @miss |
572 | 0 | 0 | 0 | $make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
592 | 0 | 0 | 0 | $configpm || make_new_config() |
715 | 0 | 0 | 0 | @words == 3 || @words == 4 && length $word |
0 | 0 | 0 | @words == 3 || @words >= 4 && length $word |