| line |
!l |
l&&!r |
l&&r |
condition |
|
456
|
0 |
4 |
0 |
not $SkipInstall and $CheckOnly || _prompt('==> Auto-install the ' . @required / 2 . ($mandatory ? ' mandatory' : ' optional') . ' module(s) from CPAN?', $default ? 'y' : 'n') =~ /^[Yy]/ |
|
|
0 |
1 |
3 |
not $SkipInstall and $default |
|
|
1 |
2 |
1 |
not $SkipInstall and $default and $mandatory |
|
|
3 |
0 |
1 |
not $SkipInstall and $default and $mandatory and _prompt('==> The module(s) are mandatory! Really skip?', 'n') =~ /^[Nn]/ |
|
479
|
0 |
0 |
1 |
@Missing and not $CheckOnly || $UnderCPAN |
|
502
|
1 |
0 |
0 |
-f $lock and open LOCK, $lock |
|
|
1 |
0 |
0 |
-f $lock and open LOCK, $lock and $^O eq 'MSWin32' ? _under_cpan() : == getppid |
|
|
0 |
0 |
0 |
-f $lock and open LOCK, $lock and $^O eq 'MSWin32' ? _under_cpan() : == getppid and ($$CPAN::Config{'prerequisites_policy'} || '') ne 'ignore' |
|
543
|
0 |
0 |
0 |
$args{'do_once'} and open FAILED, '.#autoinstall.failed' |
|
565
|
0 |
0 |
0 |
$args{'do_once'} and open FAILED, '>> .#autoinstall.failed' |
|
601
|
0 |
0 |
0 |
not $makeflags =~ /\bUNINST\b/ and eval " $> eq '0' " |
|
620
|
0 |
0 |
0 |
$obj and defined _version_check($$obj{'version'}, $ver) |
|
629
|
0 |
0 |
0 |
$rv and $$rv{$$obj{'module'}} || $$rv{'ok'} |
|
661
|
0 |
0 |
0 |
_can_write('MM'->catfile($$CPAN::Config{'cpan_home'}, 'sources')) and _can_write($Config::Config{'sitelib'}) |
|
666
|
0 |
0 |
0 |
not $makeflags =~ /\bUNINST\b/ and eval " $> eq '0' " |
|
689
|
0 |
0 |
0 |
$obj and defined _version_check($obj->cpan_version, $ver) |
|
799
|
0 |
0 |
0 |
eval '$>' and lc(`sudo -V`) =~ /version/ |
|
|
0 |
0 |
0 |
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt("\n==> Should we try to re-execute the autoinstall process with 'sudo'?", 'y') =~ /^[Yy]/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
419
|
1 |
3 |
0 |
$FeatureMap{lc $feature} || $feature |
|
454
|
1 |
0 |
3 |
$feature eq '-core' || $core_all |
|
456
|
0 |
0 |
4 |
$CheckOnly || _prompt('==> Auto-install the ' . @required / 2 . ($mandatory ? ' mandatory' : ' optional') . ' module(s) from CPAN?', $default ? 'y' : 'n') =~ /^[Yy]/ |
|
479
|
0 |
0 |
1 |
$CheckOnly || $UnderCPAN |
|
629
|
0 |
0 |
0 |
$$rv{$$obj{'module'}} || $$rv{'ok'} |
|
698
|
0 |
0 |
0 |
$obj->install || eval {
do {
$CPAN::META->instance('CPAN::Distribution', $obj->cpan_file)->{'install'} if $CPAN::META
}
} |
|
730
|
0 |
0 |
1 |
$INC{'CPANPLUS/Config.pm'} || _load('CPANPLUS::Shell::Default') |
|
779
|
0 |
0 |
0 |
_load('Socket') && Socket::inet_aton($site) || _prompt("\n*** Your host cannot resolve the domain name '${site}', which\n probably means the Internet connections are unavailable.\n==> Should we try to install the required module(s) anyway?", 'n') =~ /^[Yy]/ |
|
832
|
1 |
0 |
5 |
eval {
do {
require $file;
$mod->VERSION
}
} || ($@ ? undef : 0) |
|
843
|
0 |
0 |
1 |
ref $cur or ref $min |
|
|
0 |
0 |
1 |
ref $cur or ref $min or $cur =~ /v|\..*\./ |
|
|
0 |
0 |
1 |
ref $cur or ref $min or $cur =~ /v|\..*\./ or $min =~ /v|\..*\./ |
|
844
|
0 |
0 |
0 |
$version::VERSION or defined _load('version') |
|
|
0 |
0 |
0 |
$Sort::Versions::VERSION or defined _load('Sort::Versions') |
|
868
|
0 |
0 |
1 |
$UnderCPAN or $TestOnly |