Branch Coverage

blib/lib/CPAN/Distribution.pm
Criterion Covered Total %
branch 29 1446 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
207 0 0 if exists $self->{'incommandcolor'} and $color == 1 and $self->{'incommandcolor'} == $color
209 0 0 if ($depth >= $CPAN::MAX_RECURSION)
211 0 0 if ($e->is_resolvable) { }
219 0 0 if (defined $prereq_pm)
223 0 0 unless $prereq_pm->{'requires'}
224 0 0 unless $prereq_pm->{'build_requires'}
226 0 0 if $pre eq 'perl'
228 0 0 unless ($premo = 'CPAN::Shell'->expand('Module', $pre))
236 0 0 if ($color == 0)
259 0 0 if exists $self->{'CONTAINSMODS'}
262 0 0 unless my $mod_file = $mod->cpan_file
263 0 0 unless my $mod_id = $mod->{'ID'}
266 0 0 if ($CPAN::Signal)
270 0 0 if $mod_file eq $dist_id
278 0 0 if exists $self->{'UPLOAD_DATE'}
283 0 0 unless $author
285 0 0 unless @dl
288 0 0 unless $dirent->[1]
298 0 0 unless ($obj->uptodate)
300 0 0 if $CPAN::DEBUG
310 0 0 if defined $id
320 0 0 if (my $why = $self->check_disabled)
328 0 0 if $CPAN::DEBUG
329 0 0 if (exists $self->{'build_dir'} and -d $self->{'build_dir'})
339 0 0 if $CPAN::DEBUG
340 0 0 if (exists $self->{'build_dir'} and not -d $self->{'build_dir'})
349 0 0 if $CPAN::DEBUG
350 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/)
367 0 0 if $CPAN::DEBUG
368 0 0 if (my $goto = $self->prefs->{'goto'})
372 0 0 if (defined(my $sc = $self->shortcut_get))
378 0 0 defined $ENV{'PERL5LIB'} ? :
379 0 0 defined $ENV{'PERL5OPT'} ? :
389 0 0 unless ($self->{'build_dir'} and -d $self->{'build_dir'})
391 0 0 if $CPAN::Signal
393 0 0 if $CPAN::Signal
396 0 0 if (exists $self->{'writemakefile'} and ref $self->{'writemakefile'} and $self->{'writemakefile'}->can('failed') and $self->{'writemakefile'}->failed)
409 0 0 if ($CPAN::Signal)
413 0 0 unless $self->patch
425 0 0 if $self->is_dot_dist
435 0 0 if $CPAN::DEBUG
436 0 0 unless ($local_file = 'CPAN::FTP'->localize("authors/id/$self->{'ID'}", $local_wanted))
440 0 0 if ($CPAN::Index::DATE_OF_02)
447 0 0 if $CPAN::DEBUG
456 0 0 if $self->is_dot_dist
457 0 0 if ($CPAN::META->has_inst('Digest::SHA')) { }
468 0 0 if $self->is_dot_dist
473 0 0 if $CPAN::DEBUG
475 0 0 unless (mkdir "tmp-$$", 493)
486 0 0 if ($CPAN::Signal)
496 0 0 unless ($ct)
501 0 0 if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { }
0 0 elsif ($local_file =~ /\.zip(?!\n)\Z/i) { }
502 0 0 unless eval { do { $ct->gtest } }
507 0 0 unless $ct->gtest
513 0 0 unless my $dh = 'DirHandle'->new('File::Spec'->curdir)
516 0 0 if (grep {$_ eq 'pax_global_header';} @readdir)
529 0 0 if (@readdir == 1 and -d $readdir[0]) { }
533 0 0 unless ($dh2 = 'DirHandle'->new($from_dir))
550 0 0 if (not $userid or $userid eq 'N/A')
558 0 0 if ($@)
562 0 0 $CPAN::META->has_usable('Errno') ? :
566 0 0 if mkdir $packagedir, 511
567 0 0 if (defined $eexist and $! != $eexist or $suffix == 999)
575 0 0 unless (File::Copy::move($from, $to))
578 0 0 -e $from ? :
0 0 -e $to ? :
602 41 0 unless defined $filter
605 0 41 unless ($build_dir = $self->{'build_dir'})
615 41 0 if $has_cm
616 41 0 if $has_cm or $has_pcm
617 41 0 if $has_cm
618 41 0 if $has_cm or $has_pcm
622 38 63 if -f $path
631 0 0 if $CPAN::DEBUG
632 0 0 unless my $build_dir = $self->{'build_dir'}
634 0 0 if $CPAN::DEBUG
635 0 0 unless -f $yaml
638 0 0 unless $CPAN::META->has_inst('Parse::CPAN::Meta')
639 0 0 unless $Parse::CPAN::Meta::VERSION >= '1.40'
643 0 0 unless ($early_yaml)
646 0 0 if $CPAN::DEBUG
647 0 0 if $CPAN::DEBUG and $early_yaml
648 0 0 if (not ref $early_yaml or ref $early_yaml ne 'HASH')
661 0 0 if $CPAN::DEBUG
662 0 0 if (my(@prereq) = $self->unsat_prereq('later'))
663 0 0 if $CPAN::DEBUG
664 0 0 if $CPAN::DEBUG and @prereq
665 0 0 if ($prereq[0][0] eq 'perl') { }
674 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
691 0 0 if $CPAN::DEBUG
693 0 0 unless ($enable_configure_requires)
700 0 0 if $CPAN::DEBUG
701 0 0 unless @prereq
702 0 0 if $CPAN::DEBUG
703 0 0 if ($self->{'configure_requires_later'})
704 0 0 unless $self->{'configure_requires_later_for'}
705 0 0 if ($self->{'configure_requires_later_for'}{$k} > 1)
708 0 0 if ($p->[0] eq $k)
712 0 0 if $type
718 0 0 if ($prereq[0][0] eq 'perl') { }
729 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
746 0 0 unless $self->satisfy_configure_requires
750 0 0 unless ($mpl_exists)
756 0 0 unless my $mpldh = 'DirHandle'->new($self->{'build_dir'})
761 0 0 if (-f 'File::Spec'->catfile($self->{'build_dir'}, 'Build.PL'))
762 0 0 if ($mpl_exists) { }
763 0 0 if ($CPAN::META->has_inst('Module::Build'))
769 0 0 if fileno Module::Build::Version::DATA
776 0 0 if (lc $prefer_installer eq 'rand')
777 0 0 rand() < 0.5 ? :
779 0 0 if (lc $prefer_installer eq 'mb') { }
0 0 elsif ($self->{'archived'} eq 'patch') { }
0 0 elsif (not $mpl_exists) { }
789 0 0 if ($self->{'build_dir'} and $CPAN::Config->{'build_dir_reuse'})
803 0 0 unless (defined $dir and length $dir)
818 0 0 unless ($sbd eq $cbd)
825 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
851 0 0 if $CPAN::DEBUG
861 0 0 if $CPAN::DEBUG
864 0 0 if $CPAN::DEBUG
865 0 0 if ($patches)
866 0 0 unless @$patches
868 0 0 if $CPAN::DEBUG
870 0 0 unless ($patchbin and length $patchbin)
874 0 0 unless ('MM'->maybe_command($patchbin))
880 0 0 unless ($stdpatchargs)
883 0 0 unless open FH, $system
887 0 0 if (/^patch\s+([\d\.]+)/)
892 0 0 if ($pversion) { }
898 0 0 @$patches == 1 ? :
902 0 0 if ($patches_dir and not 'File::Spec'->file_name_is_absolute($patch))
904 0 0 if -f $f
906 0 0 unless (-f $patch)
907 0 0 if $CPAN::DEBUG
908 0 0 if (my $trydl = $self->try_download($patch)) { }
923 0 0 if ($ppp eq 'applypatch') { }
929 0 0 if ($Config::Config{'osname'} eq 'solaris')
931 0 0 unless $pfiles
932 0 0 unless my(@stat) = stat $file
941 0 0 unless (open $writefh, "|$pcommand")
952 0 0 unless (close $writefh)
976 0 0 if ($CPAN::Config->{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/)
983 0 0 unless /^[\*\+]{3}\s(\S+)/
987 0 0 if -f $file
988 0 0 if $CPAN::DEBUG
991 0 0 unless $cnt_files
992 0 0 $cnt_files == $cnt_p0files ? :
1000 0 0 if $CPAN::DEBUG
1006 0 0 if (-f $configure) { }
0 0 elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { }
1018 0 0 if ($cf =~ m[/])
1023 0 0 unless length $cf
1024 0 0 if (my $crud = $self->_contains_crud($build_dir))
1039 0 0 if ($self->{'archived'} eq 'maybe_pl')
1044 0 0 unless $fh->open(">$mpl")
1064 0 0 unless opendir $dh, $dir
1067 0 0 if $dirent =~ /^\.\.?$/
1069 0 0 if (-d $path) { }
0 0 elsif (-f $path) { }
1075 0 0 if (@dirs and @files) { }
0 0 elsif (@files > 2) { }
1089 0 0 unless $fh->open($script_file)
1096 0 0 if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { }
0 0 elsif ($state =~ /^(name|prereq)$/) { }
0 0 elsif (/^=cut\b/) { }
1097 0 0 if ($1 eq 'NAME') { }
0 0 elsif ($1 eq 'PREREQUISITES') { }
1103 0 0 if (/^=/) { }
0 0 elsif (/^\s*$/) { }
0 0 elsif ($state eq 'name') { }
0 0 elsif ($state eq 'prereq') { }
1108 0 0 if ($name eq '')
1130 0 0 if (/[\s\'\"]/) { }
1137 0 0 if ($name)
1139 0 0 unless rename $script_file, $to_file
1156 0 0 if ($check_sigs)
1157 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1158 0 0 if (-f 'SIGNATURE') { }
1159 0 0 if $CPAN::DEBUG
1161 0 0 if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { }
1185 0 0 if $CPAN::Frontend->can('mysleep')
1188 0 0 if $CPAN::DEBUG
1194 0 0 if $CPAN::DEBUG
1204 0 0 if ($result) { }
1216 0 0 if ($ct->unzip) { }
1227 0 0 if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { }
0 0 elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { }
1236 0 0 if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { }
1237 0 0 if (eval { do { 'CPAN::Tarzip'->new($local_file)->gunzip($to) } }) { }
1243 0 0 if (File::Copy::cp($local_file, '.')) { }
1266 0 0 if ($^O eq 'MacOS')
1271 0 0 if ($CPAN::Config->{'shell'}) { }
1284 0 0 unless ($dir = $self->dir)
1287 0 0 unless ($dir ||= $self->dir)
1303 0 0 defined $ENV{'PERL5LIB'} ? :
1305 0 0 defined $ENV{'PERL5OPT'} ? :
1310 0 0 unless (system($shell) == 0)
1336 0 0 if ($cvs_site_perl)
1346 0 0 unless CPAN::Distribution::chdir($dir)
1351 0 0 unless system(@cmd) == 0
1354 0 0 unless CPAN::Distribution::chdir($pwd)
1362 0 0 if $CPAN::DEBUG
1372 0 0 if $CPAN::DEBUG
1373 0 0 unless $local_file = 'CPAN::FTP'->localize($readme, $local_wanted)
1377 0 0 if ($^O eq 'MacOS')
1385 0 0 unless $fh_pager->open("|$pager")
1388 0 0 unless $fh_readme->open($local_file)
1405 0 0 if $self->{'CHECKSUM_STATUS'} eq 'OK'
1406 0 0 if @e
1416 0 0 if (my $size = -s $lc_want)
1417 0 0 if $CPAN::DEBUG
1418 0 0 if ($self->CHECKSUM_check_file($lc_want, 1))
1424 0 0 unless ($lc_file)
1429 0 0 if ($lc_file) { }
1436 0 0 if ($self->CHECKSUM_check_file($lc_file))
1446 0 0 if ($rv == Module::Signature::SIGNATURE_OK()) { }
1478 0 0 if $CPAN::DEBUG
1481 0 0 if ($check_sigs)
1482 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1483 0 0 if $CPAN::DEBUG
1486 0 0 if $CPAN::DEBUG
1493 0 0 if (open $fh, $chk_file) { }
1500 0 0 if ($@)
1502 0 0 if $@
1508 0 0 if (not ref $cksum or ref $cksum ne 'HASH') { }
0 0 elsif (exists $cksum->{$basename}{'sha256'}) { }
1516 0 0 unless $answer =~ /^\s*y/i
1520 0 0 if $CPAN::DEBUG
1529 0 0 unless ($eq)
1540 0 0 if ($eq) { }
1569 0 0 if $sloppy
1570 0 0 unless ($self->{'CHECKSUM_STATUS'})
1579 0 0 unless $answer =~ /^\s*y/i
1589 0 0 if ($CPAN::META->has_inst('Digest::SHA'))
1658 0 0 if $fforce or $phase eq $method
1659 0 0 unless $methodmatch
1661 0 0 if ($phase eq 'get') { }
0 0 elsif ($phase eq 'test') { }
1662 0 0 if (substr($self->id, -1, 1) eq '.' and $att =~ /(unwrapped|build_dir|archived)/)
1667 0 0 if ($att eq 'build_dir' and $self->{'build_dir'} and $CPAN::META->{'is_tested'})
1674 0 0 if ($att eq 'make_test' and $self->{'make_test'} and $self->{'make_test'}{'COMMANDID'} and $self->{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId)
1684 0 0 if ($ldebug or $CPAN::DEBUG)
1690 0 0 if ($method and $method =~ /make|test|install/)
1719 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\(.+?\)/) { }
1743 0 0 unless ($self)
1757 0 0 if $CPAN::DEBUG
1758 0 0 if (not $self->{'archived'} or $self->{'archived'} eq 'NO')
1762 0 0 if $CPAN::DEBUG
1763 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/)
1772 0 0 if $CPAN::DEBUG
1773 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/)
1784 0 0 if $CPAN::DEBUG
1785 0 0 if ($self->{'writemakefile'})
1786 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? $self->{'writemakefile'}->failed : $self->{'writemakefile'} =~ /^NO/) { }
1794 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'text') ? :
1804 0 0 if $CPAN::DEBUG
1805 0 0 if (my $later = $self->{'configure_requires_later'})
1815 0 0 unless $self->get
1818 0 0 if (defined(my $sc = $self->shortcut_prepare))
1824 0 0 defined $ENV{'PERL5LIB'} ? :
1825 0 0 defined $ENV{'PERL5OPT'} ? :
1826 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
1830 0 0 if ($CPAN::Signal)
1835 0 0 unless my $builddir = $self->dir
1838 0 0 unless (CPAN::Distribution::chdir($builddir))
1843 0 0 if ($CPAN::Signal)
1848 0 0 if $CPAN::DEBUG
1852 0 0 unless $self->choose_MM_or_MB
1856 0 0 $self->{'modulebuild'} ? :
0 0 $self->{'configure'} ? :
1861 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq 'follow')
1868 0 0 if ($self->prefs->{'pl'})
1871 0 0 defined $ENV{'PERL'} ? :
1873 0 0 if $CPAN::Config->{'use_prompt_default'}
1874 0 0 if $CPAN::Config->{'use_prompt_default'}
1875 0 0 if ($pl_commandline) { }
0 0 elsif ($self->{'configure'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
1881 0 0 unless my($perl) = $self->perl
1883 0 0 $mbuildpl_arg ? :
1888 0 0 unless my($perl) = $self->perl
1897 0 0 $switch ? :
0 0 $makepl_arg ? :
1904 0 0 if ($self->prefs->{'pl'})
1907 0 0 if $pl_env
1908 0 0 if (exists $self->{'writemakefile'}) { }
1914 0 0 if ($CPAN::Config->{'inactivity_timeout'})
1916 0 0 if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { }
1933 0 0 if ($go_via_alarm) { }
1934 0 0 if ($self->_should_report('pl')) { }
1945 0 0 if (defined($pid = fork)) { }
1946 0 0 if ($pid) { }
1961 0 0 if ($@)
1973 0 0 if (my $expect_model = $self->_prefs_with_expect('pl')) { }
0 0 elsif ($self->_should_report('pl')) { }
1977 0 0 if (not defined $ret and $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
1991 0 0 if ($ret != 0)
1999 0 0 if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { }
2005 0 0 $self->{'modulebuild'} ? :
2024 0 0 if $CPAN::DEBUG
2025 0 0 if (defined $self->{'make'})
2026 0 0 UNIVERSAL::can($self->{'make'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'make'}, 'failed') ? $self->{'make'}->failed : $self->{'make'} =~ /^NO/) { }
2030 0 0 if ($self->{'force_update'}) { }
2036 0 0 length $self->{'make'} > 3 ? :
2053 0 0 if $CPAN::DEBUG
2054 0 0 if (my $goto = $self->prefs->{'goto'})
2067 0 0 if ($self->isa_perl)
2068 0 0 if ($self->called_for ne $self->id and not $self->{'force_update'})
2096 0 0 unless $self->prepare
2098 0 0 if (defined(my $sc = $self->shortcut_make))
2102 0 0 if ($CPAN::Signal)
2107 0 0 unless my $builddir = $self->dir
2110 0 0 unless (CPAN::Distribution::chdir($builddir))
2115 0 0 $self->{'modulebuild'} ? :
2119 0 0 defined $ENV{'PERL5LIB'} ? :
2120 0 0 defined $ENV{'PERL5OPT'} ? :
2121 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
2125 0 0 if ($CPAN::Signal)
2130 0 0 if ($^O eq 'MacOS')
2137 0 0 if defined $v
2142 0 0 if $@
2143 0 0 unless $satisfied
2144 0 0 if ($CPAN::Signal)
2150 0 0 unless (CPAN::Distribution::chdir($builddir))
2157 0 0 if ($self->prefs->{'make'})
2160 0 0 defined $ENV{'PERL'} ? :
2161 0 0 if $CPAN::Config->{'use_prompt_default'}
2162 0 0 if $CPAN::Config->{'use_prompt_default'}
2163 0 0 if ($make_commandline) { }
2167 0 0 if ($self->{'modulebuild'}) { }
2168 0 0 unless (-f 'Build' or $^O eq 'VMS' and -f 'Build.com')
2180 0 0 $make_arg ? :
2186 0 0 if ($self->prefs->{'make'})
2189 0 0 if $make_env
2192 0 0 if ($expect_model and @{$expect_model->{'talk'};})
2194 0 0 if ($can_expect) { }
2202 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('make')) { }
2215 0 0 if $rc == -1
2218 0 0 if ($system_ok) { }
2225 0 0 if defined $system_err
2252 0 0 if $CPAN::DEBUG
2253 0 0 if ($CPAN::META->has_inst('Expect')) { }
2257 0 0 if ($expect_model->{'mode'} eq 'deterministic') { }
0 0 elsif ($expect_model->{'mode'} eq 'anyorder') { }
2293 0 0 if ($match[2])
2297 0 0 if ($eof) { }
0 0 elsif ($ran_into_timeout) { }
2306 0 0 if ($but =~ /$regex/)
2310 0 0 unless $reuse
2317 0 0 if ($have_waited < $timeout)
2338 0 0 if $CPAN::DEBUG
2354 0 0 if ($ran_into_timeout) { }
0 0 elsif ($ran_into_eof) { }
2371 0 0 if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { }
2377 0 0 if ($@)
2381 0 0 if $CPAN::DEBUG
2391 0 0 if $prefs_dir =~ /^\s*$/
2393 0 0 if ($@)
2398 0 0 unless my $dh = 'DirHandle'->new($prefs_dir)
2400 0 0 unless @files
2405 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
2409 0 0 if ($CPAN::META->has_inst('Data::Dumper'))
2412 0 0 if ($CPAN::META->has_inst('Storable'))
2415 0 0 if (@fallbacks) { }
2417 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2422 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2430 0 0 if ($result->is_warning) { }
0 0 elsif ($result->is_fatal) { }
2447 0 0 unless ($pref->has_any_match)
2451 0 0 unless ($pref->has_valid_subkeys)
2468 0 0 if ($pref->matches($arg))
2484 0 0 if (exists $self->{'negative_prefs_cache'} and $self->{'negative_prefs_cache'} != $CPAN::CurrentCommandId)
2491 0 0 if (exists $self->{'prefs'})
2494 0 0 if ($CPAN::Config->{'prefs_dir'})
2495 0 0 if $CPAN::DEBUG
2498 0 0 if $CPAN::DEBUG
2499 0 0 if ($prefs)
2510 0 0 if $filler2 < 0
2529 0 0 if ($prefs and exists $prefs->{$phase} and exists $prefs->{$phase}{'args'} and $prefs->{$phase}{'args'})
2550 0 0 if ($self->{'modulebuild'}) { }
2573 0 0 if ($self) { }
2598 0 0 unless $mimc
2604 0 0 if $^O eq 'MSWin32'
2615 0 0 unless exists $prereq_pm->{'opt_requires'}{$prereq}
2623 0 0 unless @prereq_tuples
2628 0 0 if ($p->[1] =~ /^(r|c)$/) { }
0 0 elsif ($p->[1] =~ /^(b)$/) { }
2632 0 0 if ($reqtype =~ /^(r|c)$/) { }
2649 0 0 length $unsat > length $pretty_id ? :
2665 0 0 $self->is_locally_optional(undef, $_->[0]) ? :
2668 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq 'follow') { }
0 0 elsif ($CPAN::Config->{'prerequisites_policy'} eq 'ask') { }
2681 0 0 if ($follow)
2687 0 0 if ($optional and $self->is_locally_optional(undef, $prereq)) { }
2696 0 0 if ($any) { }
2697 0 0 unless ($optional)
2711 0 0 if (@to_queue_mand) { }
0 0 elsif (@to_queue_opt) { }
2726 0 0 unless my $optf = $meta_yml->{'optional_features'}
2727 0 0 if (not ref $optf or ref $optf ne 'HASH')
2731 0 0 unless my $wantf = $self->prefs->{'features'}
2732 0 0 if (not ref $wantf or ref $wantf ne 'ARRAY')
2738 0 0 if (my $f = $optf->{$wf}) { }
2746 0 0 unless my $reqhash = $f->{$reqtype}
2764 0 0 unless $CPAN::META->has_usable('CPAN::Meta::Requirements')
2769 0 0 if ($slot eq 'configure_requires_later') { }
0 0 elsif ($slot eq 'later') { }
2778 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'))
2795 0 0 unless $prereq_pm_0->{$reqtype}
2797 0 0 unless $dep->{$reqtype}
2828 0 0 unless $CPAN::META->has_usable('CPAN::Meta::Requirements')
2832 0 0 if $CPAN::DEBUG
2836 0 0 if ($need_module eq 'perl') { }
2840 0 0 if (CPAN::_sqlite_running())
2848 0 0 if ($nmo->uptodate)
2852 0 0 unless ($accepts)
2864 0 0 if ($available_file and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef')
2870 0 0 unless ($nmo->inst_deprecated)
2883 0 0 if ($available_file)
2891 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) { }
2900 0 0 if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/)
2919 0 0 if ($need_distro->{'install'} and $need_distro->{'install'}->failed and $need_distro->{'install'}->text =~ /is only/)
2920 0 0 if $CPAN::DEBUG
2928 0 0 if $fulfills_all_version_rqs
2932 0 0 if ($need_module eq 'perl')
2936 0 0 if $CPAN::DEBUG
2937 0 0 if (my $sponsoring = $self->{'sponsored_mods'}{$need_module}++)
2967 0 0 unless $do
2968 0 0 if ('CPAN::Version'->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0)
2985 0 0 if ($do->{$nosayer})
2988 0 0 UNIVERSAL::can($do->{$nosayer}, 'failed') ? :
0 0 if (UNIVERSAL::can($do->{$nosayer}, 'failed') ? $do->{$nosayer}->failed : $do->{$nosayer} =~ /^NO/) { }
2991 0 0 if ($nosayer eq 'make_test' and $do->{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId)
2998 0 0 if ($self->is_locally_optional($prereq_pm, $need_module)) { }
3013 0 0 if ($nosayer =~ /^(install|make_test)$/)
3032 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') { }
3033 0 0 unless exists $prereq_pm->{'requires'}{$need_module}
3055 0 0 if $CPAN::DEBUG
3065 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*//) { }
3068 0 0 if ('CPAN::Version'->vgt($available_version, $rq))
3074 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3088 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3096 0 0 unless ('CPAN::Version'->vgt($rq, $available_version))
3099 0 0 if $CPAN::DEBUG
3109 0 0 if $CPAN::DEBUG
3117 2 28 unless my $meta_file = $self->pick_meta_file
3120 0 28 unless $CPAN::META->has_usable('CPAN::Meta')
3121 0 28 unless my $meta = eval { do { 'CPAN::Meta'->load_file($meta_file) } }
3125 0 28 if ($meta_file eq 'META.yml' and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3129 0 0 if $eummv < 6.2501
3140 0 0 if $CPAN::DEBUG
3141 0 0 unless $meta_file
3144 0 0 if ($@ or not $yaml)
3148 0 0 if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH')
3152 0 0 if $CPAN::DEBUG
3154 0 0 if $CPAN::DEBUG and $yaml
3156 0 0 if ($meta_file =~ /MYMETA\.yml/)
3160 0 0 if (defined $yaml->{'dynamic_config'} and not $yaml->{'dynamic_config'})
3170 0 0 unless my $meta_file = $self->pick_meta_file('^META')
3171 0 0 if (my $meta_obj = $self->read_meta) { }
3174 0 0 $cr ? :
3187 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3188 0 8 unless ($self->{'build_dir'})
3192 0 8 $^O eq 'VMS' ? :
3193 0 8 $^O eq 'VMS' ? :
3194 0 8 unless -f $makefile or -f $buildfile
3197 0 8 if $CPAN::DEBUG
3202 8 0 if ($meta_obj and not $meta_obj->dynamic_config) { }
0 0 elsif (my $yaml = $self->read_yaml) { }
3217 0 8 if ($CPAN::Config->{'recommends_policy'})
3223 0 8 if ($CPAN::Config->{'suggests_policy'})
3234 0 0 if ($CPAN::Config->{'recommends_policy'})
3237 0 0 unless ref $req eq 'HASH' and %$req
3238 0 0 if ($req)
3239 0 0 if ($yaml->{'generated_by'} and $yaml->{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3242 0 0 if ($eummv < 6.2501)
3251 0 0 unless $req
3253 0 0 unless defined $v
3254 0 0 if ($v =~ /\d/) { }
0 0 elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { }
3269 0 0 if $do_replace
3277 0 8 unless ($req or $breq)
3279 0 0 unless ($build_dir = $self->{'build_dir'})
3284 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3287 0 0 if $CPAN::DEBUG
3290 0 0 if /MakeMaker post_initialize section/
3294 0 0 unless $p
3306 0 0 if (defined $req->{$m})
3309 0 0 if ($n =~ /^q\[(.*?)\]$/)
3312 0 0 if (not $prevn or 'CPAN::Version'->vlt($prevn, $n))
3320 0 8 unless ($req or $breq)
3321 0 0 unless my $build_dir = $self->{'build_dir'}
3323 0 0 if (-f $buildfile)
3324 0 0 if $CPAN::DEBUG
3326 0 0 if (-f $build_prereqs)
3327 0 0 if $CPAN::DEBUG
3329 0 0 unless open FH, $build_prereqs
3336 0 0 if ($@) { }
3345 8 0 if ($req or $breq or $opt_req or $opt_breq)
3361 0 0 if $CPAN::DEBUG
3363 0 0 if ($self->{'badtestcnt'} > 0)
3365 0 0 if $CPAN::DEBUG
3370 0 0 if $CPAN::DEBUG
3372 0 0 if $self->{$slot}
3375 0 0 if $CPAN::DEBUG
3376 0 0 if ($self->{'make_test'})
3377 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/) { }
3382 0 0 if (UNIVERSAL::can($self->{'make_test'}, 'commandid') and $self->{'make_test'}->commandid == $CPAN::CurrentCommandId)
3392 0 0 if ($self->tested_ok_but_not_installed)
3399 0 0 if ($self->{'notest'})
3412 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3413 0 0 unless ($self->{'build_dir'})
3418 0 0 if $CPAN::DEBUG
3421 0 0 unless ($build_dir = $self->{'build_dir'})
3427 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3430 0 0 if $CPAN::DEBUG
3433 0 0 if /MakeMaker post_initialize section/
3437 0 0 unless $p
3441 0 0 if ($p2 =~ /^q\[(.+)\]/)
3447 0 0 if @exe_files
3449 0 0 if (-f $buildparams)
3450 0 0 if $CPAN::DEBUG
3452 0 0 unless $x->[2]{'script_files'}
3465 0 0 if $CPAN::DEBUG
3466 0 0 if (my $goto = $self->prefs->{'goto'})
3471 0 0 unless $self->make
3473 0 0 if (defined(my $sc = $self->shortcut_test))
3477 0 0 if ($CPAN::Signal)
3482 0 0 $self->{'modulebuild'} ? :
3486 0 0 defined $ENV{'PERL5LIB'} ? :
3488 0 0 defined $ENV{'PERL5OPT'} ? :
3489 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
3492 0 0 if $CPAN::Config->{'use_prompt_default'}
3493 0 0 if $CPAN::Config->{'use_prompt_default'}
3497 0 0 unless my $builddir = $self->dir
3500 0 0 unless (CPAN::Distribution::chdir($builddir))
3505 0 0 if $CPAN::DEBUG
3508 0 0 if ($^O eq 'MacOS')
3513 0 0 if ($self->{'modulebuild'})
3516 0 0 if ('CPAN::Version'->vlt($v, 2.62))
3520 0 0 unless ($self->id eq $thm->distribution->id)
3529 0 0 unless ($self->{'force_update'})
3532 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'))
3535 0 0 if (my(@reports) = &$have_tested_fcn('dist', $self->base_id))
3537 0 0 if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { }
0 0 elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { }
3541 0 0 if ($self->tested_ok_but_not_installed)
3559 0 0 exists $prefs_test->{'commandline'} ? :
0 0 if (my $commandline = exists $prefs_test->{'commandline'} ? $prefs_test->{'commandline'} : '') { }
0 0 elsif ($self->{'modulebuild'}) { }
3565 0 0 unless (-e 'Build' or $^O eq 'VMS' and -e 'Build.com')
3573 0 0 $make_test_arg ? :
3579 0 0 if ($self->prefs->{'test'})
3582 0 0 if $test_env
3585 0 0 if ($expect_model and @{$expect_model->{'talk'};})
3587 0 0 if ($can_expect) { }
3594 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('test')) { }
3595 0 0 if ($self->_should_report('test'))
3608 0 0 if ($tests_ok) { }
3609 0 0 if ($but)
3622 0 0 if ($but) { }
0 0 elsif ($self->{'force_update'}) { }
3646 0 0 $self->{'force_update'} ? :
3655 0 0 unless $self->{'sponsored_mods'}{$m} > 0
3656 0 0 unless my $m_obj = 'CPAN::Shell'->expand('Module', $m)
3662 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) { }
3665 0 0 if $CPAN::DEBUG
3675 0 0 if $CPAN::DEBUG
3679 0 0 if $m_obj->{'mandatory'}
3683 0 0 if (@prereq)
3686 0 0 $cnt == 1 ? :
3694 0 0 unless my $prefs = $self->prefs
3695 0 0 unless my $where_prefs = $prefs->{$where}
3696 0 0 if ($where_prefs->{'expect'}) { }
0 0 elsif ($where_prefs->{'eexpect'}) { }
3711 0 0 $self->{'modulebuild'} ? :
3713 0 0 unless (exists $self->{'archived'})
3718 0 0 unless (exists $self->{'build_dir'})
3722 0 0 if (exists $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
3730 0 0 if exists $self->{'make_clean'} and $self->{'make_clean'} eq 'YES'
3732 0 0 if @e
3735 0 0 unless CPAN::Distribution::chdir($self->{'build_dir'})
3736 0 0 if $CPAN::DEBUG
3738 0 0 if ($^O eq 'MacOS')
3744 0 0 if ($self->{'modulebuild'}) { }
3745 0 0 unless (-f 'Build')
3757 0 0 if ($system_ok) { }
3794 0 0 if $CPAN::DEBUG
3795 0 0 if ($self->prefs->{'disabled'} and not $self->{'force_update'})
3841 0 0 if $CPAN::DEBUG
3842 0 0 if (exists $self->{'install'})
3845 0 0 UNIVERSAL::can($self->{'install'}, 'text') ? :
3846 0 0 if ($text =~ /^YES/) { }
0 0 elsif ($text =~ /is only/) { }
3860 0 0 if $self->{$slot}
3872 0 0 if $CPAN::DEBUG
3873 0 0 if (my $goto = $self->prefs->{'goto'})
3878 0 0 unless $self->test
3880 0 0 if (defined(my $sc = $self->shortcut_install))
3884 0 0 if ($CPAN::Signal)
3889 0 0 unless my $builddir = $self->dir
3892 0 0 unless (CPAN::Distribution::chdir($builddir))
3897 0 0 if $CPAN::DEBUG
3900 0 0 $self->{'modulebuild'} ? :
3903 0 0 if ($^O eq 'MacOS')
3909 0 0 if (my $commandline = $self->prefs->{'install'}{'commandline'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
3917 0 0 exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $CPAN::Config->{'mbuild_install_build_command'} ? :
3918 0 0 $^O eq 'VMS' ? :
3932 0 0 $^O eq 'MSWin32' || $^O eq 'VMS' ? :
3939 0 0 if ($reqtype eq 'b')
3940 0 0 if ($brip eq 'no') { }
0 0 elsif ($brip =~ m[^ask/(.+)]) { }
3944 0 0 unless $default =~ /^(y|n)/i
3952 0 0 unless ($want_install =~ /^y/i)
3960 0 0 defined $ENV{'PERL5LIB'} ? :
3962 0 0 defined $ENV{'PERL5OPT'} ? :
3965 0 0 if $CPAN::Config->{'use_prompt_default'}
3966 0 0 if $CPAN::Config->{'use_prompt_default'}
3979 0 0 if ($close_ok) { }
3983 0 0 if ($CPAN::Config->{'cleanup_after_install'})
3985 0 0 unless CPAN::Distribution::chdir($parent)
3988 0 0 if (-e $yml)
3989 0 0 unless unlink $yml
3998 0 0 if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make'))
4018 0 0 unless ($CPAN::Config->{'cleanup_after_install'})
4044 0 0 if ($CPAN::META->has_inst('Pod::Perldocs')) { }
4045 0 0 unless my($perl) = $self->perl
4050 0 0 unless (($wstatus = system(@args)) == 0)
4068 0 0 if $CPAN::DEBUG
4071 0 0 if ($CPAN::META->has_inst('File::Which')) { }
4075 0 0 unless $pid = open(README, "which $binary|")
4077 0 0 unless $pid
4081 0 0 unless close README
4086 0 0 if $CPAN::DEBUG and $out
4097 0 0 if $CPAN::DEBUG
4104 0 0 $web_browser ? :
4108 0 0 if ($web_browser_out) { }
4111 0 0 if $CPAN::DEBUG
4120 0 0 if ($saved_file)
4127 0 0 if ($html_converter_out) { }
4130 0 0 unless defined $saved_file
4134 0 0 unless $pid = open(README, "$html_converter $saved_file |")
4138 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4149 0 0 unless open $fh, ">$filename"
4154 0 0 unless close README
4157 0 0 if $CPAN::DEBUG
4166 0 0 unless open FH, $tmpin
4171 0 0 unless $fh_pager->open("|$pager")
4194 0 0 if $CPAN::DEBUG
4198 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4211 0 0 if ($CPAN::META->has_usable('LWP')) { }
4218 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'}
4232 0 0 if ($res->is_success) { }
4233 0 0 if $CPAN::DEBUG
4237 0 0 if $CPAN::DEBUG
4257 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'VMS') { }
4260 0 0 unless my($perl) = $self->perl
4272 0 0 unless defined $phase
4278 0 0 unless $test_report
4282 0 0 if exists $self->{'should_report'}
4285 0 0 if ($self->{'had_no_makefile_pl'})
4293 0 0 unless ($CPAN::META->has_inst('CPAN::Reporter'))
4302 0 0 if ('CPAN::Version'->vlt($crv, 0.99))
4304 0 0 if ($phase eq 'test') { }
4317 0 0 if ($self->is_dot_dist)
4322 0 0 if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $self->{'patched'})
4343 0 0 unless ($CPAN::META->has_inst('CPAN::DistnameInfo'))
4346 0 0 unless ($CPAN::META->has_usable('LWP'))
4349 0 0 unless ($CPAN::META->has_usable('File::Temp'))
4367 0 0 if ($@)
4372 0 0 unless ($resp->is_success)
4386 0 0 unless close $fh
4388 0 0 unless unlink $tfilename
4393 0 0 if ($rversion eq $version) { }
4394 0 0 unless ($this_version_seen++)
4408 0 0 $arch eq $Config::Config{'archname'} ? :
0 0 $grade eq 'FAIL' ? :
0 0 $grade eq 'PASS' ? :
4414 0 0 unless ($this_version_seen)