Branch Coverage

blib/lib/CPAN/Distribution.pm
Criterion Covered Total %
branch 29 1614 1.8


line true false branch
27 0 0 unless defined $args
28 0 0 if ($CPAN::META->has_inst($plugin_proper)) { }
31 0 0 if ($instance{$plugin}->can($hookname))
45 0 0 unless my $ro = $self->ro
72 0 1 unless defined $s
73 0 1 if (substr($s, -1, 1) eq '.') { }
0 1 elsif ($s =~ tr[/][] == 1 or not $s =~ m[[A-Z]/[A-Z-0-9]{2}/[A-Z-0-9]{2,}/]) { }
75 0 0 unless ($CPAN::META->{'LOCK'} or $$CPAN::Have_warned{"$s is unlocked"}++)
83 0 0 if ($s eq '.') { }
0 0 elsif ('File::Spec'->file_name_is_absolute($s)) { }
0 0 elsif ('File::Spec'->can('rel2abs')) { }
91 0 0 if $CPAN::DEBUG
92 0 0 unless ($CPAN::META->exists("CPAN::Distribution", $s))
104 0 0 if $s =~ m[^N/A|^Contact Author]
106 0 0 if $CPAN::DEBUG
115 0 1 if (substr($self->id, -1, 1) eq '.') { }
140 0 0 if $CPAN::DEBUG
141 0 0 unless ($local_file = "CPAN::FTP"->localize("authors/id/$norm", $local_wanted))
152 0 0 if ($self->{'ID'} =~ m[[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/])
162 0 1 unless $id =~ m[^./../]
206 0 0 if $CPAN::DEBUG
210 0 0 if exists $self->{'incommandcolor'} and $color == 1 and $self->{'incommandcolor'} == $color
212 0 0 if ($depth >= $CPAN::MAX_RECURSION)
214 0 0 if ($e->is_resolvable) { }
222 0 0 if (defined $prereq_pm)
226 0 0 unless $prereq_pm->{'requires'}
227 0 0 unless $prereq_pm->{'build_requires'}
229 0 0 if $pre eq "perl"
231 0 0 unless ($premo = "CPAN::Shell"->expand("Module", $pre))
239 0 0 if ($color == 0)
262 0 0 if exists $self->{'CONTAINSMODS'}
265 0 0 unless my $mod_file = $mod->cpan_file
266 0 0 unless my $mod_id = $mod->{'ID'}
269 0 0 if ($CPAN::Signal)
273 0 0 if $mod_file eq $dist_id
281 0 0 if exists $self->{'UPLOAD_DATE'}
286 0 0 unless $author
288 0 0 unless @dl
291 0 0 unless $dirent->[1]
301 0 0 unless ($obj->uptodate)
303 0 0 if $CPAN::DEBUG
313 0 0 if defined $id
323 0 0 if (exists $self->{'cleanup_after_install_done'})
324 0 0 if ($self->{'force_update'}) { }
334 0 0 if (my $why = $self->check_disabled)
342 0 0 if $CPAN::DEBUG
343 0 0 if (exists $self->{'build_dir'} and -d $self->{'build_dir'})
353 0 0 if $CPAN::DEBUG
354 0 0 if (exists $self->{'build_dir'} and not -d $self->{'build_dir'})
363 0 0 if $CPAN::DEBUG
364 0 0 UNIVERSAL::can($self->{'unwrapped'}, 'failed') ? :
0 0 if (exists $self->{'unwrapped'} and UNIVERSAL::can($self->{'unwrapped'}, "failed") ? $self->{'unwrapped'}->failed : $self->{'unwrapped'} =~ /^NO/)
381 0 0 if $CPAN::DEBUG
382 0 0 if (my $goto = $self->prefs->{'goto'})
387 0 0 if (defined(my $sc = $self->shortcut_get))
394 0 0 defined $ENV{'PERL5LIB'} ? :
395 0 0 defined $ENV{'PERL5OPT'} ? :
405 0 0 unless ($self->{'build_dir'} and -d $self->{'build_dir'})
407 0 0 if ($CPAN::Signal)
412 0 0 if ($CPAN::Signal)
418 0 0 if (exists $self->{'writemakefile'} and ref $self->{'writemakefile'} and $self->{'writemakefile'}->can("failed") and $self->{'writemakefile'}->failed)
432 0 0 if ($CPAN::Signal)
437 0 0 unless ($self->patch)
452 0 0 if $self->is_dot_dist
462 0 0 if $CPAN::DEBUG
463 0 0 unless ($local_file = "CPAN::FTP"->localize("authors/id/$self->{'ID'}", $local_wanted))
467 0 0 if ($CPAN::Index::DATE_OF_02)
474 0 0 if $CPAN::DEBUG
483 0 0 if $self->is_dot_dist
484 0 0 if ($CPAN::META->has_inst('Digest::SHA')) { }
495 0 0 if $self->is_dot_dist
500 0 0 if $CPAN::DEBUG
502 0 0 unless (mkdir "tmp-$$", 493)
513 0 0 if ($CPAN::Signal)
523 0 0 unless ($ct)
528 0 0 if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { }
0 0 elsif ($local_file =~ /\.zip(?!\n)\Z/i) { }
529 0 0 unless eval { do { $ct->gtest } }
534 0 0 unless $ct->gtest
540 0 0 unless my $dh = "DirHandle"->new("File::Spec"->curdir)
543 0 0 if (grep {$_ eq "pax_global_header";} @readdir)
556 0 0 if (@readdir == 1 and -d $readdir[0]) { }
562 0 0 unless ($dh2 = "DirHandle"->new($from_dir))
578 0 0 if (not $userid or $userid eq "N/A")
586 0 0 $CPAN::META->has_usable('Errno') && defined &Errno::EEXIST ? :
591 0 0 if mkdir $packagedir, 511
592 0 0 if (defined $eexist and $! != $eexist or $suffix == 999)
600 0 0 if -d $from
602 0 0 unless (File::Copy::move($from, $to))
605 0 0 -e $from ? :
0 0 -e $to ? :
629 41 0 unless defined $filter
632 0 41 unless ($build_dir = $self->{'build_dir'})
642 41 0 if $has_cm
643 41 0 if $has_cm or $has_pcm
644 41 0 if $has_cm
645 41 0 if $has_cm or $has_pcm
649 38 63 if -f $path
658 0 0 if $CPAN::DEBUG
659 0 0 unless my $build_dir = $self->{'build_dir'}
661 0 0 if $CPAN::DEBUG
662 0 0 unless -f $yaml
665 0 0 unless $CPAN::META->has_inst("Parse::CPAN::Meta")
666 0 0 unless $Parse::CPAN::Meta::VERSION >= "1.40"
670 0 0 unless ($early_yaml)
673 0 0 if $CPAN::DEBUG
674 0 0 if $CPAN::DEBUG and $early_yaml
675 0 0 if (not ref $early_yaml or ref $early_yaml ne "HASH")
688 0 0 if $CPAN::DEBUG
689 0 0 if (my(@prereq) = $self->unsat_prereq("later"))
690 0 0 if ($CPAN::DEBUG)
695 0 0 if ($prereq[0][0] eq 'perl') { }
704 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
721 0 0 if $CPAN::DEBUG
723 0 0 unless ($enable_configure_requires)
730 0 0 if $CPAN::DEBUG
731 0 0 unless @prereq
732 0 0 if $CPAN::DEBUG
733 0 0 if ($self->{'configure_requires_later'})
734 0 0 unless $self->{'configure_requires_later_for'}
735 0 0 if ($self->{'configure_requires_later_for'}{$k} > 1)
738 0 0 if ($p->[0] eq $k)
742 0 0 if $type
748 0 0 if ($prereq[0][0] eq 'perl') { }
759 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
776 0 0 unless $self->satisfy_configure_requires
780 0 0 unless ($mpl_exists)
786 0 0 unless my $mpldh = "DirHandle"->new($self->{'build_dir'})
791 0 0 if (-f "File::Spec"->catfile($self->{'build_dir'}, "Build.PL"))
792 0 0 if ($mpl_exists) { }
793 0 0 if ($CPAN::META->has_inst("Module::Build"))
799 0 0 if fileno Module::Build::Version::DATA
806 0 0 if (lc $prefer_installer eq "rand")
807 0 0 rand() < 0.5 ? :
809 0 0 if (lc $prefer_installer eq 'mb') { }
0 0 elsif ($self->{'archived'} eq 'patch') { }
0 0 elsif (not $mpl_exists) { }
819 0 0 if ($self->{'build_dir'} and $CPAN::Config->{'build_dir_reuse'})
833 0 0 unless (defined $dir and length $dir)
848 0 0 unless ($sbd eq $cbd)
855 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
881 0 0 if $CPAN::DEBUG
891 0 0 if $CPAN::DEBUG
894 0 0 if $CPAN::DEBUG
895 0 0 if ($patches)
896 0 0 unless @$patches
898 0 0 if $CPAN::DEBUG
900 0 0 unless ($patchbin and length $patchbin)
904 0 0 unless ("MM"->maybe_command($patchbin))
910 0 0 unless ($stdpatchargs)
913 0 0 unless open FH, $system
917 0 0 if (/^patch\s+([\d\.]+)/)
922 0 0 if ($pversion) { }
928 0 0 @$patches == 1 ? :
932 0 0 if ($patches_dir and not "File::Spec"->file_name_is_absolute($patch))
934 0 0 if -f $f
936 0 0 unless (-f $patch)
937 0 0 if $CPAN::DEBUG
938 0 0 if (my $trydl = $self->try_download($patch)) { }
953 0 0 if ($ppp eq 'applypatch') { }
959 0 0 if ($Config::Config{'osname'} eq "solaris")
961 0 0 unless $pfiles
962 0 0 unless my(@stat) = stat $file
971 0 0 unless (open $writefh, "|$pcommand")
982 0 0 unless (close $writefh)
1006 0 0 if ($CPAN::Config->{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/)
1013 0 0 unless /^[\*\+]{3}\s(\S+)/
1017 0 0 if -f $file
1018 0 0 if $CPAN::DEBUG
1021 0 0 unless $cnt_files
1022 0 0 $cnt_files == $cnt_p0files ? :
1030 0 0 if $CPAN::DEBUG
1036 0 0 if (-f $configure) { }
0 0 elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { }
1048 0 0 if ($cf =~ m[/])
1053 0 0 unless length $cf
1054 0 0 if (my $crud = $self->_contains_crud($build_dir))
1069 0 0 if ($self->{'archived'} eq "maybe_pl")
1074 0 0 unless $fh->open(">$mpl")
1094 0 0 unless opendir $dh, $dir
1097 0 0 if $dirent =~ /^\.\.?$/
1099 0 0 if (-d $path) { }
0 0 elsif (-f $path) { }
1105 0 0 if (@dirs and @files) { }
0 0 elsif (@files > 2) { }
1119 0 0 unless $fh->open($script_file)
1126 0 0 if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { }
0 0 elsif ($state =~ /^(name|prereq)$/) { }
0 0 elsif (/^=cut\b/) { }
1127 0 0 if ($1 eq 'NAME') { }
0 0 elsif ($1 eq 'PREREQUISITES') { }
1133 0 0 if (/^=/) { }
0 0 elsif (/^\s*$/) { }
0 0 elsif ($state eq 'name') { }
0 0 elsif ($state eq 'prereq') { }
1138 0 0 if ($name eq "")
1160 0 0 if (/[\s\'\"]/) { }
1167 0 0 if ($name)
1169 0 0 unless rename $script_file, $to_file
1186 0 0 if ($check_sigs)
1187 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1188 0 0 if (-f 'SIGNATURE') { }
1189 0 0 if $CPAN::DEBUG
1191 0 0 if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { }
1215 0 0 if $CPAN::Frontend->can("mysleep")
1218 0 0 if $CPAN::DEBUG
1224 0 0 if $CPAN::DEBUG
1234 0 0 if ($result) { }
1246 0 0 if (eval { do { $ct->unzip } }) { }
1257 0 0 if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { }
0 0 elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { }
1266 0 0 if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { }
1267 0 0 if (eval { do { 'CPAN::Tarzip'->new($local_file)->gunzip($to) } }) { }
1273 0 0 if (File::Copy::cp($local_file, '.')) { }
1296 0 0 if ($^O eq "MacOS")
1301 0 0 if ($CPAN::Config->{'shell'}) { }
1314 0 0 unless ($dir = $self->dir)
1317 0 0 unless ($dir ||= $self->dir)
1333 0 0 defined $ENV{'PERL5LIB'} ? :
1335 0 0 defined $ENV{'PERL5OPT'} ? :
1340 0 0 unless (system($shell) == 0)
1366 0 0 if ($cvs_site_perl)
1376 0 0 unless CPAN::Distribution::chdir($dir)
1381 0 0 unless system(@cmd) == 0
1384 0 0 unless CPAN::Distribution::chdir($pwd)
1392 0 0 if $CPAN::DEBUG
1402 0 0 if $CPAN::DEBUG
1403 0 0 unless $local_file = "CPAN::FTP"->localize($readme, $local_wanted)
1407 0 0 if ($^O eq "MacOS")
1415 0 0 unless $fh_pager->open("|$pager")
1418 0 0 unless $fh_readme->open($local_file)
1435 0 0 if $self->{'CHECKSUM_STATUS'} eq "OK"
1436 0 0 if @e
1446 0 0 if (my $size = -s $lc_want)
1447 0 0 if $CPAN::DEBUG
1450 0 0 if ($stat[9] >= $epoch_starting_support_of_cpan_path) { }
1451 0 0 if ($self->CHECKSUM_check_file($lc_want, 1))
1460 0 0 unless ($lc_file)
1465 0 0 if ($lc_file) { }
1472 0 0 if ($self->CHECKSUM_check_file($lc_file))
1482 0 0 if ($rv eq Module::Signature::CANNOT_VERIFY())
1498 0 0 if ($rv == Module::Signature::SIGNATURE_OK()) { }
1528 0 0 if $CPAN::DEBUG
1531 0 0 if ($check_sigs)
1532 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1533 0 0 if $CPAN::DEBUG
1536 0 0 if $CPAN::DEBUG
1544 0 0 if ($check_sigs) { }
1546 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
1556 0 0 unless my $gpg = $CPAN::Config->{'gpg'}
1558 0 0 unless 0 == system($system)
1559 0 0 unless open $fh, $tempfile
1566 0 0 if (open $fh, $chk_file) { }
1577 0 0 if ($@)
1579 0 0 if $@
1582 0 0 if (not ref $cksum or ref $cksum ne 'HASH') { }
0 0 elsif (exists $cksum->{$basename} and not exists $cksum->{$basename}{'cpan_path'}) { }
0 0 elsif (exists $cksum->{$basename} and substr($self->{'ID'}, 0, length $cksum->{$basename}{'cpan_path'}) ne $cksum->{$basename}{'cpan_path'}) { }
0 0 elsif (exists $cksum->{$basename}{'sha256'}) { }
1590 0 0 unless $answer =~ /^\s*y/i
1600 0 0 unless $answer =~ /^\s*y/i
1614 0 0 unless $answer =~ /^\s*y/i
1618 0 0 if $CPAN::DEBUG
1627 0 0 unless ($eq)
1638 0 0 if ($eq) { }
1667 0 0 if $sloppy
1668 0 0 unless ($self->{'CHECKSUM_STATUS'})
1677 0 0 unless $answer =~ /^\s*y/i
1687 0 0 if ($CPAN::META->has_inst("Digest::SHA"))
1761 0 0 if $fforce or $method and $phase eq $method
1762 0 0 unless $methodmatch
1764 0 0 if ($phase eq 'get') { }
0 0 elsif ($phase eq 'test') { }
1765 0 0 if (substr($self->id, -1, 1) eq "." and $att =~ /(unwrapped|build_dir|archived)/)
1770 0 0 if ($att eq "build_dir" and $self->{'build_dir'} and $CPAN::META->{'is_tested'})
1777 0 0 if ($att eq "make_test" and $self->{'make_test'} and $self->{'make_test'}{'COMMANDID'} and $self->{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId)
1787 0 0 if ($ldebug or $CPAN::DEBUG)
1793 0 0 if ($method and $method =~ /make|test|install/)
1822 0 0 if ($file =~ / ^ perl ( -(5\.\d+\.\d+) | (5)[._-](00[0-5](?:_[0-4][0-9])?) ) \.tar[._-](?:gz|bz2) (?!\n)\Z /sx) { }
0 0 elsif ($self->cpan_comment and $self->cpan_comment =~ /isa_perl\(.+?\)/) { }
1832 0 0 if ($2) { }
1849 0 0 unless ($self)
1863 0 0 if $CPAN::DEBUG
1864 0 0 if (not $self->{'archived'} or $self->{'archived'} eq "NO")
1868 0 0 if $CPAN::DEBUG
1869 0 0 UNIVERSAL::can($self->{'unwrapped'}, 'failed') ? :
0 0 if (not $self->{'unwrapped'} or UNIVERSAL::can($self->{'unwrapped'}, "failed") ? $self->{'unwrapped'}->failed : $self->{'unwrapped'} =~ /^NO/)
1878 0 0 if $CPAN::DEBUG
1879 0 0 UNIVERSAL::can($self->{'signature_verify'}, 'failed') ? :
0 0 if (not $self->{'force_update'} and exists $self->{'signature_verify'} and UNIVERSAL::can($self->{'signature_verify'}, "failed") ? $self->{'signature_verify'}->failed : $self->{'signature_verify'} =~ /^NO/)
1890 0 0 if $CPAN::DEBUG
1891 0 0 if ($self->{'writemakefile'})
1892 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? $self->{'writemakefile'}->failed : $self->{'writemakefile'} =~ /^NO/) { }
1900 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'text') ? :
1910 0 0 if $CPAN::DEBUG
1911 0 0 if (my $later = $self->{'configure_requires_later'})
1921 0 0 unless $self->get
1924 0 0 if (defined(my $sc = $self->shortcut_prepare))
1930 0 0 defined $ENV{'PERL5LIB'} ? :
1931 0 0 defined $ENV{'PERL5OPT'} ? :
1934 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? :
1938 0 0 if ($CPAN::Signal)
1943 0 0 unless my $builddir = $self->dir
1946 0 0 unless (CPAN::Distribution::chdir($builddir))
1951 0 0 if ($CPAN::Signal)
1956 0 0 if $CPAN::DEBUG
1960 0 0 unless $self->choose_MM_or_MB
1964 0 0 $self->{'modulebuild'} ? :
0 0 $self->{'configure'} ? :
1969 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq "follow")
1976 0 0 if ($self->prefs->{'pl'})
1979 0 0 defined $ENV{'PERL'} ? :
1981 0 0 if $CPAN::Config->{'use_prompt_default'}
1982 0 0 if $CPAN::Config->{'use_prompt_default'}
1983 0 0 if ($pl_commandline) { }
0 0 elsif ($self->{'configure'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
1989 0 0 unless my($perl) = $self->perl
1991 0 0 $mbuildpl_arg ? :
1996 0 0 unless my($perl) = $self->perl
2005 0 0 $switch ? :
0 0 $makepl_arg ? :
2012 0 0 if ($self->prefs->{'pl'})
2015 0 0 if $pl_env
2016 0 0 if (exists $self->{'writemakefile'}) { }
2022 0 0 if ($CPAN::Config->{'inactivity_timeout'})
2024 0 0 if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { }
2041 0 0 if ($go_via_alarm) { }
2042 0 0 if ($self->_should_report('pl')) { }
2053 0 0 if (defined($pid = fork)) { }
2054 0 0 if ($pid) { }
2069 0 0 if ($@)
2081 0 0 if (my $expect_model = $self->_prefs_with_expect('pl')) { }
0 0 elsif ($self->_should_report('pl')) { }
2085 0 0 if (not defined $ret and $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
2094 0 0 if (not defined $output or $@)
2106 0 0 if ($ret != 0)
2114 0 0 if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { }
2120 0 0 $self->{'modulebuild'} ? :
2139 0 0 if $CPAN::DEBUG
2140 0 0 if (defined $self->{'make'})
2141 0 0 UNIVERSAL::can($self->{'make'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'make'}, 'failed') ? $self->{'make'}->failed : $self->{'make'} =~ /^NO/) { }
2145 0 0 if ($self->{'force_update'}) { }
2151 0 0 length $self->{'make'} > 3 ? :
2168 0 0 if (exists $self->{'cleanup_after_install_done'})
2173 0 0 if $CPAN::DEBUG
2174 0 0 if (my $goto = $self->prefs->{'goto'})
2188 0 0 if ($self->isa_perl)
2189 0 0 if ($self->called_for ne $self->id and not $self->{'force_update'})
2217 0 0 unless ($self->prepare)
2222 0 0 if (defined(my $sc = $self->shortcut_make))
2227 0 0 if ($CPAN::Signal)
2233 0 0 unless my $builddir = $self->dir
2236 0 0 unless (CPAN::Distribution::chdir($builddir))
2242 0 0 $self->{'modulebuild'} ? :
2246 0 0 defined $ENV{'PERL5LIB'} ? :
2247 0 0 defined $ENV{'PERL5OPT'} ? :
2250 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? :
2254 0 0 if ($CPAN::Signal)
2260 0 0 if ($^O eq "MacOS")
2268 0 0 if defined $v
2273 0 0 if ($@)
2276 0 0 unless ($satisfied)
2280 0 0 if ($CPAN::Signal)
2287 0 0 unless (CPAN::Distribution::chdir($builddir))
2295 0 0 if ($self->prefs->{'make'})
2298 0 0 defined $ENV{'PERL'} ? :
2299 0 0 if $CPAN::Config->{'use_prompt_default'}
2300 0 0 if $CPAN::Config->{'use_prompt_default'}
2301 0 0 if ($make_commandline) { }
2305 0 0 if ($self->{'modulebuild'}) { }
2306 0 0 unless (-f "Build" or $^O eq "VMS" and -f "Build.com")
2318 0 0 $make_arg ? :
2324 0 0 if ($self->prefs->{'make'})
2327 0 0 if $make_env
2330 0 0 if ($expect_model and @{$expect_model->{'talk'};})
2332 0 0 if ($can_expect) { }
2340 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('make')) { }
2353 0 0 if $rc == -1
2356 0 0 if ($system_ok) { }
2363 0 0 if defined $system_err
2390 0 0 if $CPAN::DEBUG
2391 0 0 if ($CPAN::META->has_inst('Expect')) { }
2395 0 0 if ($expect_model->{'mode'} eq 'deterministic') { }
0 0 elsif ($expect_model->{'mode'} eq 'anyorder') { }
2431 0 0 if ($match[2])
2435 0 0 if ($eof) { }
0 0 elsif ($ran_into_timeout) { }
2444 0 0 if ($but =~ /$regex/)
2448 0 0 unless $reuse
2455 0 0 if ($have_waited < $timeout)
2476 0 0 if $CPAN::DEBUG
2492 0 0 if ($ran_into_timeout) { }
0 0 elsif ($ran_into_eof) { }
2509 0 0 if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { }
2515 0 0 if ($@)
2519 0 0 if $CPAN::DEBUG
2529 0 0 if $prefs_dir =~ /^\s*$/
2531 0 0 if ($@)
2536 0 0 unless my $dh = "DirHandle"->new($prefs_dir)
2538 0 0 unless @files
2543 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
2547 0 0 if ($CPAN::META->has_inst("Data::Dumper"))
2550 0 0 if ($CPAN::META->has_inst("Storable"))
2553 0 0 if (@fallbacks) { }
2555 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2560 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2568 0 0 if ($result->is_warning) { }
0 0 elsif ($result->is_fatal) { }
2585 0 0 unless ($pref->has_any_match)
2589 0 0 unless ($pref->has_valid_subkeys)
2606 0 0 if ($pref->matches($arg))
2622 0 0 if (exists $self->{'negative_prefs_cache'} and $self->{'negative_prefs_cache'} != $CPAN::CurrentCommandId)
2629 0 0 if (exists $self->{'prefs'})
2632 0 0 if ($CPAN::Config->{'prefs_dir'})
2633 0 0 if $CPAN::DEBUG
2636 0 0 if $CPAN::DEBUG
2637 0 0 if ($prefs)
2648 0 0 if $filler2 < 0
2667 0 0 if ($prefs and exists $prefs->{$phase} and exists $prefs->{$phase}{'args'} and $prefs->{$phase}{'args'})
2688 0 0 if ($self->{'modulebuild'}) { }
2711 0 0 if ($self) { }
2736 0 0 unless $mimc
2742 0 0 if $^O eq "MSWin32"
2753 0 0 if (exists $prereq_pm->{$rt}{$prereq})
2757 0 0 if not $av or "CPAN::Version"->vlt($av, $prereq_pm->{$rt}{$prereq})
2759 0 0 if (exists $$prereq_pm{"opt_$rt"}{$prereq})
2771 0 0 unless @prereq_tuples
2776 0 0 if ($p->[1] =~ /^(r|c)$/) { }
0 0 elsif ($p->[1] =~ /^(b)$/) { }
2780 0 0 if ($reqtype =~ /^(r|c)$/) { }
2797 0 0 length $unsat > length $pretty_id ? :
2813 0 0 $self->is_locally_optional(undef, $_->[0]) ? :
2816 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq 'follow') { }
0 0 elsif ($CPAN::Config->{'prerequisites_policy'} eq 'ask') { }
2829 0 0 if ($follow)
2835 0 0 if ($optional and $self->is_locally_optional(undef, $prereq)) { }
2844 0 0 if ($any) { }
2845 0 0 unless ($optional)
2859 0 0 if (@to_queue_mand) { }
0 0 elsif (@to_queue_opt) { }
2874 0 0 unless my $optf = $meta_yml->{'optional_features'}
2875 0 0 if (not ref $optf or ref $optf ne "HASH")
2879 0 0 unless my $wantf = $self->prefs->{'features'}
2880 0 0 if (not ref $wantf or ref $wantf ne "ARRAY")
2886 0 0 if (my $f = $optf->{$wf}) { }
2894 0 0 unless my $reqhash = $f->{$reqtype}
2912 0 0 unless ($CPAN::META->has_usable("CPAN::Meta::Requirements"))
2914 0 0 if (defined $CPAN::Meta::Requirements::VERSION)
2919 0 0 if ($self->{'CALLED_FOR'})
2920 0 0 if ($self->{'CALLED_FOR'} =~ /^( CPAN::Meta::Requirements |CPAN::DistnameInfo |version |parent |ExtUtils::MakeMaker |Test::Harness )$/x)
2942 0 0 if ($slot eq 'configure_requires_later') { }
0 0 elsif ($slot eq 'later') { }
2951 0 0 if (-f "Build.PL" and not -f "File::Spec"->catfile($self->{'build_dir'}, "Makefile.PL") and not $merged->requirements_for_module("Module::Build") and not $CPAN::META->has_inst("Module::Build"))
2968 0 0 unless $prereq_pm_0->{$reqtype}
2970 0 0 unless $dep->{$reqtype}
3001 0 0 unless ($CPAN::META->has_usable("CPAN::Meta::Requirements"))
3007 0 0 if $CPAN::DEBUG
3011 0 0 if ($need_module eq 'perl') { }
3015 0 0 if (CPAN::_sqlite_running())
3023 0 0 if ($nmo->uptodate)
3027 0 0 unless ($accepts)
3044 0 0 if ($sufficient and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef')
3050 0 0 unless ($nmo->inst_deprecated)
3063 0 0 if ($available_file)
3071 0 0 if ($inst_file and $available_file eq $inst_file and $nmo->inst_deprecated) { }
0 0 elsif ($self->{'reqtype'} and $self->{'reqtype'} =~ /^(r|c)$/ and exists $prereq_pm->{'requires'}{$need_module} || exists $prereq_pm->{'opt_requires'}{$need_module} and $nmo and not $inst_file) { }
3080 0 0 if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/)
3101 0 0 if ($need_distro->{'install'} and $need_distro->{'install'}->failed and $need_distro->{'install'}->text =~ /is only/)
3111 0 0 if $fulfills_all_version_rqs
3115 0 0 if ($need_module eq "perl")
3119 0 0 if $CPAN::DEBUG
3120 0 0 if (my $sponsoring = $self->{'sponsored_mods'}{$need_module}++)
3150 0 0 unless $do
3151 0 0 if ("CPAN::Version"->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0)
3168 0 0 if ($do->{$nosayer})
3171 0 0 UNIVERSAL::can($do->{$nosayer}, 'failed') ? :
0 0 if (UNIVERSAL::can($do->{$nosayer}, 'failed') ? $do->{$nosayer}->failed : $do->{$nosayer} =~ /^NO/) { }
3174 0 0 if ($nosayer eq "make_test" and $do->{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId)
3181 0 0 if ($self->is_locally_optional($prereq_pm, $need_module)) { }
3196 0 0 if ($nosayer =~ /^(install|make_test)$/)
3215 0 0 if (do { exists $prereq_pm->{'opt_requires'}{$need_module} unless exists $prereq_pm->{'requires'}{$need_module} }) { }
0 0 elsif ($slot eq 'configure_requires_later') { }
3216 0 0 unless exists $prereq_pm->{'requires'}{$need_module}
3236 0 0 if $CPAN::DEBUG
3242 0 0 if $CPAN::DEBUG
3252 0 0 if ($rq =~ s/>=\s*//) { }
0 0 elsif ($rq =~ s/>\s*//) { }
0 0 elsif ($rq =~ s/!=\s*//) { }
0 0 elsif ($rq =~ /<=?\s*/) { }
0 0 elsif ($rq =~ s/==\s*//) { }
3255 0 0 if ("CPAN::Version"->vgt($available_version, $rq))
3261 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3275 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3283 0 0 unless ("CPAN::Version"->vgt($rq, $available_version))
3286 0 0 if $CPAN::DEBUG
3296 0 0 if $CPAN::DEBUG
3304 2 28 unless my $meta_file = $self->pick_meta_file
3307 0 28 unless $CPAN::META->has_usable("CPAN::Meta")
3308 0 28 unless my $meta = eval { do { "CPAN::Meta"->load_file($meta_file) } }
3312 0 28 if ($meta_file eq "META.yml" and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3316 0 0 if $eummv < "6.2501"
3327 0 0 if $CPAN::DEBUG
3328 0 0 unless $meta_file
3331 0 0 if ($@ or not $yaml)
3335 0 0 if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH')
3339 0 0 if $CPAN::DEBUG
3341 0 0 if $CPAN::DEBUG and $yaml
3343 0 0 if ($meta_file =~ /MYMETA\.yml/)
3347 0 0 if (defined $yaml->{'dynamic_config'} and not $yaml->{'dynamic_config'})
3357 0 0 unless my $meta_file = $self->pick_meta_file("^META")
3358 0 0 if (my $meta_obj = $self->read_meta) { }
3361 0 0 $cr ? :
3374 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3375 0 8 unless ($self->{'build_dir'})
3379 0 8 $^O eq 'VMS' ? :
3380 0 8 $^O eq 'VMS' ? :
3381 0 8 unless -f $makefile or -f $buildfile
3384 0 8 if $CPAN::DEBUG
3389 8 0 if ($meta_obj and not $meta_obj->dynamic_config) { }
0 0 elsif (my $yaml = $self->read_yaml) { }
3404 0 8 if ($CPAN::Config->{'recommends_policy'})
3410 0 8 if ($CPAN::Config->{'suggests_policy'})
3421 0 0 if ($CPAN::Config->{'recommends_policy'})
3424 0 0 unless ref $req eq "HASH" and %$req
3425 0 0 if ($req)
3426 0 0 if ($yaml->{'generated_by'} and $yaml->{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3429 0 0 if ($eummv < "6.2501")
3438 0 0 unless $req
3440 0 0 unless defined $v
3441 0 0 if ($v =~ /\d/) { }
0 0 elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { }
3456 0 0 if $do_replace
3464 0 8 unless ($req or $breq)
3466 0 0 unless ($build_dir = $self->{'build_dir'})
3471 0 0 if (-f $makefile and $fh = "FileHandle"->new("<$makefile\000"))
3474 0 0 if $CPAN::DEBUG
3477 0 0 if /MakeMaker post_initialize section/
3481 0 0 unless $p
3493 0 0 if (defined $req->{$m})
3496 0 0 if ($n =~ /^q\[(.*?)\]$/)
3499 0 0 if (not $prevn or "CPAN::Version"->vlt($prevn, $n))
3507 0 8 unless ($req or $breq)
3508 0 0 unless my $build_dir = $self->{'build_dir'}
3510 0 0 if (-f $buildfile)
3511 0 0 if $CPAN::DEBUG
3513 0 0 if (-f $build_prereqs)
3514 0 0 if $CPAN::DEBUG
3516 0 0 unless open FH, $build_prereqs
3523 0 0 if ($@) { }
3532 8 0 if ($req or $breq or $opt_req or $opt_breq)
3548 0 0 if $CPAN::DEBUG
3550 0 0 if ($self->{'badtestcnt'} > 0)
3552 0 0 if $CPAN::DEBUG
3557 0 0 if $CPAN::DEBUG
3559 0 0 if $self->{$slot}
3562 0 0 if $CPAN::DEBUG
3563 0 0 if ($self->{'make_test'})
3564 0 0 UNIVERSAL::can($self->{'make_test'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'make_test'}, 'failed') ? $self->{'make_test'}->failed : $self->{'make_test'} =~ /^NO/) { }
3569 0 0 if (UNIVERSAL::can($self->{'make_test'}, "commandid") and $self->{'make_test'}->commandid == $CPAN::CurrentCommandId)
3579 0 0 if ($self->tested_ok_but_not_installed)
3586 0 0 if ($self->{'notest'})
3599 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3600 0 0 unless ($self->{'build_dir'})
3605 0 0 if $CPAN::DEBUG
3608 0 0 unless ($build_dir = $self->{'build_dir'})
3614 0 0 if (-f $makefile and $fh = "FileHandle"->new("<$makefile\000"))
3617 0 0 if $CPAN::DEBUG
3620 0 0 if /MakeMaker post_initialize section/
3624 0 0 unless $p
3628 0 0 if ($p2 =~ /^q\[(.+)\]/)
3634 0 0 if @exe_files
3636 0 0 if (-f $buildparams)
3637 0 0 if $CPAN::DEBUG
3640 0 0 if (my $reftype = ref $sf) { }
0 0 elsif (defined $sf) { }
3641 0 0 if ($reftype eq 'ARRAY') { }
0 0 elsif ($reftype eq 'HASH') { }
3665 0 0 if (exists $self->{'cleanup_after_install_done'})
3670 0 0 if $CPAN::DEBUG
3671 0 0 if (my $goto = $self->prefs->{'goto'})
3676 0 0 unless ($self->make)
3681 0 0 if (defined(my $sc = $self->shortcut_test))
3686 0 0 if ($CPAN::Signal)
3692 0 0 $self->{'modulebuild'} ? :
3696 0 0 defined $ENV{'PERL5LIB'} ? :
3698 0 0 defined $ENV{'PERL5OPT'} ? :
3701 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? :
3704 0 0 if $CPAN::Config->{'use_prompt_default'}
3705 0 0 if $CPAN::Config->{'use_prompt_default'}
3707 0 0 if ($run_allow_installing_within_test)
3709 0 0 unless ($allow_installing)
3721 0 0 unless my $builddir = $self->dir
3724 0 0 unless (CPAN::Distribution::chdir($builddir))
3730 0 0 if $CPAN::DEBUG
3733 0 0 if ($^O eq "MacOS")
3739 0 0 if ($self->{'modulebuild'})
3742 0 0 if ("CPAN::Version"->vlt($v, "2.62"))
3746 0 0 unless ($self->id eq $thm->distribution->id)
3756 0 0 unless ($self->{'force_update'})
3759 0 0 if ($CPAN::Config->{'trust_test_report_history'} and $CPAN::META->has_inst("CPAN::Reporter::History") and $have_tested_fcn = "CPAN::Reporter::History"->can("have_tested"))
3762 0 0 if (my(@reports) = &$have_tested_fcn("dist", $self->base_id))
3764 0 0 if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { }
0 0 elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { }
3768 0 0 if ($self->tested_ok_but_not_installed)
3788 0 0 exists $prefs_test->{'commandline'} ? :
0 0 if (my $commandline = exists $prefs_test->{'commandline'} ? $prefs_test->{'commandline'} : '') { }
0 0 elsif ($self->{'modulebuild'}) { }
3794 0 0 unless (-e "Build" or $^O eq "VMS" and -e "Build.com")
3802 0 0 $make_test_arg ? :
3808 0 0 if ($self->prefs->{'test'})
3811 0 0 if $test_env
3814 0 0 if ($expect_model and @{$expect_model->{'talk'};})
3816 0 0 if ($can_expect) { }
3826 0 0 if (not defined $pid) { }
0 0 elsif ($pid) { }
3831 0 0 if ($^O eq 'MSWin32') { }
3835 0 0 if ($CPAN::Signal)
3843 0 0 unless $^O eq "MSWin32"
3846 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('test')) { }
3847 0 0 if ($self->_should_report("test"))
3864 0 0 if ($tests_ok) { }
3865 0 0 if ($but)
3879 0 0 if ($but) { }
0 0 elsif ($self->{'force_update'}) { }
0 0 elsif ($CPAN::Signal) { }
3905 0 0 $self->{'force_update'} ? :
3914 0 0 unless $self->{'sponsored_mods'}{$m} > 0
3915 0 0 unless my $m_obj = "CPAN::Shell"->expand("Module", $m)
3921 0 0 if ($available_version and not 'CPAN::Version'->vlt($available_version, $self->{'prereq_pm'}{$m})) { }
0 0 elsif ($available_file and !$self->{'prereq_pm'}{$m} || $self->{'prereq_pm'}{$m} == 0) { }
3924 0 0 if $CPAN::DEBUG
3934 0 0 if $CPAN::DEBUG
3937 0 0 unless $self->is_locally_optional(undef, $m)
3942 0 0 if (@prereq)
3945 0 0 $cnt == 1 ? :
3953 0 0 unless my $prefs = $self->prefs
3954 0 0 unless my $where_prefs = $prefs->{$where}
3955 0 0 if ($where_prefs->{'expect'}) { }
0 0 elsif ($where_prefs->{'eexpect'}) { }
3970 0 0 $self->{'modulebuild'} ? :
3972 0 0 unless (exists $self->{'archived'})
3977 0 0 unless (exists $self->{'build_dir'})
3981 0 0 if (exists $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
3989 0 0 if exists $self->{'make_clean'} and $self->{'make_clean'} eq "YES"
3991 0 0 if @e
3993 0 0 unless CPAN::Distribution::chdir("$self->{'build_dir'}")
3995 0 0 if $CPAN::DEBUG
3997 0 0 if ($^O eq "MacOS")
4003 0 0 if ($self->{'modulebuild'}) { }
4004 0 0 unless (-f "Build")
4016 0 0 if ($system_ok) { }
4053 0 0 if $CPAN::DEBUG
4054 0 0 if ($self->prefs->{'disabled'} and not $self->{'force_update'})
4089 0 0 unless $goto_do->called_for
4105 0 0 if $CPAN::DEBUG
4106 0 0 if (exists $self->{'install'})
4109 0 0 UNIVERSAL::can($self->{'install'}, 'text') ? :
4110 0 0 if ($text =~ /^YES/) { }
0 0 elsif ($text =~ /is only/) { }
4124 0 0 if $self->{$slot}
4139 0 0 unless my $obj = "CPAN::Shell"->expandany($s)
4141 0 0 if ($type eq "CPAN::Distribution")
4142 0 0 unless $obj->{'sponsored_mods'}
4143 0 0 if grep {$_ eq $module;} $self->containsmods
4156 0 0 if (exists $self->{'cleanup_after_install_done'})
4160 0 0 if $CPAN::DEBUG
4161 0 0 if (my $goto = $self->prefs->{'goto'})
4167 0 0 unless ($self->test)
4172 0 0 if (defined(my $sc = $self->shortcut_install))
4177 0 0 if ($CPAN::Signal)
4183 0 0 unless my $builddir = $self->dir
4186 0 0 unless (CPAN::Distribution::chdir($builddir))
4192 0 0 if $CPAN::DEBUG
4195 0 0 $self->{'modulebuild'} ? :
4198 0 0 if ($^O eq "MacOS")
4205 0 0 if (my $commandline = $self->prefs->{'install'}{'commandline'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
4213 0 0 exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $CPAN::Config->{'mbuild_install_build_command'} ? :
4214 0 0 $^O eq 'VMS' ? :
4228 0 0 $^O eq 'MSWin32' || $^O eq 'VMS' ? :
4235 0 0 if ($reqtype eq "b")
4236 0 0 if ($brip eq 'no') { }
0 0 elsif ($brip =~ m[^ask/(.+)]) { }
4240 0 0 unless $default =~ /^(y|n)/i
4248 0 0 unless ($want_install =~ /^y/i)
4258 0 0 defined $ENV{'PERL5LIB'} ? :
4260 0 0 defined $ENV{'PERL5OPT'} ? :
4263 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} && defined $ENV{'PERL_USE_UNSAFE_INC'} ? :
4265 0 0 if $CPAN::Config->{'use_prompt_default'}
4266 0 0 if $CPAN::Config->{'use_prompt_default'}
4269 0 0 if ($self->prefs->{'install'})
4272 0 0 if $install_env
4274 0 0 unless ($run_allow_installing_within_test)
4276 0 0 unless ($allow_installing)
4287 0 0 unless ($pipe)
4306 0 0 if ($close_ok) { }
4310 0 0 if ($CPAN::Config->{'cleanup_after_install'} and not $self->is_dot_dist and not $self->is_being_sponsored)
4314 0 0 unless CPAN::Distribution::chdir($parent)
4317 0 0 if (-e $yml)
4318 0 0 unless unlink $yml
4328 0 0 if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make'))
4348 0 0 unless ($CPAN::Config->{'cleanup_after_install'})
4361 0 0 if (@queue) { }
4363 0 0 if (-d $file) { }
4365 0 0 unless opendir $dh, $file
4369 0 0 if (-d $maybedir) { }
0 0 elsif (/\.pm$/) { }
4370 0 0 unless ("File::Spec"->catdir("blib", "arch", "auto") eq $maybedir)
4376 0 0 if (-f $mustbefile)
4382 0 0 if $_ ne "."
4400 0 0 if ($self->{'CALLED_FOR'})
4407 0 0 if $allow_down eq "yes" and $allow_outdd eq "yes"
4410 0 0 if ($allow_outdd ne "yes" and not $CPAN::META->has_inst("CPAN::DistnameInfo"))
4411 0 0 if grep {$_ eq "CPAN::DistnameInfo";} $self->containsmods
4412 0 0 if ($allow_outdd ne "yes")
4417 0 0 if $allow_down eq "yes" and $allow_outdd eq "yes"
4421 0 0 if ($allow_outdd ne "yes")
4434 0 0 unless ($allow_down eq "yes")
4435 0 0 if (my $inst_file = $self->_file_in_path($pmpath, \@INC))
4438 0 0 if ($cmp)
4439 0 0 if ($cmp < 0)
4443 0 0 if (@down)
4445 0 0 if (my($default) = $allow_down =~ m[^ask/(.+)])
4446 0 0 unless $default =~ /^(y|n)/i
4450 0 0 $answer =~ /^\s*y/i ? :
4452 0 0 if ($allow_down eq "no")
4458 0 0 unless ($allow_outdd eq "yes")
4462 0 0 if ($mo)
4466 0 0 if (my $mo_dist = $mo->distribution)
4469 0 0 if ($dni->dist eq $dist_dist)
4470 0 0 if ("CPAN::Version"->vgt($dni->version, $dist_version))
4481 0 0 if (@outdd and $allow_outdd ne "yes")
4483 0 0 if ($outdd[0]{'dist_dist'} eq $dist_dist)
4486 0 0 if (my($default) = $allow_outdd =~ m[^ask/(.+)])
4487 0 0 unless $default =~ /^(y|n)/i
4491 0 0 $answer =~ /^\s*y/i ? :
4493 0 0 if ($allow_outdd eq "no")
4507 0 0 if (-f $pmfile)
4530 0 0 if ($CPAN::META->has_inst('Pod::Perldocs')) { }
4531 0 0 unless my($perl) = $self->perl
4536 0 0 unless (($wstatus = system(@args)) == 0)
4554 0 0 if $CPAN::DEBUG
4557 0 0 if ($CPAN::META->has_inst('File::Which')) { }
4561 0 0 unless $pid = open(README, "which $binary|")
4563 0 0 unless $pid
4567 0 0 unless close README
4572 0 0 if $CPAN::DEBUG and $out
4583 0 0 if $CPAN::DEBUG
4590 0 0 $web_browser ? :
4594 0 0 if ($web_browser_out) { }
4597 0 0 if $CPAN::DEBUG
4606 0 0 if ($saved_file)
4613 0 0 if ($html_converter_out) { }
4616 0 0 unless defined $saved_file
4620 0 0 unless $pid = open(README, "$html_converter $saved_file |")
4624 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4635 0 0 unless open $fh, ">$filename"
4640 0 0 unless close README
4643 0 0 if $CPAN::DEBUG
4652 0 0 unless open FH, $tmpin
4657 0 0 unless $fh_pager->open("|$pager")
4680 0 0 if $CPAN::DEBUG
4684 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4697 0 0 if ($CPAN::META->has_usable('LWP')) { }
4704 0 0 if ($@) { }
4710 0 0 if $var = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'}
4712 0 0 if $var = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'}
4718 0 0 if ($res->is_success) { }
4719 0 0 if $CPAN::DEBUG
4723 0 0 if $CPAN::DEBUG
4743 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'VMS') { }
4746 0 0 unless my($perl) = $self->perl
4758 0 0 unless defined $phase
4761 0 0 unless $CPAN::META->has_usable("CPAN::Reporter")
4766 0 0 unless $test_report
4770 0 0 if exists $self->{'should_report'}
4773 0 0 if ($self->{'had_no_makefile_pl'})
4781 0 0 unless ($CPAN::META->has_inst("CPAN::Reporter"))
4790 0 0 if ("CPAN::Version"->vlt($crv, "0.99"))
4792 0 0 if ($phase eq 'test') { }
4805 0 0 if ($self->is_dot_dist)
4810 0 0 if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $self->{'patched'})
4831 0 0 unless ($CPAN::META->has_inst("CPAN::DistnameInfo"))
4834 0 0 unless ($CPAN::META->has_usable("LWP"))
4837 0 0 unless ($CPAN::META->has_usable("File::Temp"))
4842 0 0 if ($CPAN::META->has_inst('YAML::XS') or $CPAN::META->has_inst('YAML::Syck')) { }
0 0 elsif (not $format and $CPAN::META->has_inst('JSON::PP')) { }
4866 0 0 if ($@)
4871 0 0 unless ($resp->is_success)
4876 0 0 if ($format eq 'yaml') { }
4887 0 0 unless close $fh
4889 0 0 unless unlink $tfilename
4898 0 0 if ($rversion eq $version) { }
4899 0 0 unless ($this_version_seen++)
4913 0 0 $arch eq $Config::Config{'archname'} ? :
0 0 $grade eq 'FAIL' ? :
0 0 $grade eq 'PASS' ? :
4919 0 0 unless ($this_version_seen)