Branch Coverage

blib/lib/CPAN/Distribution.pm
Criterion Covered Total %
branch 29 1478 1.9


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') && defined &Errno::EEXIST ? :
567 0 0 if mkdir $packagedir, 511
568 0 0 if (defined $eexist and $! != $eexist or $suffix == 999)
576 0 0 unless (File::Copy::move($from, $to))
579 0 0 -e $from ? :
0 0 -e $to ? :
603 41 0 unless defined $filter
606 0 41 unless ($build_dir = $self->{'build_dir'})
616 41 0 if $has_cm
617 41 0 if $has_cm or $has_pcm
618 41 0 if $has_cm
619 41 0 if $has_cm or $has_pcm
623 38 63 if -f $path
632 0 0 if $CPAN::DEBUG
633 0 0 unless my $build_dir = $self->{'build_dir'}
635 0 0 if $CPAN::DEBUG
636 0 0 unless -f $yaml
639 0 0 unless $CPAN::META->has_inst('Parse::CPAN::Meta')
640 0 0 unless $Parse::CPAN::Meta::VERSION >= '1.40'
644 0 0 unless ($early_yaml)
647 0 0 if $CPAN::DEBUG
648 0 0 if $CPAN::DEBUG and $early_yaml
649 0 0 if (not ref $early_yaml or ref $early_yaml ne 'HASH')
662 0 0 if $CPAN::DEBUG
663 0 0 if (my(@prereq) = $self->unsat_prereq('later'))
664 0 0 if ($CPAN::DEBUG)
669 0 0 if ($prereq[0][0] eq 'perl') { }
678 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
695 0 0 if $CPAN::DEBUG
697 0 0 unless ($enable_configure_requires)
704 0 0 if $CPAN::DEBUG
705 0 0 unless @prereq
706 0 0 if $CPAN::DEBUG
707 0 0 if ($self->{'configure_requires_later'})
708 0 0 unless $self->{'configure_requires_later_for'}
709 0 0 if ($self->{'configure_requires_later_for'}{$k} > 1)
712 0 0 if ($p->[0] eq $k)
716 0 0 if $type
722 0 0 if ($prereq[0][0] eq 'perl') { }
733 0 0 if (do { $follow }) { }
0 0 elsif ($@ and ref $@ and $@->isa('CPAN::Exception::RecursiveDependency')) { }
750 0 0 unless $self->satisfy_configure_requires
754 0 0 unless ($mpl_exists)
760 0 0 unless my $mpldh = 'DirHandle'->new($self->{'build_dir'})
765 0 0 if (-f 'File::Spec'->catfile($self->{'build_dir'}, 'Build.PL'))
766 0 0 if ($mpl_exists) { }
767 0 0 if ($CPAN::META->has_inst('Module::Build'))
773 0 0 if fileno Module::Build::Version::DATA
780 0 0 if (lc $prefer_installer eq 'rand')
781 0 0 rand() < 0.5 ? :
783 0 0 if (lc $prefer_installer eq 'mb') { }
0 0 elsif ($self->{'archived'} eq 'patch') { }
0 0 elsif (not $mpl_exists) { }
793 0 0 if ($self->{'build_dir'} and $CPAN::Config->{'build_dir_reuse'})
807 0 0 unless (defined $dir and length $dir)
822 0 0 unless ($sbd eq $cbd)
829 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
855 0 0 if $CPAN::DEBUG
865 0 0 if $CPAN::DEBUG
868 0 0 if $CPAN::DEBUG
869 0 0 if ($patches)
870 0 0 unless @$patches
872 0 0 if $CPAN::DEBUG
874 0 0 unless ($patchbin and length $patchbin)
878 0 0 unless ('MM'->maybe_command($patchbin))
884 0 0 unless ($stdpatchargs)
887 0 0 unless open FH, $system
891 0 0 if (/^patch\s+([\d\.]+)/)
896 0 0 if ($pversion) { }
902 0 0 @$patches == 1 ? :
906 0 0 if ($patches_dir and not 'File::Spec'->file_name_is_absolute($patch))
908 0 0 if -f $f
910 0 0 unless (-f $patch)
911 0 0 if $CPAN::DEBUG
912 0 0 if (my $trydl = $self->try_download($patch)) { }
927 0 0 if ($ppp eq 'applypatch') { }
933 0 0 if ($Config::Config{'osname'} eq 'solaris')
935 0 0 unless $pfiles
936 0 0 unless my(@stat) = stat $file
945 0 0 unless (open $writefh, "|$pcommand")
956 0 0 unless (close $writefh)
980 0 0 if ($CPAN::Config->{'applypatch'} and /\#\#\#\# ApplyPatch data follows \#\#\#\#/)
987 0 0 unless /^[\*\+]{3}\s(\S+)/
991 0 0 if -f $file
992 0 0 if $CPAN::DEBUG
995 0 0 unless $cnt_files
996 0 0 $cnt_files == $cnt_p0files ? :
1004 0 0 if $CPAN::DEBUG
1010 0 0 if (-f $configure) { }
0 0 elsif (-f 'File::Spec'->catfile($build_dir, 'Makefile')) { }
1022 0 0 if ($cf =~ m[/])
1027 0 0 unless length $cf
1028 0 0 if (my $crud = $self->_contains_crud($build_dir))
1043 0 0 if ($self->{'archived'} eq 'maybe_pl')
1048 0 0 unless $fh->open(">$mpl")
1068 0 0 unless opendir $dh, $dir
1071 0 0 if $dirent =~ /^\.\.?$/
1073 0 0 if (-d $path) { }
0 0 elsif (-f $path) { }
1079 0 0 if (@dirs and @files) { }
0 0 elsif (@files > 2) { }
1093 0 0 unless $fh->open($script_file)
1100 0 0 if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { }
0 0 elsif ($state =~ /^(name|prereq)$/) { }
0 0 elsif (/^=cut\b/) { }
1101 0 0 if ($1 eq 'NAME') { }
0 0 elsif ($1 eq 'PREREQUISITES') { }
1107 0 0 if (/^=/) { }
0 0 elsif (/^\s*$/) { }
0 0 elsif ($state eq 'name') { }
0 0 elsif ($state eq 'prereq') { }
1112 0 0 if ($name eq '')
1134 0 0 if (/[\s\'\"]/) { }
1141 0 0 if ($name)
1143 0 0 unless rename $script_file, $to_file
1160 0 0 if ($check_sigs)
1161 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1162 0 0 if (-f 'SIGNATURE') { }
1163 0 0 if $CPAN::DEBUG
1165 0 0 if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { }
1189 0 0 if $CPAN::Frontend->can('mysleep')
1192 0 0 if $CPAN::DEBUG
1198 0 0 if $CPAN::DEBUG
1208 0 0 if ($result) { }
1220 0 0 if ($ct->unzip) { }
1231 0 0 if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { }
0 0 elsif ($local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/) { }
1240 0 0 if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { }
1241 0 0 if (eval { do { 'CPAN::Tarzip'->new($local_file)->gunzip($to) } }) { }
1247 0 0 if (File::Copy::cp($local_file, '.')) { }
1270 0 0 if ($^O eq 'MacOS')
1275 0 0 if ($CPAN::Config->{'shell'}) { }
1288 0 0 unless ($dir = $self->dir)
1291 0 0 unless ($dir ||= $self->dir)
1307 0 0 defined $ENV{'PERL5LIB'} ? :
1309 0 0 defined $ENV{'PERL5OPT'} ? :
1314 0 0 unless (system($shell) == 0)
1340 0 0 if ($cvs_site_perl)
1350 0 0 unless CPAN::Distribution::chdir($dir)
1355 0 0 unless system(@cmd) == 0
1358 0 0 unless CPAN::Distribution::chdir($pwd)
1366 0 0 if $CPAN::DEBUG
1376 0 0 if $CPAN::DEBUG
1377 0 0 unless $local_file = 'CPAN::FTP'->localize($readme, $local_wanted)
1381 0 0 if ($^O eq 'MacOS')
1389 0 0 unless $fh_pager->open("|$pager")
1392 0 0 unless $fh_readme->open($local_file)
1409 0 0 if $self->{'CHECKSUM_STATUS'} eq 'OK'
1410 0 0 if @e
1420 0 0 if (my $size = -s $lc_want)
1421 0 0 if $CPAN::DEBUG
1422 0 0 if ($self->CHECKSUM_check_file($lc_want, 1))
1428 0 0 unless ($lc_file)
1433 0 0 if ($lc_file) { }
1440 0 0 if ($self->CHECKSUM_check_file($lc_file))
1450 0 0 if ($rv == Module::Signature::SIGNATURE_OK()) { }
1482 0 0 if $CPAN::DEBUG
1485 0 0 if ($check_sigs)
1486 0 0 if ($CPAN::META->has_inst('Module::Signature')) { }
1487 0 0 if $CPAN::DEBUG
1490 0 0 if $CPAN::DEBUG
1497 0 0 if (open $fh, $chk_file) { }
1504 0 0 if ($@)
1506 0 0 if $@
1512 0 0 if (not ref $cksum or ref $cksum ne 'HASH') { }
0 0 elsif (exists $cksum->{$basename}{'sha256'}) { }
1520 0 0 unless $answer =~ /^\s*y/i
1524 0 0 if $CPAN::DEBUG
1533 0 0 unless ($eq)
1544 0 0 if ($eq) { }
1573 0 0 if $sloppy
1574 0 0 unless ($self->{'CHECKSUM_STATUS'})
1583 0 0 unless $answer =~ /^\s*y/i
1593 0 0 if ($CPAN::META->has_inst('Digest::SHA'))
1662 0 0 if $fforce or $method and $phase eq $method
1663 0 0 unless $methodmatch
1665 0 0 if ($phase eq 'get') { }
0 0 elsif ($phase eq 'test') { }
1666 0 0 if (substr($self->id, -1, 1) eq '.' and $att =~ /(unwrapped|build_dir|archived)/)
1671 0 0 if ($att eq 'build_dir' and $self->{'build_dir'} and $CPAN::META->{'is_tested'})
1678 0 0 if ($att eq 'make_test' and $self->{'make_test'} and $self->{'make_test'}{'COMMANDID'} and $self->{'make_test'}{'COMMANDID'} == $CPAN::CurrentCommandId)
1688 0 0 if ($ldebug or $CPAN::DEBUG)
1694 0 0 if ($method and $method =~ /make|test|install/)
1723 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\(.+?\)/) { }
1733 0 0 if ($2) { }
1750 0 0 unless ($self)
1764 0 0 if $CPAN::DEBUG
1765 0 0 if (not $self->{'archived'} or $self->{'archived'} eq 'NO')
1769 0 0 if $CPAN::DEBUG
1770 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/)
1779 0 0 if $CPAN::DEBUG
1780 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/)
1791 0 0 if $CPAN::DEBUG
1792 0 0 if ($self->{'writemakefile'})
1793 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'writemakefile'}, 'failed') ? $self->{'writemakefile'}->failed : $self->{'writemakefile'} =~ /^NO/) { }
1801 0 0 UNIVERSAL::can($self->{'writemakefile'}, 'text') ? :
1811 0 0 if $CPAN::DEBUG
1812 0 0 if (my $later = $self->{'configure_requires_later'})
1822 0 0 unless $self->get
1825 0 0 if (defined(my $sc = $self->shortcut_prepare))
1831 0 0 defined $ENV{'PERL5LIB'} ? :
1832 0 0 defined $ENV{'PERL5OPT'} ? :
1833 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
1837 0 0 if ($CPAN::Signal)
1842 0 0 unless my $builddir = $self->dir
1845 0 0 unless (CPAN::Distribution::chdir($builddir))
1850 0 0 if ($CPAN::Signal)
1855 0 0 if $CPAN::DEBUG
1859 0 0 unless $self->choose_MM_or_MB
1863 0 0 $self->{'modulebuild'} ? :
0 0 $self->{'configure'} ? :
1868 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq 'follow')
1875 0 0 if ($self->prefs->{'pl'})
1878 0 0 defined $ENV{'PERL'} ? :
1880 0 0 if $CPAN::Config->{'use_prompt_default'}
1881 0 0 if $CPAN::Config->{'use_prompt_default'}
1882 0 0 if ($pl_commandline) { }
0 0 elsif ($self->{'configure'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
1888 0 0 unless my($perl) = $self->perl
1890 0 0 $mbuildpl_arg ? :
1895 0 0 unless my($perl) = $self->perl
1904 0 0 $switch ? :
0 0 $makepl_arg ? :
1911 0 0 if ($self->prefs->{'pl'})
1914 0 0 if $pl_env
1915 0 0 if (exists $self->{'writemakefile'}) { }
1921 0 0 if ($CPAN::Config->{'inactivity_timeout'})
1923 0 0 if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { }
1940 0 0 if ($go_via_alarm) { }
1941 0 0 if ($self->_should_report('pl')) { }
1952 0 0 if (defined($pid = fork)) { }
1953 0 0 if ($pid) { }
1968 0 0 if ($@)
1980 0 0 if (my $expect_model = $self->_prefs_with_expect('pl')) { }
0 0 elsif ($self->_should_report('pl')) { }
1984 0 0 if (not defined $ret and $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
1993 0 0 if (not defined $output or $@)
2003 0 0 if ($ret != 0)
2011 0 0 if (-f 'Makefile' or -f 'Build' or $^O eq 'VMS' and -f 'descrip.mms' || -f 'Build.com') { }
2017 0 0 $self->{'modulebuild'} ? :
2036 0 0 if $CPAN::DEBUG
2037 0 0 if (defined $self->{'make'})
2038 0 0 UNIVERSAL::can($self->{'make'}, 'failed') ? :
0 0 if (UNIVERSAL::can($self->{'make'}, 'failed') ? $self->{'make'}->failed : $self->{'make'} =~ /^NO/) { }
2042 0 0 if ($self->{'force_update'}) { }
2048 0 0 length $self->{'make'} > 3 ? :
2065 0 0 if $CPAN::DEBUG
2066 0 0 if (my $goto = $self->prefs->{'goto'})
2079 0 0 if ($self->isa_perl)
2080 0 0 if ($self->called_for ne $self->id and not $self->{'force_update'})
2108 0 0 unless $self->prepare
2110 0 0 if (defined(my $sc = $self->shortcut_make))
2114 0 0 if ($CPAN::Signal)
2119 0 0 unless my $builddir = $self->dir
2122 0 0 unless (CPAN::Distribution::chdir($builddir))
2127 0 0 $self->{'modulebuild'} ? :
2131 0 0 defined $ENV{'PERL5LIB'} ? :
2132 0 0 defined $ENV{'PERL5OPT'} ? :
2133 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
2137 0 0 if ($CPAN::Signal)
2142 0 0 if ($^O eq 'MacOS')
2149 0 0 if defined $v
2154 0 0 if $@
2155 0 0 unless $satisfied
2156 0 0 if ($CPAN::Signal)
2162 0 0 unless (CPAN::Distribution::chdir($builddir))
2169 0 0 if ($self->prefs->{'make'})
2172 0 0 defined $ENV{'PERL'} ? :
2173 0 0 if $CPAN::Config->{'use_prompt_default'}
2174 0 0 if $CPAN::Config->{'use_prompt_default'}
2175 0 0 if ($make_commandline) { }
2179 0 0 if ($self->{'modulebuild'}) { }
2180 0 0 unless (-f 'Build' or $^O eq 'VMS' and -f 'Build.com')
2192 0 0 $make_arg ? :
2198 0 0 if ($self->prefs->{'make'})
2201 0 0 if $make_env
2204 0 0 if ($expect_model and @{$expect_model->{'talk'};})
2206 0 0 if ($can_expect) { }
2214 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('make')) { }
2227 0 0 if $rc == -1
2230 0 0 if ($system_ok) { }
2237 0 0 if defined $system_err
2264 0 0 if $CPAN::DEBUG
2265 0 0 if ($CPAN::META->has_inst('Expect')) { }
2269 0 0 if ($expect_model->{'mode'} eq 'deterministic') { }
0 0 elsif ($expect_model->{'mode'} eq 'anyorder') { }
2305 0 0 if ($match[2])
2309 0 0 if ($eof) { }
0 0 elsif ($ran_into_timeout) { }
2318 0 0 if ($but =~ /$regex/)
2322 0 0 unless $reuse
2329 0 0 if ($have_waited < $timeout)
2350 0 0 if $CPAN::DEBUG
2366 0 0 if ($ran_into_timeout) { }
0 0 elsif ($ran_into_eof) { }
2383 0 0 if ($CPAN::META->has_inst('CPAN::Kwalify') and $CPAN::META->has_inst('Kwalify')) { }
2389 0 0 if ($@)
2393 0 0 if $CPAN::DEBUG
2403 0 0 if $prefs_dir =~ /^\s*$/
2405 0 0 if ($@)
2410 0 0 unless my $dh = 'DirHandle'->new($prefs_dir)
2412 0 0 unless @files
2417 0 0 if ($CPAN::META->has_inst($yaml_module)) { }
2421 0 0 if ($CPAN::META->has_inst('Data::Dumper'))
2424 0 0 if ($CPAN::META->has_inst('Storable'))
2427 0 0 if (@fallbacks) { }
2429 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2434 0 0 unless ($self->{'have_complained_about_missing_yaml'}++)
2442 0 0 if ($result->is_warning) { }
0 0 elsif ($result->is_fatal) { }
2459 0 0 unless ($pref->has_any_match)
2463 0 0 unless ($pref->has_valid_subkeys)
2480 0 0 if ($pref->matches($arg))
2496 0 0 if (exists $self->{'negative_prefs_cache'} and $self->{'negative_prefs_cache'} != $CPAN::CurrentCommandId)
2503 0 0 if (exists $self->{'prefs'})
2506 0 0 if ($CPAN::Config->{'prefs_dir'})
2507 0 0 if $CPAN::DEBUG
2510 0 0 if $CPAN::DEBUG
2511 0 0 if ($prefs)
2522 0 0 if $filler2 < 0
2541 0 0 if ($prefs and exists $prefs->{$phase} and exists $prefs->{$phase}{'args'} and $prefs->{$phase}{'args'})
2562 0 0 if ($self->{'modulebuild'}) { }
2585 0 0 if ($self) { }
2610 0 0 unless $mimc
2616 0 0 if $^O eq 'MSWin32'
2627 0 0 if (exists $prereq_pm->{$rt}{$prereq})
2631 0 0 if not $av or 'CPAN::Version'->vlt($av, $prereq_pm->{$rt}{$prereq})
2633 0 0 if (exists $$prereq_pm{"opt_$rt"}{$prereq})
2645 0 0 unless @prereq_tuples
2650 0 0 if ($p->[1] =~ /^(r|c)$/) { }
0 0 elsif ($p->[1] =~ /^(b)$/) { }
2654 0 0 if ($reqtype =~ /^(r|c)$/) { }
2671 0 0 length $unsat > length $pretty_id ? :
2687 0 0 $self->is_locally_optional(undef, $_->[0]) ? :
2690 0 0 if ($CPAN::Config->{'prerequisites_policy'} eq 'follow') { }
0 0 elsif ($CPAN::Config->{'prerequisites_policy'} eq 'ask') { }
2703 0 0 if ($follow)
2709 0 0 if ($optional and $self->is_locally_optional(undef, $prereq)) { }
2718 0 0 if ($any) { }
2719 0 0 unless ($optional)
2733 0 0 if (@to_queue_mand) { }
0 0 elsif (@to_queue_opt) { }
2748 0 0 unless my $optf = $meta_yml->{'optional_features'}
2749 0 0 if (not ref $optf or ref $optf ne 'HASH')
2753 0 0 unless my $wantf = $self->prefs->{'features'}
2754 0 0 if (not ref $wantf or ref $wantf ne 'ARRAY')
2760 0 0 if (my $f = $optf->{$wf}) { }
2768 0 0 unless my $reqhash = $f->{$reqtype}
2786 0 0 unless ($CPAN::META->has_usable('CPAN::Meta::Requirements'))
2788 0 0 if (defined $CPAN::Meta::Requirements::VERSION)
2793 0 0 if ($self->{'CALLED_FOR'})
2794 0 0 if ($self->{'CALLED_FOR'} =~ /^( CPAN::Meta::Requirements |version |parent |ExtUtils::MakeMaker |Test::Harness )$/x)
2812 0 0 if ($slot eq 'configure_requires_later') { }
0 0 elsif ($slot eq 'later') { }
2821 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'))
2838 0 0 unless $prereq_pm_0->{$reqtype}
2840 0 0 unless $dep->{$reqtype}
2871 0 0 unless ($CPAN::META->has_usable('CPAN::Meta::Requirements'))
2877 0 0 if $CPAN::DEBUG
2881 0 0 if ($need_module eq 'perl') { }
2885 0 0 if (CPAN::_sqlite_running())
2893 0 0 if ($nmo->uptodate)
2897 0 0 unless ($accepts)
2908 0 0 exists $prereq_pm->{'requires'}{$need_module} ? :
2911 0 0 if ($sufficient_file and !defined($need_version) || $need_version eq '0' || $need_version eq 'undef')
2917 0 0 unless ($nmo->inst_deprecated)
2930 0 0 if ($available_file)
2938 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) { }
2947 0 0 if ($fulfills_all_version_rqs and $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/)
2966 0 0 if ($need_distro->{'install'} and $need_distro->{'install'}->failed and $need_distro->{'install'}->text =~ /is only/)
2967 0 0 if $CPAN::DEBUG
2975 0 0 if $fulfills_all_version_rqs
2979 0 0 if ($need_module eq 'perl')
2983 0 0 if $CPAN::DEBUG
2984 0 0 if (my $sponsoring = $self->{'sponsored_mods'}{$need_module}++)
3014 0 0 unless $do
3015 0 0 if ('CPAN::Version'->vcmp($need_version, $nmo->ro->{'CPAN_VERSION'}) > 0)
3032 0 0 if ($do->{$nosayer})
3035 0 0 UNIVERSAL::can($do->{$nosayer}, 'failed') ? :
0 0 if (UNIVERSAL::can($do->{$nosayer}, 'failed') ? $do->{$nosayer}->failed : $do->{$nosayer} =~ /^NO/) { }
3038 0 0 if ($nosayer eq 'make_test' and $do->{'make_test'}{'COMMANDID'} != $CPAN::CurrentCommandId)
3045 0 0 if ($self->is_locally_optional($prereq_pm, $need_module)) { }
3060 0 0 if ($nosayer =~ /^(install|make_test)$/)
3079 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') { }
3080 0 0 unless exists $prereq_pm->{'requires'}{$need_module}
3100 0 0 if $CPAN::DEBUG
3106 0 0 if $CPAN::DEBUG
3116 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*//) { }
3119 0 0 if ('CPAN::Version'->vgt($available_version, $rq))
3125 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3139 0 0 if ('CPAN::Version'->vcmp($available_version, $rq)) { }
3147 0 0 unless ('CPAN::Version'->vgt($rq, $available_version))
3150 0 0 if $CPAN::DEBUG
3160 0 0 if $CPAN::DEBUG
3168 2 28 unless my $meta_file = $self->pick_meta_file
3171 0 28 unless $CPAN::META->has_usable('CPAN::Meta')
3172 0 28 unless my $meta = eval { do { 'CPAN::Meta'->load_file($meta_file) } }
3176 0 28 if ($meta_file eq 'META.yml' and $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3180 0 0 if $eummv < 6.2501
3191 0 0 if $CPAN::DEBUG
3192 0 0 unless $meta_file
3195 0 0 if ($@ or not $yaml)
3199 0 0 if (defined $yaml and !ref($yaml) || ref $yaml ne 'HASH')
3203 0 0 if $CPAN::DEBUG
3205 0 0 if $CPAN::DEBUG and $yaml
3207 0 0 if ($meta_file =~ /MYMETA\.yml/)
3211 0 0 if (defined $yaml->{'dynamic_config'} and not $yaml->{'dynamic_config'})
3221 0 0 unless my $meta_file = $self->pick_meta_file('^META')
3222 0 0 if (my $meta_obj = $self->read_meta) { }
3225 0 0 $cr ? :
3238 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3239 0 8 unless ($self->{'build_dir'})
3243 0 8 $^O eq 'VMS' ? :
3244 0 8 $^O eq 'VMS' ? :
3245 0 8 unless -f $makefile or -f $buildfile
3248 0 8 if $CPAN::DEBUG
3253 8 0 if ($meta_obj and not $meta_obj->dynamic_config) { }
0 0 elsif (my $yaml = $self->read_yaml) { }
3268 0 8 if ($CPAN::Config->{'recommends_policy'})
3274 0 8 if ($CPAN::Config->{'suggests_policy'})
3285 0 0 if ($CPAN::Config->{'recommends_policy'})
3288 0 0 unless ref $req eq 'HASH' and %$req
3289 0 0 if ($req)
3290 0 0 if ($yaml->{'generated_by'} and $yaml->{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/)
3293 0 0 if ($eummv < 6.2501)
3302 0 0 unless $req
3304 0 0 unless defined $v
3305 0 0 if ($v =~ /\d/) { }
0 0 elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('CPAN::Module', $v)) { }
3320 0 0 if $do_replace
3328 0 8 unless ($req or $breq)
3330 0 0 unless ($build_dir = $self->{'build_dir'})
3335 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3338 0 0 if $CPAN::DEBUG
3341 0 0 if /MakeMaker post_initialize section/
3345 0 0 unless $p
3357 0 0 if (defined $req->{$m})
3360 0 0 if ($n =~ /^q\[(.*?)\]$/)
3363 0 0 if (not $prevn or 'CPAN::Version'->vlt($prevn, $n))
3371 0 8 unless ($req or $breq)
3372 0 0 unless my $build_dir = $self->{'build_dir'}
3374 0 0 if (-f $buildfile)
3375 0 0 if $CPAN::DEBUG
3377 0 0 if (-f $build_prereqs)
3378 0 0 if $CPAN::DEBUG
3380 0 0 unless open FH, $build_prereqs
3387 0 0 if ($@) { }
3396 8 0 if ($req or $breq or $opt_req or $opt_breq)
3412 0 0 if $CPAN::DEBUG
3414 0 0 if ($self->{'badtestcnt'} > 0)
3416 0 0 if $CPAN::DEBUG
3421 0 0 if $CPAN::DEBUG
3423 0 0 if $self->{$slot}
3426 0 0 if $CPAN::DEBUG
3427 0 0 if ($self->{'make_test'})
3428 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/) { }
3433 0 0 if (UNIVERSAL::can($self->{'make_test'}, 'commandid') and $self->{'make_test'}->commandid == $CPAN::CurrentCommandId)
3443 0 0 if ($self->tested_ok_but_not_installed)
3450 0 0 if ($self->{'notest'})
3463 0 0 unless $self->{'writemakefile'} or $self->{'modulebuild'}
3464 0 0 unless ($self->{'build_dir'})
3469 0 0 if $CPAN::DEBUG
3472 0 0 unless ($build_dir = $self->{'build_dir'})
3478 0 0 if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000"))
3481 0 0 if $CPAN::DEBUG
3484 0 0 if /MakeMaker post_initialize section/
3488 0 0 unless $p
3492 0 0 if ($p2 =~ /^q\[(.+)\]/)
3498 0 0 if @exe_files
3500 0 0 if (-f $buildparams)
3501 0 0 if $CPAN::DEBUG
3504 0 0 if (my $reftype = ref $sf) { }
0 0 elsif (defined $sf) { }
3505 0 0 if ($reftype eq 'ARRAY') { }
0 0 elsif ($reftype eq 'HASH') { }
3529 0 0 if $CPAN::DEBUG
3530 0 0 if (my $goto = $self->prefs->{'goto'})
3535 0 0 unless $self->make
3537 0 0 if (defined(my $sc = $self->shortcut_test))
3541 0 0 if ($CPAN::Signal)
3546 0 0 $self->{'modulebuild'} ? :
3550 0 0 defined $ENV{'PERL5LIB'} ? :
3552 0 0 defined $ENV{'PERL5OPT'} ? :
3553 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
3556 0 0 if $CPAN::Config->{'use_prompt_default'}
3557 0 0 if $CPAN::Config->{'use_prompt_default'}
3561 0 0 unless my $builddir = $self->dir
3564 0 0 unless (CPAN::Distribution::chdir($builddir))
3569 0 0 if $CPAN::DEBUG
3572 0 0 if ($^O eq 'MacOS')
3577 0 0 if ($self->{'modulebuild'})
3580 0 0 if ('CPAN::Version'->vlt($v, 2.62))
3584 0 0 unless ($self->id eq $thm->distribution->id)
3593 0 0 unless ($self->{'force_update'})
3596 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'))
3599 0 0 if (my(@reports) = &$have_tested_fcn('dist', $self->base_id))
3601 0 0 if ($reports[-1]{'grade'} =~ /^(?:PASS|UNKNOWN)$/) { }
0 0 elsif ($reports[-1]{'grade'} =~ /^(?:FAIL|NA)$/) { }
3605 0 0 if ($self->tested_ok_but_not_installed)
3623 0 0 exists $prefs_test->{'commandline'} ? :
0 0 if (my $commandline = exists $prefs_test->{'commandline'} ? $prefs_test->{'commandline'} : '') { }
0 0 elsif ($self->{'modulebuild'}) { }
3629 0 0 unless (-e 'Build' or $^O eq 'VMS' and -e 'Build.com')
3637 0 0 $make_test_arg ? :
3643 0 0 if ($self->prefs->{'test'})
3646 0 0 if $test_env
3649 0 0 if ($expect_model and @{$expect_model->{'talk'};})
3651 0 0 if ($can_expect) { }
3658 0 0 if ($want_expect) { }
0 0 elsif ($self->_should_report('test')) { }
3659 0 0 if ($self->_should_report('test'))
3672 0 0 if ($tests_ok) { }
3673 0 0 if ($but)
3686 0 0 if ($but) { }
0 0 elsif ($self->{'force_update'}) { }
3710 0 0 $self->{'force_update'} ? :
3719 0 0 unless $self->{'sponsored_mods'}{$m} > 0
3720 0 0 unless my $m_obj = 'CPAN::Shell'->expand('Module', $m)
3726 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) { }
3729 0 0 if $CPAN::DEBUG
3739 0 0 if $CPAN::DEBUG
3743 0 0 if $m_obj->{'mandatory'}
3747 0 0 if (@prereq)
3750 0 0 $cnt == 1 ? :
3758 0 0 unless my $prefs = $self->prefs
3759 0 0 unless my $where_prefs = $prefs->{$where}
3760 0 0 if ($where_prefs->{'expect'}) { }
0 0 elsif ($where_prefs->{'eexpect'}) { }
3775 0 0 $self->{'modulebuild'} ? :
3777 0 0 unless (exists $self->{'archived'})
3782 0 0 unless (exists $self->{'build_dir'})
3786 0 0 if (exists $self->{'writemakefile'} and $self->{'writemakefile'}->failed)
3794 0 0 if exists $self->{'make_clean'} and $self->{'make_clean'} eq 'YES'
3796 0 0 if @e
3798 0 0 unless CPAN::Distribution::chdir("$self->{'build_dir'}")
3800 0 0 if $CPAN::DEBUG
3802 0 0 if ($^O eq 'MacOS')
3808 0 0 if ($self->{'modulebuild'}) { }
3809 0 0 unless (-f 'Build')
3821 0 0 if ($system_ok) { }
3858 0 0 if $CPAN::DEBUG
3859 0 0 if ($self->prefs->{'disabled'} and not $self->{'force_update'})
3905 0 0 if $CPAN::DEBUG
3906 0 0 if (exists $self->{'install'})
3909 0 0 UNIVERSAL::can($self->{'install'}, 'text') ? :
3910 0 0 if ($text =~ /^YES/) { }
0 0 elsif ($text =~ /is only/) { }
3924 0 0 if $self->{$slot}
3936 0 0 if $CPAN::DEBUG
3937 0 0 if (my $goto = $self->prefs->{'goto'})
3942 0 0 unless $self->test
3944 0 0 if (defined(my $sc = $self->shortcut_install))
3948 0 0 if ($CPAN::Signal)
3953 0 0 unless my $builddir = $self->dir
3956 0 0 unless (CPAN::Distribution::chdir($builddir))
3961 0 0 if $CPAN::DEBUG
3964 0 0 $self->{'modulebuild'} ? :
3967 0 0 if ($^O eq 'MacOS')
3973 0 0 if (my $commandline = $self->prefs->{'install'}{'commandline'}) { }
0 0 elsif ($self->{'modulebuild'}) { }
3981 0 0 exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $CPAN::Config->{'mbuild_install_build_command'} ? :
3982 0 0 $^O eq 'VMS' ? :
3996 0 0 $^O eq 'MSWin32' || $^O eq 'VMS' ? :
4003 0 0 if ($reqtype eq 'b')
4004 0 0 if ($brip eq 'no') { }
0 0 elsif ($brip =~ m[^ask/(.+)]) { }
4008 0 0 unless $default =~ /^(y|n)/i
4016 0 0 unless ($want_install =~ /^y/i)
4024 0 0 defined $ENV{'PERL5LIB'} ? :
4026 0 0 defined $ENV{'PERL5OPT'} ? :
4027 0 0 exists $ENV{'PERL_USE_UNSAFE_INC'} ? :
4029 0 0 if $CPAN::Config->{'use_prompt_default'}
4030 0 0 if $CPAN::Config->{'use_prompt_default'}
4033 0 0 unless ($pipe)
4051 0 0 if ($close_ok) { }
4055 0 0 if ($CPAN::Config->{'cleanup_after_install'} and not $self->is_dot_dist)
4058 0 0 unless CPAN::Distribution::chdir($parent)
4061 0 0 if (-e $yml)
4062 0 0 unless unlink $yml
4071 0 0 if ($makeout =~ /permission/s and $> > 0 and !$mimc || $mimc eq 'CPAN::HandleConfig'->prefs_lookup($self, 'make'))
4091 0 0 unless ($CPAN::Config->{'cleanup_after_install'})
4117 0 0 if ($CPAN::META->has_inst('Pod::Perldocs')) { }
4118 0 0 unless my($perl) = $self->perl
4123 0 0 unless (($wstatus = system(@args)) == 0)
4141 0 0 if $CPAN::DEBUG
4144 0 0 if ($CPAN::META->has_inst('File::Which')) { }
4148 0 0 unless $pid = open(README, "which $binary|")
4150 0 0 unless $pid
4154 0 0 unless close README
4159 0 0 if $CPAN::DEBUG and $out
4170 0 0 if $CPAN::DEBUG
4177 0 0 $web_browser ? :
4181 0 0 if ($web_browser_out) { }
4184 0 0 if $CPAN::DEBUG
4193 0 0 if ($saved_file)
4200 0 0 if ($html_converter_out) { }
4203 0 0 unless defined $saved_file
4207 0 0 unless $pid = open(README, "$html_converter $saved_file |")
4211 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4222 0 0 unless open $fh, ">$filename"
4227 0 0 unless close README
4230 0 0 if $CPAN::DEBUG
4239 0 0 unless open FH, $tmpin
4244 0 0 unless $fh_pager->open("|$pager")
4267 0 0 if $CPAN::DEBUG
4271 0 0 if ($CPAN::META->has_usable('File::Temp')) { }
4284 0 0 if ($CPAN::META->has_usable('LWP')) { }
4291 0 0 if ($@) { }
4297 0 0 if $var = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'}
4299 0 0 if $var = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'}
4305 0 0 if ($res->is_success) { }
4306 0 0 if $CPAN::DEBUG
4310 0 0 if $CPAN::DEBUG
4330 0 0 if ($^O eq 'MSWin32') { }
0 0 elsif ($^O eq 'VMS') { }
4333 0 0 unless my($perl) = $self->perl
4345 0 0 unless defined $phase
4351 0 0 unless $test_report
4355 0 0 if exists $self->{'should_report'}
4358 0 0 if ($self->{'had_no_makefile_pl'})
4366 0 0 unless ($CPAN::META->has_inst('CPAN::Reporter'))
4375 0 0 if ('CPAN::Version'->vlt($crv, 0.99))
4377 0 0 if ($phase eq 'test') { }
4390 0 0 if ($self->is_dot_dist)
4395 0 0 if ($self->prefs->{'patches'} and @{$self->prefs->{'patches'};} and $self->{'patched'})
4416 0 0 unless ($CPAN::META->has_inst('CPAN::DistnameInfo'))
4419 0 0 unless ($CPAN::META->has_usable('LWP'))
4422 0 0 unless ($CPAN::META->has_usable('File::Temp'))
4427 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')) { }
4451 0 0 if ($@)
4456 0 0 unless ($resp->is_success)
4461 0 0 if ($format eq 'yaml') { }
4472 0 0 unless close $fh
4474 0 0 unless unlink $tfilename
4483 0 0 if ($rversion eq $version) { }
4484 0 0 unless ($this_version_seen++)
4498 0 0 $arch eq $Config::Config{'archname'} ? :
0 0 $grade eq 'FAIL' ? :
0 0 $grade eq 'PASS' ? :
4504 0 0 unless ($this_version_seen)