Condition Coverage

blib/lib/CPAN/FirstTime.pm
Criterion Covered Total %
condition 146 218 67.0


and 3 conditions

line !l l&&!r l&&r condition
52 0 1 47 $args{'args'} && @{$args{'args'};}
105 0 0 1 $_conf && $_conf =~ /^y/i
187 0 0 2 -d $ans and -w _
264 2 0 0 $$CPAN::Config{'test_report'} and $CPAN::META->has_inst('CPAN::Reporter')
2 0 0 $$CPAN::Config{'test_report'} and $CPAN::META->has_inst('CPAN::Reporter') and 'CPAN::Reporter'->can('configure')
291 12 12 132 $matcher and not $progname =~ /$matcher/
301 11 1 0 $progname eq 'ncftp' and $$CPAN::Config{'ncftpget'} gt ' '
615 0 2 0 -f $mby and -f $m
2 0 0 -f $mby and -f $m and -M $m < -M $mby
622 0 0 2 $mby and -f $mby
0 0 2 $mby and -f $mby and -M _ <= 60
0 0 2 $mby and -f $mby and -M _ <= 60 and -s _ > 0
635 2 0 0 -M $mby > 60 and $loopcount == 0
707 5 0 0 $require_nonempty and not @nums
764 564 0 564 /location\s+=\s+"([^"]+)/ and @location = split(/\s*,\s*/, $1, 0)
769 0 564 564 $host and $dst
564 0 564 $host and $dst and $continent
564 0 564 $host and $dst and $continent and $country
802 0 1 1 @previous_urls and @countries

or 2 conditions

line l !l condition
80 48 0 $CPAN::Config ||= {}
114 1 0 $$CPAN::Config{'urllist'} ||= []
303 10 14 $$CPAN::Config{$progname} || $Config::Config{$progname} || ''
331 2 0 $$CPAN::Config{'pager'} || $ENV{'PAGER'} || find_exe('less', [@path]) || find_exe('more', [@path]) || ($^O eq 'MacOS' ? $ENV{'EDITOR'} : 0) || 'more'
378 46 2 $$CPAN::Config{'make'} || ''
382 34 14 $$CPAN::Config{'make_arg'} || ''
407 0 2 $$CPAN::Config{'inactivity_timeout'} || 0
423 0 6 $$CPAN::Config{$_} || $ENV{$_} || ''
431 2 1 $$CPAN::Config{'proxy_user'} || $CPAN::LWP::UserAgent::USER || ''
676 5 0 $default ||= ''
738 0 5 $pos ||= 0
775 2 0 $$CPAN::Config{'urllist'} ||= []
858 0 0 $INC{'CPAN/MyConfig.pm'} || $INC{'CPAN/Config.pm'} || 'configuration file'

or 3 conditions

line l !l&&r !l&&!r condition
149 1 3 44 not $matcher or 'cpan_home keep_source_where build_dir' =~ /$matcher/
152 1 1 2 not $matcher or 'cpan_home' =~ /$matcher/
153 2 0 0 $$CPAN::Config{'cpan_home'} || 'File::Spec'->catdir($ENV{'HOME'}, '.cpan')
197 1 1 2 not $matcher or 'keep_source_where' =~ /$matcher/
204 1 1 2 not $matcher or 'build_dir' =~ /$matcher/
216 1 1 46 not $matcher or 'build_cache' =~ /$matcher/
223 1 1 46 not $matcher or 'index_expire' =~ /$matcher/
229 1 1 46 not $matcher or 'scan_cache' =~ /$matcher/
245 1 1 46 not $matcher or 'prerequisites_policy' =~ /$matcher/
255 1 1 46 not $matcher or 'check_sigs' =~ /$matcher/
262 1 1 46 not $matcher or 'test_report' =~ /$matcher/
283 1 12 35 not $matcher or "@external_progs" =~ /$matcher/
303 8 2 14 $$CPAN::Config{$progname} || $Config::Config{$progname}
322 8 16 0 $path ||= find_exe($progcall, [@path])
325 20 0 4 &prompt(, $path) || $path
330 1 1 46 not $matcher or 'pager' =~ /$matcher/
331 1 1 0 $$CPAN::Config{'pager'} || $ENV{'PAGER'}
2 0 0 $$CPAN::Config{'pager'} || $ENV{'PAGER'} || find_exe('less', [@path])
2 0 0 $$CPAN::Config{'pager'} || $ENV{'PAGER'} || find_exe('less', [@path]) || find_exe('more', [@path])
2 0 0 $$CPAN::Config{'pager'} || $ENV{'PAGER'} || find_exe('less', [@path]) || find_exe('more', [@path]) || ($^O eq 'MacOS' ? $ENV{'EDITOR'} : 0)
339 1 1 46 not $matcher or 'shell' =~ /$matcher/
346 0 2 0 $path ||= $ENV{'SHELL'}
347 0 0 0 $path ||= $ENV{'COMSPEC'}
361 1 1 46 not $matcher or 'prefer_installer' =~ /$matcher/
367 1 2 45 not $matcher or 'makepl_arg make_arg' =~ /$matcher/
385 1 2 45 not $matcher or 'mbuildpl_arg mbuild_arg' =~ /$matcher/
405 1 1 46 not $matcher or 'inactivity_timeout' =~ /$matcher/
418 1 3 44 not $matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/
422 3 3 6 not $matcher or /$matcher/
423 0 0 6 $$CPAN::Config{$_} || $ENV{$_}
428 3 0 1 $$CPAN::Config{'ftp_proxy'} or $$CPAN::Config{'http_proxy'}
431 2 0 1 $$CPAN::Config{'proxy_user'} || $CPAN::LWP::UserAgent::USER
462 1 1 46 not $matcher or 'getcwd' =~ /$matcher/
498 1 1 46 not $matcher or 'term_is_latin' =~ /$matcher/
507 1 2 45 not $matcher or 'histfile histsize' =~ /$matcher/
524 1 1 46 not $matcher or 'show_upload_date' =~ /$matcher/
568 202 0 10 $$CPAN::Config{$item} || $dflt
571 12 12 188 not $m or $item =~ /$m/
584 8 7 184 not $m or $item =~ /$m/
597 8 0 0 $$CPAN::Config{$item} || $dflt
601 4 4 0 not $m or $item =~ /$m/
700 0 0 26 /\D/ || $_ < 1
0 0 26 /\D/ || $_ < 1 || $_ > $i
843 0 0 2 $ans or not %seen
858 0 0 0 $INC{'CPAN/MyConfig.pm'} || $INC{'CPAN/Config.pm'}