blib/lib/CPAN/HandleConfig.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 101 | 6.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
206 | 0 | 0 | 0 | @args == 1 and $args[0] eq '' |
298 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
313 | 0 | 0 | 0 | $mode and not -w _ |
460 | 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]/ | |
512 | 0 | 0 | 0 | $err_myconfig and not $err_myconfig =~ /locate \Q$file\E/ |
534 | 0 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
563 | 0 | 0 | 0 | $configpm and @miss |
0 | 0 | 0 | $configpm and @miss and not $do_init | |
564 | 0 | 0 | 0 | not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
707 | 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 | |
744 | 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 |
---|---|---|---|
163 | 0 | 0 | $func ||= '' |
179 | 0 | 0 | shift @args || 0 |
180 | 0 | 0 | shift @args || 0 |
339 | 0 | 0 | $msg ||= "\n" |
548 | 0 | 7 | delete $args{'do_init'} || 0 |
560 | 0 | 0 | $CPAN::HandleConfig::loading || 0 |
704 | 0 | 0 | $word ||= '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
224 | 0 | 0 | 0 | exists $CPAN::HandleConfig::keys{$o} or defined $$CPAN::Config{$o} |
295 | 0 | 0 | 0 | require_myconfig_or_config || make_new_config() |
0 | 0 | 0 | $configpm ||= require_myconfig_or_config || make_new_config() | |
458 | 0 | 2 | 0 | $$CPAN::Config{'commands_quote'} || $quotes |
484 | 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') | |
555 | 0 | 0 | 7 | $do_init or @miss |
564 | 0 | 0 | 0 | $make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
584 | 0 | 0 | 0 | $configpm || make_new_config() |
707 | 0 | 0 | 0 | @words == 3 || @words == 4 && length $word |
0 | 0 | 0 | @words == 3 || @words >= 4 && length $word |