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&&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 |