| line |
true |
false |
branch |
|
835
|
0 |
0 |
$args{'args'} && @{$args{'args'};} ? : |
|
836
|
0 |
0 |
if ($matcher =~ m[^/(.*)/$]) { } |
|
|
0 |
0 |
elsif (0 == length $matcher) { } |
|
840
|
0 |
0 |
if (@{$args{'args'};}) |
|
856
|
0 |
0 |
unless (exists $CPAN::HandleConfig::keys{$arg}) |
|
863
|
0 |
0 |
if $CPAN::DEBUG |
|
865
|
0 |
0 |
unless ($CPAN::VERSION) |
|
882
|
0 |
0 |
if ($args{'autoconfig'}) { } |
|
|
0 |
0 |
elsif ($matcher) { } |
|
888
|
0 |
0 |
$_conf && $_conf =~ /^y/i ? : |
|
890
|
0 |
0 |
if $CPAN::DEBUG |
|
891
|
0 |
0 |
if ($CPAN::FirstTime::auto_config) |
|
904
|
0 |
0 |
unless ($matcher or _can_write_to_libdirs() or _using_installbase() or _using_sudo()) |
|
914
|
0 |
0 |
if (not $matcher or "\n build_dir\n build_dir_reuse\n cpan_home\n keep_source_where\n prefs_dir\n " =~ /$matcher/) |
|
921
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
981
|
0 |
0 |
if (not $matcher or "test_report" =~ /$matcher/) |
|
983
|
0 |
0 |
if ($matcher and $CPAN::Config->{'test_report'} and $CPAN::META->has_inst("CPAN::Reporter") and "CPAN::Reporter"->can("configure")) |
|
990
|
0 |
0 |
if ($_conf =~ /^y/i) |
|
1003
|
0 |
0 |
if (not $matcher or "yaml_module" =~ /$matcher/) |
|
1007
|
0 |
0 |
unless ($CPAN::FirstTime::auto_config or $CPAN::META->has_inst($CPAN::Config->{'yaml_module'})) |
|
1025
|
0 |
0 |
unless $matcher or $CPAN::FirstTime::auto_config |
|
1047
|
0 |
0 |
if ($path and "File::Spec"->file_name_is_absolute($path)) |
|
1048
|
0 |
0 |
unless -e $path |
|
1053
|
0 |
0 |
if $^O eq "MSWin32" |
|
1054
|
0 |
0 |
if ($^O eq 'MacOS') { } |
|
1057
|
0 |
0 |
if $^O eq "os2" |
|
1065
|
0 |
0 |
unless (defined $prefer_external_tar) |
|
1066
|
0 |
0 |
if ($^O =~ /(MSWin32|solaris)/) { } |
|
|
0 |
0 |
elsif ($tar) { } |
|
1096
|
0 |
0 |
if (not $matcher or "makepl_arg make_arg" =~ /$matcher/) |
|
1099
|
0 |
0 |
if ($CPAN::Config->{'makepl_arg'} =~ /LIBS=|INC=/) |
|
1109
|
0 |
0 |
if (exists $CPAN::HandleConfig::keys{'make_install_make_command'}) |
|
1113
|
0 |
0 |
if ($default and $CPAN::Config->{'install_help'} eq "sudo") |
|
1114
|
0 |
0 |
if (find_exe('sudo')) { } |
|
1117
|
0 |
0 |
unless $CPAN::Config->{'make_install_make_command'} =~ /sudo/ |
|
1132
|
0 |
0 |
if (exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} and $^O ne "MSWin32") |
|
1136
|
0 |
0 |
$^O eq 'VMS' ? : |
|
1137
|
0 |
0 |
if ($CPAN::Config->{'install_help'} eq "sudo") |
|
1138
|
0 |
0 |
if (find_exe('sudo')) { } |
|
1141
|
0 |
0 |
unless $CPAN::Config->{'mbuild_install_build_command'} =~ /sudo/ |
|
1183
|
0 |
0 |
if (not $matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/) |
|
1184
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1191
|
0 |
0 |
if ($CPAN::Config->{'ftp_proxy'} or $CPAN::Config->{'http_proxy'}) |
|
1196
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1198
|
0 |
0 |
if ($CPAN::Config->{'proxy_user'} = &prompt("Your proxy user id?", $default)) |
|
1199
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1201
|
0 |
0 |
if ($CPAN::META->has_inst('Term::ReadKey')) { } |
|
1204
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1207
|
0 |
0 |
if ($CPAN::META->has_inst("Term::ReadKey")) |
|
1210
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1245
|
0 |
0 |
if ("colorize_output colorize_print colorize_warn colorize_debug" =~ /$matcher/) |
|
1247
|
0 |
0 |
if ($CPAN::Config->{'colorize_output'}) |
|
1248
|
0 |
0 |
if ($CPAN::META->has_inst("Term::ANSIColor")) |
|
1250
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1252
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1260
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1263
|
0 |
0 |
$FG || $BG ? : |
|
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1266
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1268
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1276
|
0 |
0 |
if ($CPAN::META->has_inst("Term::ANSIColor")) |
|
1278
|
0 |
0 |
if ($@) |
|
1297
|
0 |
0 |
if (not $matcher or "histfile histsize" =~ /$matcher/) |
|
1298
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1300
|
0 |
0 |
unless defined($default = $CPAN::Config->{'histfile'}) |
|
1303
|
0 |
0 |
if ($CPAN::Config->{'histfile'}) |
|
1304
|
0 |
0 |
unless defined($default = $CPAN::Config->{'histsize'}) |
|
1317
|
0 |
0 |
if (not $matcher or "show_unparsable_versions" =~ /$matcher/ or "show_zero_versions" =~ /$matcher/) |
|
1335
|
0 |
0 |
if ($matcher) |
|
1336
|
0 |
0 |
if ("urllist_ping_external" =~ /$matcher/) |
|
1339
|
0 |
0 |
if ("urllist_ping_verbose" =~ /$matcher/) |
|
1342
|
0 |
0 |
if ("randomize_urllist" =~ /$matcher/) |
|
1345
|
0 |
0 |
if ("ftpstats_size" =~ /$matcher/) |
|
1348
|
0 |
0 |
if ("ftpstats_period" =~ /$matcher/) |
|
1355
|
0 |
0 |
if ($CPAN::FirstTime::auto_config) { } |
|
|
0 |
0 |
elsif (not $matcher or 'urllist' =~ /$matcher/) { } |
|
1356
|
0 |
0 |
if (@{$CPAN::Config->{'urllist'};}) { } |
|
1373
|
0 |
0 |
if ($CPAN::FirstTime::auto_config) |
|
1381
|
0 |
0 |
if ($CPAN::Config->{'install_help'} eq "local::lib") |
|
1382
|
0 |
0 |
if (not @{$CPAN::Config->{'urllist'};}) { } |
|
|
0 |
0 |
elsif (not $CPAN::Config->{'make'}) { } |
|
1400
|
0 |
0 |
if ($locallib and $dist = $locallib->distribution) |
|
1408
|
0 |
0 |
if (not $dist or my $err = $@) { } |
|
1426
|
0 |
0 |
if ($matcher and not $CPAN::Config->{'auto_commit'}) { } |
|
1433
|
0 |
0 |
if (not $matcher) |
|
1459
|
0 |
0 |
if (my $rc = _find_shell_config()) |
|
1465
|
0 |
0 |
if ($_conf =~ /^y/i) |
|
1474
|
0 |
0 |
if ($munged_rc) { } |
|
1500
|
0 |
0 |
if (my $rc = $shell_rc_map{$shell}) |
|
1502
|
0 |
0 |
if -w $path |
|
1522
|
0 |
0 |
if ($CPAN::META->has_usable('File::HomeDir') and 'File::HomeDir'->VERSION >= 0.65) { } |
|
|
0 |
0 |
elsif (defined $ENV{'HOME'}) { } |
|
1527
|
0 |
0 |
unless (getpwuid $<)[7] |
|
1539
|
0 |
0 |
if ($CPAN::META->has_usable('Net::Ping') and 'CPAN::Version'->vgt('Net::Ping'->VERSION, '2.13')) { } |
|
1545
|
0 |
0 |
if ($_conf =~ /^y/i) { } |
|
1546
|
0 |
0 |
unless conf_sites("auto_pick", 1) |
|
1549
|
0 |
0 |
if @old_list |
|
1550
|
0 |
0 |
scalar @old_list ? : |
|
1554
|
0 |
0 |
if ($_conf =~ /^y/i) |
|
1569
|
0 |
0 |
if (not $matcher or join($", @external_progs) =~ /$matcher/) |
|
1571
|
0 |
0 |
if $^O eq "MacOS" |
|
1575
|
0 |
0 |
if $matcher and not $progname =~ /$matcher/ |
|
1576
|
0 |
0 |
if ($^O eq "MacOS") |
|
1582
|
0 |
0 |
unless ($matcher) |
|
1585
|
0 |
0 |
if $progname eq "ncftp" and $CPAN::Config->{'ncftpget'} gt " " |
|
1590
|
0 |
0 |
if ('File::Spec'->file_name_is_absolute($path)) { } |
|
|
0 |
0 |
elsif ($path =~ /^\s+$/) { } |
|
1601
|
0 |
0 |
unless ($path) |
|
1603
|
0 |
0 |
if $Config::Config{$progname} |
|
1607
|
0 |
0 |
unless ($path) |
|
1609
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1610
|
0 |
0 |
if $progname eq "make" |
|
1617
|
0 |
0 |
if ($progname eq 'make' and $disabling || !_check_found($path)) { } |
|
|
0 |
0 |
elsif ($disabling) { } |
|
|
0 |
0 |
elsif (_check_found($CPAN::Config->{$progname})) { } |
|
1618
|
0 |
0 |
if ($disabling and $showed_make_warning) { } |
|
1622
|
0 |
0 |
unless $showed_make_warning++ |
|
1632
|
0 |
0 |
if $shortcut and not $matcher |
|
1645
|
0 |
0 |
if (not -f $prog) { } |
|
|
0 |
0 |
elsif (not -x $prog) { } |
|
1646
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1651
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1665
|
0 |
0 |
if ($^O eq "MSWin32") |
|
1688
|
0 |
0 |
if (not $matcher or "cpan_home" =~ /$matcher/) |
|
1691
|
0 |
0 |
if (-d $cpan_home) { } |
|
1692
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1699
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1705
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
1707
|
0 |
0 |
if ('File::Spec'->file_name_is_absolute($ans)) { } |
|
1710
|
0 |
0 |
if ($dir =~ /^~/ and !$last_ans || $ans ne $last_ans) |
|
1730
|
0 |
0 |
if ($@) |
|
1735
|
0 |
0 |
if (-d $ans and -w _) { } |
|
1740
|
0 |
0 |
if (++$loop > 5) |
|
1753
|
0 |
0 |
if (not $CPAN::FirstTime::auto_config and !$m || $item =~ /$m/) { } |
|
1754
|
0 |
0 |
if (my $intro = $CPAN::FirstTime::prompts{$item . "_intro"}) |
|
1760
|
0 |
0 |
$no_strip ? : |
|
1770
|
0 |
0 |
unless defined($default = $CPAN::Config->{$item}) |
|
1772
|
0 |
0 |
if (not $CPAN::FirstTime::auto_config and !$m || $item =~ /$m/) { } |
|
1773
|
0 |
0 |
if (my $intro = $CPAN::FirstTime::prompts{$item . "_intro"}) |
|
1777
|
0 |
0 |
$default ? : |
|
1778
|
0 |
0 |
$ans =~ /^[y1]/i ? : |
|
1789
|
0 |
0 |
if (not $CPAN::FirstTime::auto_config and !$m || $item =~ /$m/) { } |
|
1791
|
0 |
0 |
if defined $intro |
|
1817
|
0 |
0 |
if $args{'auto_pick'} |
|
1824
|
0 |
0 |
if (-f $mby and -f $m and -M $m < -M $mby) |
|
1826
|
0 |
0 |
unless File::Copy::copy($m, $mby) |
|
1831
|
0 |
0 |
if ($mby and -f $mby and -s _ > 0) { } |
|
1835
|
0 |
0 |
if ($args{'auto_pick'}) { } |
|
1836
|
0 |
0 |
if ($very_old) |
|
1838
|
0 |
0 |
unless eval {
do {
"CPAN::FTP"->localize($m, $mby, 3, 1)
}
} |
|
1851
|
0 |
0 |
$very_old ? : |
|
1852
|
0 |
0 |
if ($ans =~ /^n/i) |
|
1856
|
0 |
0 |
unless eval {
do {
"CPAN::FTP"->localize($m, $mby, 3, 1)
}
} |
|
1865
|
0 |
0 |
unless ($CPAN::Config->{'connect_to_internet_ok'}) |
|
1870
|
0 |
0 |
if ($ans =~ /^y/i) |
|
1876
|
0 |
0 |
if ($CPAN::Config->{'connect_to_internet_ok'}) { } |
|
1878
|
0 |
0 |
unless eval {
do {
"CPAN::FTP"->localize($m, $mby, 3, 1)
}
} |
|
1894
|
0 |
0 |
if (-f $mby and -s _ > 0) |
|
1896
|
0 |
0 |
$args{'auto_pick'} ? : |
|
1910
|
0 |
0 |
if ($abs = "MM"->maybe_command($abs)) |
|
1918
|
0 |
0 |
if $CPAN::DEBUG |
|
1929
|
0 |
0 |
if $limit > 15 |
|
1933
|
0 |
0 |
if $pos >= @$items |
|
1944
|
0 |
0 |
if (0 == @nums) { } |
|
|
0 |
0 |
elsif (grep((/\D/ || $_ < 1 || $_ > $i), @nums)) { } |
|
1949
|
0 |
0 |
if (join($", @nums) =~ /\D/) |
|
1954
|
0 |
0 |
if ($require_nonempty and not @nums) |
|
1959
|
0 |
0 |
unless (@nums) |
|
1972
|
0 |
0 |
unless $nums |
|
1974
|
0 |
0 |
if ($n =~ /^(\d+)-(\d+)$/) { } |
|
1993
|
0 |
0 |
$default ? : |
|
1994
|
0 |
0 |
if $pos < @$items |
|
2003
|
0 |
0 |
unless my $local = shift() |
|
2015
|
0 |
0 |
if ($cnt++ > 60) |
|
2018
|
0 |
0 |
$CPAN::Config->{'urllist_ping_external'} ? : |
|
|
0 |
0 |
$CPAN::Config->{'urllist_ping_verbose'} ? : |
|
2023
|
0 |
0 |
if $_ and ref $_ |
|
2027
|
0 |
0 |
if $callback_was_active |
|
2033
|
0 |
0 |
unless my $local = shift() |
|
2045
|
0 |
0 |
if (@previous_urls) { } |
|
2063
|
0 |
0 |
if @cont > 1 |
|
2066
|
0 |
0 |
if (@previous_urls and @countries) |
|
2071
|
0 |
0 |
if (@countries) |
|
2080
|
0 |
0 |
if $country =~ /edit previous picks/ |
|
2084
|
0 |
0 |
if $m->ftp |
|
2085
|
0 |
0 |
if $m->http |
|
2088
|
0 |
0 |
if @countries > 1 |
|
2097
|
0 |
0 |
if (@previous_urls) |
|
2120
|
0 |
0 |
unless (%seen) |
|
2127
|
0 |
0 |
if ($ans) { } |
|
2132
|
0 |
0 |
unless $ans =~ /:/ |
|
2133
|
0 |
0 |
if ($ans =~ m[^\w+:/.]) { } |
|
2134
|
0 |
0 |
unless $seen{$ans}++ |
|
2148
|
0 |
0 |
if (++$eacnt >= 5) |
|
2164
|
0 |
0 |
unless $CPAN::Config->{'urllist'} |
|
2177
|
0 |
0 |
if $ENV{'PERL_MM_OPT'} and $ENV{'PERL_MM_OPT'} =~ /install_base/i |
|
2178
|
0 |
0 |
if grep {($CPAN::Config->{$_} || '') =~ /install_base/i;} "makepl_arg", "make_install_arg", "mbuildpl_arg", "mbuild_install_arg" |
|
2184
|
0 |
0 |
if grep {($CPAN::Config->{$_} || '') =~ /sudo/;} "make_install_make_command", "mbuild_install_build_command" |
|
2195
|
0 |
0 |
unless (defined &CPAN::FirstTime::_real_prompt) |
|
2201
|
0 |
0 |
unless $CPAN::FirstTime::auto_config |
|
2208
|
0 |
0 |
unless (defined &CPAN::FirstTime::_real_prompt) |