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/ |
535
|
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 |
745
|
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 |
225
|
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 |