| line |
!l |
l&&!r |
l&&r |
condition |
|
216
|
0 |
0 |
0 |
@args == 1 and $args[0] eq "" |
|
308
|
0 |
0 |
0 |
not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
|
323
|
0 |
0 |
0 |
$mode and not -w _ |
|
470
|
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]/ |
|
522
|
0 |
0 |
0 |
$err_myconfig and not $err_myconfig =~ /locate \Q$file\E/ |
|
545
|
0 |
0 |
0 |
$ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
566
|
0 |
0 |
0 |
$miss[0] eq "pushy_https" and not $do_init |
|
|
0 |
0 |
0 |
@miss == 1 and ($miss[0] eq "pushy_https" and not $do_init) |
|
590
|
0 |
0 |
0 |
$configpm and @miss |
|
|
0 |
0 |
0 |
$configpm and @miss and not $do_init |
|
591
|
0 |
0 |
0 |
not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
|
735
|
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 |
|
776
|
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 |
|
235
|
0 |
0 |
0 |
exists $CPAN::HandleConfig::keys{$o} or defined $CPAN::Config->{$o} |
|
305
|
0 |
0 |
0 |
&require_myconfig_or_config() || make_new_config() |
|
|
0 |
0 |
0 |
$configpm ||= &require_myconfig_or_config() || make_new_config() |
|
468
|
0 |
2 |
0 |
$CPAN::Config->{'commands_quote'} || $quotes |
|
494
|
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") |
|
565
|
0 |
0 |
9 |
$do_init or @miss |
|
591
|
0 |
0 |
0 |
$make_myconfig or not -w $configpm and $configpm =~ m[CPAN/Config\.pm] |
|
611
|
0 |
0 |
0 |
$configpm || make_new_config() |
|
735
|
0 |
0 |
0 |
@words == 3 || @words == 4 && length $word |
|
|
0 |
0 |
0 |
@words == 3 || @words >= 4 && length $word |