Condition Coverage

inc/Module/AutoInstall.pm
Criterion Covered Total %
condition 5 127 3.9


and 2 conditions

line l !l condition
126 0 0 _update_to($modules, @_) and return
132 0 0 $core_all = $modules =~ /^all$/i and next
552 0 0 _load($class) and return $class->import(@_)

and 3 conditions

line !l l&&!r l&&r condition
159 0 0 0 $arg and $arg =~ /^\D/
182 0 0 0 not $SkipInstall and $CheckOnly || _prompt('==> Auto-install the ' . @required / 2 . ($mandatory ? ' mandatory' : ' optional') . ' module(s) from CPAN?', $default ? 'y' : 'n') =~ /^[Yy]/
0 0 0 not $SkipInstall and $default
0 0 0 not $SkipInstall and $default and $mandatory
0 0 0 not $SkipInstall and $default and $mandatory and _prompt('==> The module(s) are mandatory! Really skip?', 'n') =~ /^[Nn]/
218 0 0 0 @Missing and not $CheckOnly || $UnderCPAN
260 0 0 0 $^O eq 'MSWin32' ? _under_cpan() : == getppid and ($$CPAN::Config{'prerequisites_policy'} || '') ne 'ignore'
304 0 0 0 $args{'do_once'} and open FAILED, '.#autoinstall.failed'
325 0 0 0 $args{'do_once'} and open FAILED, '>> .#autoinstall.failed'
358 0 0 0 not $makeflags =~ /\bUNINST\b/ and eval " $> eq '0' "
380 0 0 0 $obj and defined _version_check($$obj{'version'}, $ver)
390 0 0 0 $rv and $$rv{$$obj{'module'}} || $$rv{'ok'}
443 0 0 0 _can_write('MM'->catfile($$CPAN::Config{'cpan_home'}, 'sources')) and _can_write($Config::Config{'sitelib'})
449 0 0 0 not $makeflags =~ /\bUNINST\b/ and eval " $> eq '0' "
473 0 0 0 $obj and defined _version_check($obj->cpan_version, $ver)
587 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'?", -t STDIN ? 'y' : 'n') =~ /^[Yy]/
654 0 0 0 $version::VERSION || defined _load('version') and 'version'->can('new')
689 0 0 0 $args{'EXE_FILES'} and -e 'MANIFEST'

or 2 conditions

line l !l condition
48 0 1 $ENV{'PERL_AUTOINSTALL'} || $ENV{'PERL_EXTUTILS_AUTOINSTALL'} || ''
165 0 0 $arg ||= 0
260 0 0 $$CPAN::Config{'prerequisites_policy'} || ''
351 0 0 $conf->get_conf('makeflags') || ''
375 0 0 MY::preinstall($pkg, $ver) or next
448 0 0 $$CPAN::Config{'make_install_arg'} || ''
466 0 0 MY::preinstall($pkg, $ver) or next
697 0 0 $args{'test'}{'TESTS'} ||= 't/*.t'

or 3 conditions

line l !l&&r !l&&!r condition
138 0 0 0 $FeatureMap{lc $feature} || $feature
180 0 0 0 $feature eq '-core' || $core_all
182 0 0 0 $CheckOnly || _prompt('==> Auto-install the ' . @required / 2 . ($mandatory ? ' mandatory' : ' optional') . ' module(s) from CPAN?', $default ? 'y' : 'n') =~ /^[Yy]/
218 0 0 0 $CheckOnly || $UnderCPAN
347 0 0 0 $conf->can('conf') or _can_write($conf->_get_build('base'))
390 0 0 0 $$rv{$$obj{'module'}} || $$rv{'ok'}
483 0 0 0 $rv ||= eval { do { $CPAN::META->instance('CPAN::Distribution', $obj->cpan_file)->{'install'} if $CPAN::META } }
514 0 0 0 $INC{'CPANPLUS/Config.pm'} || _load('CPANPLUS::Shell::Default')
566 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]/
629 1 0 0 eval { do { require $file; $mod->VERSION } } || ($@ ? undef : 0)
653 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|\..*\./
654 0 0 0 $version::VERSION || defined _load('version')
0 0 0 $Sort::Versions::VERSION or defined _load('Sort::Versions')
686 0 0 0 $UnderCPAN or $TestOnly