Branch Coverage

blib/lib/CPAN/Distribution.pm
Criterion Covered Total %
branch 30 1432 2.0


line true false branch
24 0 0 unless defined $args
25 0 0 if ($CPAN::META->has_inst($plugin_proper)) { }
28 0 0 if ($instance{$plugin}->can($hookname))
42 0 0 unless my $ro = $self->ro
69 0 1 unless defined $s
70 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,}/]) { }
72 0 0 unless ($$CPAN::META{'LOCK'} or $$CPAN::Have_warned{"$s is unlocked"}++)
80 0 0 if ($s eq '.') { }
0 0 elsif ('File::Spec'->file_name_is_absolute($s)) { }
0 0 elsif ('File::Spec'->can('rel2abs')) { }
88 0 0 if $CPAN::DEBUG
89 0 0 unless ($CPAN::META->exists('CPAN::Distribution', $s))
101 0 0 if $s =~ m[^N/A|^Contact Author]
103 0 0 if $CPAN::DEBUG
112 0 1 if (substr($self->id, -1, 1) eq '.') { }
137 0 0 if $CPAN::DEBUG
138 0 0 unless ($local_file = 'CPAN::FTP'->localize("authors/id/$norm", $local_wanted))
149 0 0 if ($$self{'ID'} =~ m[[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/])
159 0 1 unless $id =~ m[^./../]
203 0 0 if $CPAN::DEBUG
205 0 0 if exists $$self{'incommandcolor'} and $color == 1 and $$self{'incommandcolor'} == $color
209 0 0 if ($depth >= $CPAN::MAX_RECURSION)
214 0 0 if (defined $prereq_pm)
217 0 0 unless $$prereq_pm{'requires'}
218 0 0 unless $$prereq_pm{'build_requires'}
221 0 0 if $pre eq 'perl'
223 0 0 unless ($premo = 'CPAN::Shell'->expand('Module', $pre))
231 0 0 if ($color == 0)
254 0 0 if exists $$self{'CONTAINSMODS'}
257 0 0 unless my $mod_file = $mod->cpan_file
258 0 0 unless my $mod_id = $$mod{'ID'}
261 0 0 if ($CPAN::Signal)
265 0 0 if $mod_file eq $dist_id
273 0 0 if exists $$self{'UPLOAD_DATE'}
278 0 0 unless $author
280 0 0 unless @dl
283 0 0 unless $$dirent[1]
293 0 0 unless ($obj->uptodate)
295 0 0 if $CPAN::DEBUG
305 0 0 if defined $id
315 0 0 if (my $why = $self->check_disabled)
323 0 0 if $CPAN::DEBUG
324 0 0 if (exists $$self{'build_dir'} and -d $$self{'build_dir'})
334 0 0 if $CPAN::DEBUG
335 0 0 if (exists $$self{'build_dir'} and not -d $$self{'build_dir'})
344 0 0 if $CPAN::DEBUG
345 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/)
362 0 0 if $CPAN::DEBUG
363 0 0 if (my $goto = $self->prefs->{'goto'})
367 0 0 if (defined(my $sc = $self->shortcut_get))
371 0 0 defined $ENV{'PERL5LIB'} ? :
374 0 0 defined $ENV{'PERL5OPT'} ? :
383 0 0 unless ($$self{'build_dir'} and -d $$self{'build_dir'})
385 0 0 if $CPAN::Signal
387 0 0 if $CPAN::Signal
390 0 0 if (exists $$self{'writemakefile'} and ref $$self{'writemakefile'} and $$self{'writemakefile'}->can('failed') and $$self{'writemakefile'}->failed)
403 0 0 if ($CPAN::Signal)
407 0 0 unless $self->patch
419 0 0 if $self->is_dot_dist
429 0 0 if $CPAN::DEBUG
430 0 0 unless ($local_file = 'CPAN::FTP'->localize("authors/id/$$self{'ID'}", $local_wanted))
434 0 0 if ($CPAN::Index::DATE_OF_02)
441 0 0 if $CPAN::DEBUG
450 0 0 if $self->is_dot_dist
451 0 0 if ($CPAN::META->has_inst('Digest::SHA')) { }
462 0 0 if $self->is_dot_dist
467 0 0 if $CPAN::DEBUG
469 0 0 unless (mkdir "tmp-$$", 493)
480 0 0 if ($CPAN::Signal)
490 0 0 unless ($ct)
495 0 0 if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { }
0 0 elsif ($local_file =~ /\.zip(?!\n)\Z/i) { }
496 0 0 unless eval { do { $ct->gtest } }
501 0 0 unless $ct->gtest
507 0 0 unless my $dh = 'DirHandle'->new('File::Spec'->curdir)
510 0 0 if (grep {$_ eq 'pax_global_header';} @readdir)
522 0 0 if ('CPAN'->has_usable('File::Temp')) { }
526 0 0 if (@readdir == 1 and -d $readdir[0]) { }
530 0 0 unless ($dh2 = 'DirHandle'->new($from_dir))
547 0 0 if (not $userid or $userid eq 'N/A')
555 0 0 if ($@)
568 0 0 unless (File::Copy::move($from, $to))
576 0 0 if (@readdir == 1 and -d $readdir[0]) { }
579 0 0 if $CPAN::DEBUG
581 0 0 if -d $packagedir
584 0 0 unless (File::Copy::move($distdir, $packagedir))
596 0 0 if $CPAN::DEBUG
604 0 0 if $CPAN::DEBUG
605 0 0 if (not $userid or $userid eq 'N/A')
612 0 0 if $CPAN::DEBUG
617 0 0 unless File::Copy::move($f, $to)
635 41 0 unless defined $filter
638 0 41 unless ($build_dir = $$self{'build_dir'})
648 41 0 if $has_cm
649 41 0 if $has_cm or $has_pcm
650 41 0 if $has_cm
651 41 0 if $has_cm or $has_pcm
655 38 63 if -f $path
664 0 0 if $CPAN::DEBUG
665 0 0 unless my $build_dir = $$self{'build_dir'}
667 0 0 if $CPAN::DEBUG
668 0 0 unless -f $yaml
671 0 0 unless $CPAN::META->has_inst('Parse::CPAN::Meta')
672 0 0 unless $Parse::CPAN::Meta::VERSION >= '1.40'
676 0 0 unless ($early_yaml)
679 0 0 if $CPAN::DEBUG
680 0 0 if $CPAN::DEBUG and $early_yaml
681 0 0 if (not ref $early_yaml or ref $early_yaml ne 'HASH')
694 0 0 if $CPAN::DEBUG
695 0 0 if (my(@prereq) = $self->unsat_prereq('later'))
696 0 0 if $CPAN::DEBUG
697 0 0 if $CPAN::DEBUG and @prereq
698 0 0 if ($prereq[0][0] eq 'perl') { }
707 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
724 0 0 if $CPAN::DEBUG
726 0 0 unless ($enable_configure_requires)
733 0 0 if $CPAN::DEBUG
734 0 0 unless @prereq
735 0 0 if $CPAN::DEBUG
736 0 0 if ($$self{'configure_requires_later'})
737 0 0 unless $$self{'configure_requires_later_for'}
738 0 0 if ($$self{'configure_requires_later_for'}{$k} > 1)
741 0 0 if ($$p[0] eq $k)
745 0 0 if $type
751 0 0 if ($prereq[0][0] eq 'perl') { }
762 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
779 0 0 unless $self->satisfy_configure_requires
783 0 0 unless ($mpl_exists)
788 0 0 unless my $mpldh = 'DirHandle'->new($$self{'build_dir'})
794 0 0 if (-f 'File::Spec'->catfile($$self{'build_dir'}, 'Build.PL'))
795 0 0 if ($mpl_exists) { }
796 0 0 if ($CPAN::META->has_inst('Module::Build'))
802 0 0 if fileno Module::Build::Version::DATA
809 0 0 if (lc $prefer_installer eq 'rand')
810 0 0 rand() < 0.5 ? :
812 0 0 if (lc $prefer_installer eq 'mb') { }
0 0 elsif ($$self{'archived'} eq 'patch') { }
0 0 elsif (not $mpl_exists) { }
822 0 0 if ($$self{'build_dir'} and $$CPAN::Config{'build_dir_reuse'})
836 0 0 unless (defined $dir and length $dir)
851 0 0 unless ($sbd eq $cbd)
858 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
884 0 0 if $CPAN::DEBUG
894 0 0 if $CPAN::DEBUG
897 0 0 if $CPAN::DEBUG
898 0 0 if ($patches)
899 0 0 unless @$patches
901 0 0 if $CPAN::DEBUG
903 0 0 unless ($patchbin and length $patchbin)
907 0 0 unless ('MM'->maybe_command($patchbin))
913 0 0 unless ($stdpatchargs)
916 0 0 unless open FH, $system
920 0 0 if (/^patch\s+([\d\.]+)/)
925 0 0 if ($pversion) { }
931 0 0 @$patches == 1 ? :
935 0 0 if ($patches_dir and not 'File::Spec'->file_name_is_absolute($patch))
937 0 0 if -f $f
939 0 0 unless (-f $patch)
940 0 0 if $CPAN::DEBUG
941 0 0 if (my $trydl = $self->try_download($patch)) { }
956 0 0 if ($ppp eq 'applypatch') { }
962 0 0 if ($Config::Config{'osname'} eq 'solaris')
964 0 0 unless $pfiles
965 0 0 unless my(@stat) = stat $file
974 0 0 unless (open $writefh, "|$pcommand")
985 0 0 unless (close $writefh)
1009 0 0 if ($$CPAN::Config{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/)
1016 0 0 unless /^[\*\+]{3}\s(\S+)/
1020 0 0 if -f $file
1021 0 0 if $CPAN::DEBUG
1024 0 0 unless $cnt_files
1025 0 0 $cnt_files == $cnt_p0files ? :
1033 0 0 if $CPAN::DEBUG
1039 0 0 if (-f $configure) { }
0 0 elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { }
1051 0 0 if ($cf =~ m[/])
1056 0 0 unless length $cf
1057 0 0 if (my $crud = $self->_contains_crud($build_dir))
1072 0 0 if ($$self{'archived'} eq 'maybe_pl')
1077 0 0 unless $fh->open(">$mpl")
1097 0 0 unless opendir $dh, $dir
1100 0 0 if $dirent =~ /^\.\.?$/
1102 0 0 if (-d $path) { }
0 0 elsif (-f $path) { }
1108 0 0 if (@dirs and @files) { }
0 0 elsif (@files > 2) { }
1122 0 0 unless $fh->open($script_file)
1129 0 0 if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { }
0 0 elsif ($state =~ /^(name|prereq)$/) { }
0 0 elsif (/^=cut\b/) { }
1130 0 0 if ($1 eq 'NAME') { }
0 0 elsif ($1 eq 'PREREQUISITES') { }
1136 0 0 if (/^=/) { }
0 0 elsif (/^\s*$/) { }
0 0 elsif ($state eq 'name') { }
0 0 elsif ($state eq 'prereq') { }
1141 0 0 if ($name eq '')
1163 0 0 if (/[\s\'\"]/) { }
1170 0 0 if ($name)
1172 0 0 unless rename $script_file, $to_file
1189 0 0 if ($check_sigs)
1190 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1191 0 0 if (-f 'SIGNATURE') { }
1192 0 0 if $CPAN::DEBUG
1194 0 0 if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { }
1218 0 0 if $CPAN::Frontend->can('mysleep')
1221 0 0 if $CPAN::DEBUG
1227 0 0 if $CPAN::DEBUG
1237 0 0 if ($result) { }
1249 0 0 if ($ct->unzip) { }
1260 0 0 if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { }
0 0 elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { }
1269 0 0 if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { }
1270 0 0 if (eval { do { 'CPAN::Tarzip'->new($local_file)->gunzip($to) } }) { }
1276 0 0 if (File::Copy::cp($local_file, '.')) { }
1299 0 0 if ($^O eq 'MacOS')
1304 0 0 if ($$CPAN::Config{'shell'}) { }
1317 0 0 unless ($dir = $self->dir)
1320 0 0 unless ($dir ||= $self->dir)
1334 0 0 defined $ENV{'PERL5LIB'} ? :
1338 0 0 defined $ENV{'PERL5OPT'} ? :
1342 0 0 unless (system($shell) == 0)
1368 0 0 if ($cvs_site_perl)
1378 0 0 unless chdir($dir)
1383 0 0 unless system(@cmd) == 0
1386 0 0 unless chdir($pwd)
1394 0 0 if $CPAN::DEBUG
1404 0 0 if $CPAN::DEBUG
1405 0 0 unless $local_file = 'CPAN::FTP'->localize($readme, $local_wanted)
1409 0 0 if ($^O eq 'MacOS')
1417 0 0 unless $fh_pager->open("|$pager")
1420 0 0 unless $fh_readme->open($local_file)
1437 0 0 if $$self{'CHECKSUM_STATUS'} eq 'OK'
1438 0 0 if @e
1448 0 0 if (my $size = -s $lc_want)
1449 0 0 if $CPAN::DEBUG
1450 0 0 if ($self->CHECKSUM_check_file($lc_want, 1))
1456 0 0 unless ($lc_file)
1461 0 0 if ($lc_file) { }
1468 0 0 if ($self->CHECKSUM_check_file($lc_file))
1478 0 0 if ($rv == Module::Signature::SIGNATURE_OK()) { }
1510 0 0 if $CPAN::DEBUG
1513 0 0 if ($check_sigs)
1514 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1515 0 0 if $CPAN::DEBUG
1518 0 0 if $CPAN::DEBUG
1525 0 0 if (open $fh, $chk_file) { }
1532 0 0 if ($@)
1534 0 0 if $@
1540 0 0 if (not ref $cksum or ref $cksum ne 'HASH') { }
0 0 elsif (exists $$cksum{$basename}{'sha256'}) { }
1548 0 0 unless $answer =~ /^\s*y/i
1552 0 0 if $CPAN::DEBUG
1561 0 0 unless ($eq)
1572 0 0 if ($eq) { }
1601 0 0 if $sloppy
1602 0 0 unless ($$self{'CHECKSUM_STATUS'})
1611 0 0 unless $answer =~ /^\s*y/i
1621 0 0 if ($CPAN::META->has_inst('Digest::SHA'))
1690 0 0 if $fforce or $phase eq $method
1691 0 0 unless $methodmatch
1693 0 0 if ($phase eq 'get') { }
0 0 elsif ($phase eq 'test') { }
1694 0 0 if (substr($self->id, -1, 1) eq '.' and $att =~ /(unwrapped|build_dir|archived)/)
1699 0 0 if ($att eq 'build_dir' and $$self{'build_dir'} and $$CPAN::META{'is_tested'})
1706 0 0 if ($att eq 'make_test' and $$self{'make_test'} and $$self{'make_test'}{'COMMANDID'} and $$self{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId)
1716 0 0 if ($ldebug or $CPAN::DEBUG)
1722 0 0 if ($method and $method =~ /make|test|install/)
1751 0 0 if ($file =~ / ^ perl -? (5) ([._-]) ( \d{3}(_[0-4][0-9])? | \d+\.\d+ ) \.tar[._-](?:gz|bz2) (?!\n)\Z /sx) { }
0 0 elsif ($self->cpan_comment and $self->cpan_comment =~ /isa_perl\(.+?\)/) { }
1775 0 0 unless ($self)
1789 0 0 if $CPAN::DEBUG
1790 0 0 if (not $$self{'archived'} or $$self{'archived'} eq 'NO')
1794 0 0 if $CPAN::DEBUG
1795 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/)
1804 0 0 if $CPAN::DEBUG
1805 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/)
1816 0 0 if $CPAN::DEBUG
1817 0 0 if ($$self{'writemakefile'})
1818 0 0 UNIVERSAL::can($$self{'writemakefile'}, 'failed') ? :
0 0 if (UNIVERSAL::can($$self{'writemakefile'}, 'failed') ? $$self{'writemakefile'}->failed : $$self{'writemakefile'} =~ /^NO/) { }
1824 0 0 UNIVERSAL::can($$self{'writemakefile'}, 'text') ? :
1836 0 0 if $CPAN::DEBUG
1837 0 0 if (my $later = $$self{'configure_requires_later'})
1847 0 0 unless $self->get
1850 0 0 if (defined(my $sc = $self->shortcut_prepare))
1854 0 0 defined $ENV{'PERL5LIB'} ? :
1857 0 0 defined $ENV{'PERL5OPT'} ? :
1861 0 0 if ($CPAN::Signal)
1866 0 0 unless my $builddir = $self->dir
1869 0 0 unless (chdir($builddir))
1874 0 0 if ($CPAN::Signal)
1879 0 0 if $CPAN::DEBUG
1883 0 0 unless $self->choose_MM_or_MB
1886 0 0 $$self{'modulebuild'} ? :
0 0 $$self{'configure'} ? :
1892 0 0 if ($$CPAN::Config{'prerequisites_policy'} eq 'follow')
1899 0 0 if ($self->prefs->{'pl'})
1902 0 0 defined $ENV{'PERL'} ? :
1904 0 0 if $$CPAN::Config{'use_prompt_default'}
1905 0 0 if $$CPAN::Config{'use_prompt_default'}
1906 0 0 if ($pl_commandline) { }
0 0 elsif ($$self{'configure'}) { }
0 0 elsif ($$self{'modulebuild'}) { }
1912 0 0 unless my($perl) = $self->perl
1914 0 0 $mbuildpl_arg ? :
1919 0 0 unless my($perl) = $self->perl
1928 0 0 $switch ? :
0 0 $makepl_arg ? :
1935 0 0 if ($self->prefs->{'pl'})
1938 0 0 if $pl_env
1939 0 0 if (exists $$self{'writemakefile'}) { }
1945 0 0 if ($$CPAN::Config{'inactivity_timeout'})
1947 0 0 if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { }
1964 0 0 if ($go_via_alarm) { }
1965 0 0 if ($self->_should_report('pl')) { }
1976 0 0 if (defined($pid = fork)) { }
1977 0 0 if ($pid) { }
1992 0 0 if ($@)
2004 0 0 if (my $expect_model = $self->_prefs_with_expect('pl')) { }
0 0 elsif ($self->_should_report('pl')) { }
2008 0 0 if (not defined $ret and $$self{'writemakefile'} and $$self{'writemakefile'}->failed)
2022 0 0 if ($ret != 0)
2030 0 0 if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { }
2036 0 0 $$self{'modulebuild'} ? :
2055 0 0 if $CPAN::DEBUG
2056 0 0 if (defined $$self{'make'})
2057 0 0 UNIVERSAL::can($$self{'make'}, 'failed') ? :
0 0 if (UNIVERSAL::can($$self{'make'}, 'failed') ? $$self{'make'}->failed : $$self{'make'} =~ /^NO/) { }
2061 0 0 if ($$self{'force_update'}) { }
2066 0 0 length $$self{'make'} > 3 ? :
2084 0 0 if $CPAN::DEBUG
2085 0 0 if (my $goto = $self->prefs->{'goto'})
2098 0 0 if ($self->isa_perl)
2099 0 0 if ($self->called_for ne $self->id and not $$self{'force_update'})
2127 0 0 unless $self->prepare
2129 0 0 if (defined(my $sc = $self->shortcut_make))
2133 0 0 if ($CPAN::Signal)
2138 0 0 unless my $builddir = $self->dir
2141 0 0 unless (chdir($builddir))
2146 0 0 $$self{'modulebuild'} ? :
2148 0 0 defined $ENV{'PERL5LIB'} ? :
2151 0 0 defined $ENV{'PERL5OPT'} ? :
2155 0 0 if ($CPAN::Signal)
2160 0 0 if ($^O eq 'MacOS')
2167 0 0 if defined $v
2172 0 0 if $@
2173 0 0 unless $satisfied
2174 0 0 if ($CPAN::Signal)
2180 0 0 unless (chdir($builddir))
2187 0 0 if ($self->prefs->{'make'})
2190 0 0 defined $ENV{'PERL'} ? :
2191 0 0 if $$CPAN::Config{'use_prompt_default'}
2192 0 0 if $$CPAN::Config{'use_prompt_default'}
2193 0 0 if ($make_commandline) { }
2197 0 0 if ($$self{'modulebuild'}) { }
2198 0 0 unless (-f 'Build' or $^O eq 'VMS' and -f 'Build.com')
2210 0 0 $make_arg ? :
2216 0 0 if ($self->prefs->{'make'})
2219 0 0 if $make_env
2222 0 0 if ($expect_model and @{$$expect_model{'talk'};})
2224 0 0 if ($can_expect) { }
2232 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('make')) { }
2246 0 0 if ($system_ok) { }
2279 0 0 if $CPAN::DEBUG
2280 0 0 if ($CPAN::META->has_inst('Expect')) { }
2284 0 0 if ($$expect_model{'mode'} eq 'deterministic') { }
0 0 elsif ($$expect_model{'mode'} eq 'anyorder') { }
2320 0 0 if ($match[2])
2324 0 0 if ($eof) { }
0 0 elsif ($ran_into_timeout) { }
2333 0 0 if ($but =~ /$regex/)
2337 0 0 unless $reuse
2344 0 0 if ($have_waited < $timeout)
2365 0 0 if $CPAN::DEBUG
2381 0 0 if ($ran_into_timeout) { }
0 0 elsif ($ran_into_eof) { }
2398 0 0 if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { }
2404 0 0 if ($@)
2408 0 0 if $CPAN::DEBUG
2418 0 0 if $prefs_dir =~ /^\s*$/
2420 0 0 if ($@)
2425 0 0 unless my $dh = 'DirHandle'->new($prefs_dir)
2427 0 0 unless @files
2432 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
2436 0 0 if ($CPAN::META->has_inst('Data::Dumper'))
2439 0 0 if ($CPAN::META->has_inst('Storable'))
2442 0 0 if (@fallbacks) { }
2444 0 0 unless ($$self{'have_complained_about_missing_yaml'}++)
2449 0 0 unless ($$self{'have_complained_about_missing_yaml'}++)
2457 0 0 if ($result->is_warning) { }
0 0 elsif ($result->is_fatal) { }
2474 0 0 unless ($pref->has_any_match)
2478 0 0 unless ($pref->has_valid_subkeys)
2495 0 0 if ($pref->matches($arg))
2511 0 0 if (exists $$self{'negative_prefs_cache'} and $$self{'negative_prefs_cache'} != $CPAN::CurrentCommandId)
2518 0 0 if (exists $$self{'prefs'})
2521 0 0 if ($$CPAN::Config{'prefs_dir'})
2522 0 0 if $CPAN::DEBUG
2525 0 0 if $CPAN::DEBUG
2526 0 0 if ($prefs)
2537 0 0 if $filler2 < 0
2556 0 0 if ($prefs and exists $$prefs{$phase} and exists $$prefs{$phase}{'args'} and $$prefs{$phase}{'args'})
2577 0 0 if ($$self{'modulebuild'}) { }
2600 0 0 if ($self) { }
2625 0 0 unless $mimc
2631 0 0 if $^O eq 'MSWin32'
2640 0 0 unless exists $$prereq_pm{'opt_requires'}{$prereq}
2650 0 0 unless @prereq_tuples
2655 0 0 if ($$p[1] =~ /^(r|c)$/) { }
0 0 elsif ($$p[1] =~ /^(b)$/) { }
2659 0 0 if ($reqtype =~ /^(r|c)$/) { }
2676 0 0 length $unsat > length $pretty_id ? :
2690 0 0 $self->is_locally_optional(undef, $$_[0]) ? :
2695 0 0 if ($$CPAN::Config{'prerequisites_policy'} eq 'follow') { }
0 0 elsif ($$CPAN::Config{'prerequisites_policy'} eq 'ask') { }
2708 0 0 if ($follow)
2714 0 0 if ($optional and $self->is_locally_optional(undef, $prereq)) { }
2723 0 0 if ($any) { }
2724 0 0 unless ($optional)
2738 0 0 if (@to_queue_mand) { }
0 0 elsif (@to_queue_opt) { }
2753 0 0 unless my $optf = $$meta_yml{'optional_features'}
2754 0 0 if (not ref $optf or ref $optf ne 'HASH')
2758 0 0 unless my $wantf = $self->prefs->{'features'}
2759 0 0 if (not ref $wantf or ref $wantf ne 'ARRAY')
2765 0 0 if (my $f = $$optf{$wf}) { }
2773 0 0 unless my $reqhash = $$f{$reqtype}
2791 0 0 unless $CPAN::META->has_usable('CPAN::Meta::Requirements')
2796 0 0 if ($slot eq 'configure_requires_later') { }
0 0 elsif ($slot eq 'later') { }
2805 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'))
2822 0 0 unless $$prereq_pm_0{$reqtype}
2824 0 0 unless $$dep{$reqtype}
2855 0 0 unless $CPAN::META->has_usable('CPAN::Meta::Requirements')
2859 0 0 if $CPAN::DEBUG
2863 0 0 if ($need_module eq 'perl') { }
2867 0 0 if (CPAN::_sqlite_running())
2872 0 0 if $nmo->uptodate
2877 0 0 if ($available_file and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef')
2883 0 0 unless ($nmo->inst_deprecated)
2898 0 0 if ($available_file)
2906 0 0 if ($inst_file and $available_file eq $inst_file and $nmo->inst_deprecated) { }
0 0 elsif ($$self{'reqtype'} =~ /^(r|c)$/ and exists $$prereq_pm{'requires'}{$need_module} || exists $$prereq_pm{'opt_requires'} and $nmo and not $inst_file) { }
2915 0 0 if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/)
2934 0 0 if ($$need_distro{'install'} and $$need_distro{'install'}->failed and $$need_distro{'install'}->text =~ /is only/)
2935 0 0 if $CPAN::DEBUG
2943 0 0 if $fulfills_all_version_rqs
2947 0 0 if ($need_module eq 'perl')
2951 0 0 if $CPAN::DEBUG
2952 0 0 if (my $sponsoring = $$self{'sponsored_mods'}{$need_module}++)
2982 0 0 unless $do
2983 0 0 if ('CPAN::Version'->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0)
3000 0 0 if ($$do{$nosayer})
3003 0 0 UNIVERSAL::can($$do{$nosayer}, 'failed') ? :
0 0 if (UNIVERSAL::can($$do{$nosayer}, 'failed') ? $$do{$nosayer}->failed : $$do{$nosayer} =~ /^NO/) { }
3006 0 0 if ($nosayer eq 'make_test' and $$do{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId)
3013 0 0 if ($self->is_locally_optional($prereq_pm, $need_module)) { }
3028 0 0 if ($nosayer =~ /^(install|make_test)$/)
3047 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') { }
3048 0 0 unless exists $$prereq_pm{'requires'}{$need_module}
3070 0 0 if $CPAN::DEBUG
3080 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*//) { }
3083 0 0 if ('CPAN::Version'->vgt($available_version, $rq))
3089 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3103 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3111 0 0 unless ('CPAN::Version'->vgt($rq, $available_version))
3114 0 0 if $CPAN::DEBUG
3124 0 0 if $CPAN::DEBUG
3132 2 28 unless my $meta_file = $self->pick_meta_file
3135 0 28 unless $CPAN::META->has_usable('CPAN::Meta')
3136 0 28 unless my $meta = eval { do { 'CPAN::Meta'->load_file($meta_file) } }
3140 0 28 if ($meta_file eq 'META.yml' and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3144 0 0 if $eummv < 6.2501
3155 0 0 if $CPAN::DEBUG
3156 0 0 unless $meta_file
3159 0 0 if ($@ or not $yaml)
3163 0 0 if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH')
3167 0 0 if $CPAN::DEBUG
3169 0 0 if $CPAN::DEBUG and $yaml
3171 0 0 if ($meta_file =~ /MYMETA\.yml/)
3175 0 0 if (defined $$yaml{'dynamic_config'} and not $$yaml{'dynamic_config'})
3185 0 0 unless my $meta_file = $self->pick_meta_file('^META')
3186 0 0 if (my $meta_obj = $self->read_meta) { }
3189 0 0 $cr ? :
3200 0 8 unless $$self{'writemakefile'} or $$self{'modulebuild'}
3203 0 8 unless ($$self{'build_dir'})
3207 0 8 $^O eq 'VMS' ? :
3208 0 8 $^O eq 'VMS' ? :
3209 0 8 unless -f $makefile or -f $buildfile
3210 0 8 if $CPAN::DEBUG
3217 8 0 if ($meta_obj and not $meta_obj->dynamic_config) { }
0 0 elsif (my $yaml = $self->read_yaml) { }
3232 0 8 if ($$CPAN::Config{'recommends_policy'})
3238 0 8 if ($$CPAN::Config{'suggests_policy'})
3249 0 0 if ($$CPAN::Config{'recommends_policy'})
3252 0 0 unless ref $req eq 'HASH' and %$req
3253 0 0 if ($req)
3254 0 0 if ($$yaml{'generated_by'} and $$yaml{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3257 0 0 if ($eummv < 6.2501)
3266 0 0 unless $req
3267 0 0 unless defined $v
3268 0 0 if ($v =~ /\d/) { }
0 0 elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { }
3283 0 0 if $do_replace
3291 0 8 unless ($req or $breq)
3293 0 0 unless ($build_dir = $$self{'build_dir'})
3298 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3301 0 0 if $CPAN::DEBUG
3304 0 0 if /MakeMaker post_initialize section/
3308 0 0 unless $p
3320 0 0 if (defined $$req{$m})
3323 0 0 if ($n =~ /^q\[(.*?)\]$/)
3326 0 0 if (not $prevn or 'CPAN::Version'->vlt($prevn, $n))
3334 0 8 unless ($req or $breq)
3335 0 0 unless my $build_dir = $$self{'build_dir'}
3337 0 0 if (-f $buildfile)
3338 0 0 if $CPAN::DEBUG
3340 0 0 if (-f $build_prereqs)
3341 0 0 if $CPAN::DEBUG
3343 0 0 unless open FH, $build_prereqs
3350 0 0 if ($@) { }
3359 8 0 if ($req or $breq or $opt_req or $opt_breq)
3375 0 0 if $CPAN::DEBUG
3377 0 0 if ($$self{'badtestcnt'} > 0)
3379 0 0 if $CPAN::DEBUG
3384 0 0 if $CPAN::DEBUG
3385 0 0 if $$self{$slot}
3389 0 0 if $CPAN::DEBUG
3390 0 0 if ($$self{'make_test'})
3391 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/) { }
3396 0 0 if (UNIVERSAL::can($$self{'make_test'}, 'commandid') and $$self{'make_test'}->commandid == $CPAN::CurrentCommandId)
3406 0 0 if ($self->tested_ok_but_not_installed)
3413 0 0 if ($$self{'notest'})
3424 0 0 unless $$self{'writemakefile'} or $$self{'modulebuild'}
3427 0 0 unless ($$self{'build_dir'})
3430 0 0 if $CPAN::DEBUG
3435 0 0 unless ($build_dir = $$self{'build_dir'})
3441 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3444 0 0 if $CPAN::DEBUG
3447 0 0 if /MakeMaker post_initialize section/
3451 0 0 unless $p
3455 0 0 if ($p2 =~ /^q\[(.+)\]/)
3461 0 0 if @exe_files
3463 0 0 if (-f $buildparams)
3464 0 0 if $CPAN::DEBUG
3466 0 0 unless $$x[2]{'script_files'}
3479 0 0 if $CPAN::DEBUG
3480 0 0 if (my $goto = $self->prefs->{'goto'})
3485 0 0 unless $self->make
3487 0 0 if (defined(my $sc = $self->shortcut_test))
3491 0 0 if ($CPAN::Signal)
3496 0 0 $$self{'modulebuild'} ? :
3498 0 0 defined $ENV{'PERL5LIB'} ? :
3502 0 0 defined $ENV{'PERL5OPT'} ? :
3505 0 0 if $$CPAN::Config{'use_prompt_default'}
3506 0 0 if $$CPAN::Config{'use_prompt_default'}
3510 0 0 unless my $builddir = $self->dir
3513 0 0 unless (chdir($builddir))
3518 0 0 if $CPAN::DEBUG
3521 0 0 if ($^O eq 'MacOS')
3526 0 0 if ($$self{'modulebuild'})
3529 0 0 if ('CPAN::Version'->vlt($v, 2.62))
3533 0 0 unless ($self->id eq $thm->distribution->id)
3542 0 0 unless ($$self{'force_update'})
3545 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'))
3548 0 0 if (my(@reports) = &$have_tested_fcn('dist', $self->base_id))
3550 0 0 if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { }
0 0 elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { }
3554 0 0 if ($self->tested_ok_but_not_installed)
3572 0 0 exists $$prefs_test{'commandline'} ? :
0 0 if (my $commandline = exists $$prefs_test{'commandline'} ? $$prefs_test{'commandline'} : '') { }
0 0 elsif ($$self{'modulebuild'}) { }
3578 0 0 unless (-e 'Build' or $^O eq 'VMS' and -e 'Build.com')
3586 0 0 $make_test_arg ? :
3592 0 0 if ($self->prefs->{'test'})
3595 0 0 if $test_env
3598 0 0 if ($expect_model and @{$$expect_model{'talk'};})
3600 0 0 if ($can_expect) { }
3607 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('test')) { }
3608 0 0 if ($self->_should_report('test'))
3621 0 0 if ($tests_ok) { }
3622 0 0 if ($but)
3635 0 0 if ($but) { }
0 0 elsif ($$self{'force_update'}) { }
3659 0 0 $$self{'force_update'} ? :
3668 0 0 unless $$self{'sponsored_mods'}{$m} > 0
3669 0 0 unless my $m_obj = 'CPAN::Shell'->expand('Module', $m)
3675 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) { }
3678 0 0 if $CPAN::DEBUG
3688 0 0 if $CPAN::DEBUG
3691 0 0 if $$m_obj{'mandatory'}
3696 0 0 if (@prereq)
3699 0 0 $cnt == 1 ? :
3707 0 0 unless my $prefs = $self->prefs
3708 0 0 unless my $where_prefs = $$prefs{$where}
3709 0 0 if ($$where_prefs{'expect'}) { }
0 0 elsif ($$where_prefs{'eexpect'}) { }
3724 0 0 $$self{'modulebuild'} ? :
3726 0 0 unless (exists $$self{'archived'})
3731 0 0 unless (exists $$self{'build_dir'})
3735 0 0 if (exists $$self{'writemakefile'} and $$self{'writemakefile'}->failed)
3743 0 0 if exists $$self{'make_clean'} and $$self{'make_clean'} eq 'YES'
3745 0 0 if @e
3747 0 0 unless chdir($$self{'build_dir'})
3749 0 0 if $CPAN::DEBUG
3751 0 0 if ($^O eq 'MacOS')
3757 0 0 if ($$self{'modulebuild'}) { }
3758 0 0 unless (-f 'Build')
3770 0 0 if ($system_ok) { }
3807 0 0 if $CPAN::DEBUG
3808 0 0 if ($self->prefs->{'disabled'} and not $$self{'force_update'})
3854 0 0 if $CPAN::DEBUG
3855 0 0 if (exists $$self{'install'})
3856 0 0 UNIVERSAL::can($$self{'install'}, 'text') ? :
3859 0 0 if ($text =~ /^YES/) { }
0 0 elsif ($text =~ /is only/) { }
3872 0 0 if $$self{$slot}
3885 0 0 if $CPAN::DEBUG
3886 0 0 if (my $goto = $self->prefs->{'goto'})
3891 0 0 unless $self->test
3893 0 0 if (defined(my $sc = $self->shortcut_install))
3897 0 0 if ($CPAN::Signal)
3902 0 0 unless my $builddir = $self->dir
3905 0 0 unless (chdir($builddir))
3910 0 0 if $CPAN::DEBUG
3913 0 0 $$self{'modulebuild'} ? :
3916 0 0 if ($^O eq 'MacOS')
3922 0 0 if (my $commandline = $self->prefs->{'install'}{'commandline'}) { }
0 0 elsif ($$self{'modulebuild'}) { }
3926 0 0 exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $$CPAN::Config{'mbuild_install_build_command'} ? :
3931 0 0 $^O eq 'VMS' ? :
3945 0 0 $^O eq 'MSWin32' || $^O eq 'VMS' ? :
3952 0 0 if ($reqtype eq 'b')
3953 0 0 if ($brip eq 'no') { }
0 0 elsif ($brip =~ m[^ask/(.+)]) { }
3957 0 0 unless $default =~ /^(y|n)/i
3965 0 0 unless ($want_install =~ /^y/i)
3971 0 0 defined $ENV{'PERL5LIB'} ? :
3975 0 0 defined $ENV{'PERL5OPT'} ? :
3977 0 0 if $$CPAN::Config{'use_prompt_default'}
3978 0 0 if $$CPAN::Config{'use_prompt_default'}
3991 0 0 if ($close_ok) { }
4001 0 0 if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make'))
4045 0 0 if ($CPAN::META->has_inst('Pod::Perldocs')) { }
4046 0 0 unless my($perl) = $self->perl
4051 0 0 unless (($wstatus = system(@args)) == 0)
4069 0 0 if $CPAN::DEBUG
4072 0 0 if ($CPAN::META->has_inst('File::Which')) { }
4076 0 0 unless $pid = open(README, "which $binary|")
4078 0 0 unless $pid
4082 0 0 unless close README
4087 0 0 if $CPAN::DEBUG and $out
4098 0 0 if $CPAN::DEBUG
4105 0 0 $web_browser ? :
4109 0 0 if ($web_browser_out) { }
4112 0 0 if $CPAN::DEBUG
4121 0 0 if ($saved_file)
4128 0 0 if ($html_converter_out) { }
4131 0 0 unless defined $saved_file
4135 0 0 unless $pid = open(README, "$html_converter $saved_file |")
4139 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4150 0 0 unless open $fh, ">$filename"
4155 0 0 unless close README
4158 0 0 if $CPAN::DEBUG
4167 0 0 unless open FH, $tmpin
4172 0 0 unless $fh_pager->open("|$pager")
4195 0 0 if $CPAN::DEBUG
4199 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4212 0 0 if ($CPAN::META->has_usable('LWP')) { }
4219 0 0 if ($@) { }
4224 0 0 if $var = $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'}
4226 0 0 if $var = $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'}
4233 0 0 if ($res->is_success) { }
4234 0 0 if $CPAN::DEBUG
4238 0 0 if $CPAN::DEBUG
4258 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'VMS') { }
4261 0 0 unless my($perl) = $self->perl
4273 0 0 unless defined $phase
4279 0 0 unless $test_report
4282 0 0 if exists $$self{'should_report'}
4286 0 0 if ($$self{'had_no_makefile_pl'})
4294 0 0 unless ($CPAN::META->has_inst('CPAN::Reporter'))
4303 0 0 if ('CPAN::Version'->vlt($crv, 0.99))
4305 0 0 if ($phase eq 'test') { }
4318 0 0 if ($self->is_dot_dist)
4323 0 0 if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $$self{'patched'})
4344 0 0 unless ($CPAN::META->has_inst('CPAN::DistnameInfo'))
4347 0 0 unless ($CPAN::META->has_usable('LWP'))
4350 0 0 unless ($CPAN::META->has_usable('File::Temp'))
4368 0 0 if ($@)
4373 0 0 unless ($resp->is_success)
4387 0 0 unless close $fh
4389 0 0 unless unlink $tfilename
4394 0 0 if ($rversion eq $version) { }
4395 0 0 unless ($this_version_seen++)
4401 0 0 $arch eq $Config::Config{'archname'} ? :
0 0 $grade eq 'FAIL' ? :
0 0 $grade eq 'PASS' ? :
4415 0 0 unless ($this_version_seen)