| line |
true |
false |
branch |
| 33 |
6 |
0 |
if ('File::Spec'->can('rel2abs')) |
| 98 |
1 |
0 |
unless $Config_loaded++ |
| 99 |
0 |
1 |
if (exists $EXPORT{$l}) { } |
| 110 |
1 |
0 |
unless defined $Suppress_readline |
| 111 |
1 |
0 |
unless $Config_loaded++ |
| 119 |
1 |
0 |
unless ($Suppress_readline) |
| 121 |
1 |
0 |
if (not $term or $term->ReadLine eq 'Term::ReadLine::Stub') |
| 127 |
0 |
1 |
if ($term->ReadLine eq 'Term::ReadLine::Gnu') { } |
| 136 |
1 |
0 |
if (my $histfile = $$Config{'histfile'}) |
| 137 |
0 |
1 |
unless ($term->can('AddHistory')) |
| 142 |
1 |
0 |
unless open $fh, "<$histfile" |
| 152 |
1 |
0 |
if defined $_ |
| 164 |
1 |
0 |
'File::Spec'->can('tmpdir') ? : |
| 170 |
1 |
0 |
if $term |
| 171 |
1 |
0 |
$term->ReadLine ne 'Term::ReadLine::Stub' ? : |
| |
0 |
1 |
$Suppress_readline ? : |
| 175 |
1 |
0 |
unless ($$Config{'inhibit_startup_message'}) |
| 189 |
0 |
125 |
if ($Suppress_readline) { } |
| 191 |
0 |
0 |
unless defined($_ = <ARGV>) |
| 195 |
0 |
125 |
unless defined($_ = $term->readline($prompt, $commandline)) |
| 197 |
0 |
125 |
if $continuation |
| 199 |
1 |
124 |
if /^$/ |
| 200 |
0 |
124 |
if /^\s*\?/ |
| 201 |
1 |
123 |
if (/^(?:q(?:uit)?|bye|exit)$/i) { } |
| |
0 |
123 |
elsif (s/\\$//s) { } |
| |
5 |
118 |
elsif (/^!/) { } |
| |
118 |
0 |
elsif (/./) { } |
| 213 |
1 |
4 |
unless $import_done++ |
| 214 |
0 |
5 |
if $CPAN::DEBUG |
| 216 |
0 |
5 |
if $@ |
| 221 |
0 |
118 |
if ($] < 5.00322) { } |
| 225 |
0 |
118 |
if $@ |
| 226 |
0 |
118 |
unless @line |
| 229 |
0 |
118 |
if $DEBUG |
| 232 |
2 |
116 |
if $@ |
| 233 |
17 |
101 |
if ($command =~ /^(make|test|install|force|notest|clean|upgrade)$/) |
| 248 |
0 |
124 |
if ($try_detect_readline) |
| 249 |
0 |
0 |
if ($META->has_inst('Term::ReadLine::Gnu') or $META->has_inst('Term::ReadLine::Perl')) |
| 263 |
124 |
0 |
if ($term and $term->can('ornaments')) |
| 265 |
124 |
0 |
if (defined $_) { } |
| 266 |
3 |
121 |
if (not defined $last_term_ornaments or $_ != $last_term_ornaments) |
| 285 |
0 |
0 |
if (@$cwd > 1) { } |
| 300 |
0 |
0 |
if $DEBUG |
| 301 |
0 |
0 |
if ($META->has_inst($yaml_module)) { } |
| 305 |
0 |
0 |
if $DEBUG |
| 306 |
0 |
0 |
if ($@) |
| 401 |
1 |
3 |
if $seen{$dep}++ |
| 421 |
18624 |
337 |
if ($$CPAN::Config{'commandnumber_in_prompt'}) { } |
| 443 |
0 |
52 |
if (defined $set) |
| 464 |
0 |
41 |
if (defined $set) |
| 486 |
0 |
2 |
if ($autoload =~ /^w/) { } |
| 487 |
0 |
0 |
if ($CPAN::META->has_inst('CPAN::WAIT')) { } |
| 573 |
13 |
0 |
if ($All[$i]{'qmod'} eq $what) |
| 585 |
0 |
0 |
if $CPAN::DEBUG |
| 591 |
0 |
0 |
if $CPAN::DEBUG |
| 592 |
0 |
0 |
if ($All[$i]{'qmod'} eq $what) |
| 594 |
0 |
0 |
if ($jumped > 100) |
| 608 |
0 |
0 |
if $CPAN::DEBUG |
| 644 |
0 |
0 |
if (not $INC{'CPAN/MyConfig.pm'}) |
| 650 |
0 |
0 |
if ($new =~ /^y/i) { } |
| 662 |
0 |
34 |
unless $Config_loaded++ |
| 663 |
0 |
34 |
if $DEBUG |
| 677 |
0 |
1 |
if (-f $lockfile and -M _ > 0) |
| 678 |
0 |
0 |
unless my $fh = 'FileHandle'->new($lockfile) |
| 683 |
0 |
0 |
if (defined $otherpid and $otherpid) |
| 686 |
0 |
0 |
if (defined $otherhost and $otherhost) |
| 690 |
0 |
0 |
if (defined $otherhost and defined $thishost and $otherhost ne '' and $thishost ne '' and $otherhost ne $thishost) { } |
| |
0 |
0 |
elsif (defined $otherpid and $otherpid) { } |
| 699 |
0 |
0 |
if $$ == $otherpid |
| 704 |
0 |
0 |
if (kill 0, $otherpid) { } |
| |
0 |
0 |
elsif (-w $lockfile) { } |
| 715 |
0 |
0 |
unless $ans =~ /^y/i |
| 734 |
0 |
1 |
if ($@) |
| 739 |
0 |
0 |
if (-l $dotcpan) |
| 741 |
0 |
0 |
unless defined $symlinkcpan |
| 743 |
0 |
0 |
if ($@) { } |
| 751 |
0 |
0 |
unless (-d $dotcpan) |
| 756 |
0 |
0 |
if $seconderror |
| 768 |
0 |
1 |
unless ($fh = 'FileHandle'->new(">$lockfile")) |
| 769 |
0 |
0 |
if ($! =~ /Permission/) |
| 798 |
0 |
0 |
if $Signal |
| 799 |
0 |
0 |
if $Signal |
| 826 |
0 |
1 |
if $DEBUG |
| 855 |
6 |
0 |
'File::Spec'->file_name_is_absolute($^X) ? : |
| 858 |
0 |
6 |
if 'MM'->maybe_command($candidate) |
| 860 |
0 |
6 |
unless ($perl) |
| 865 |
0 |
0 |
unless defined $component and $component |
| 867 |
0 |
0 |
if ('MM'->maybe_command($abs)) |
| 882 |
0 |
636 |
unless $Config_loaded++ |
| 886 |
312 |
324 |
if $class eq 'CPAN::Module' |
| 887 |
137 |
499 |
unless exists $$META{'readonly'}{$class}{$id} |
| 903 |
37 |
4 |
if $$HAS_USABLE{$mod} |
| 905 |
0 |
4 |
unless $has_inst |
| 922 |
0 |
0 |
unless ('File::HomeDir'->VERSION >= 0.52) |
| 931 |
0 |
4 |
if ($$usable{$mod}) |
| 935 |
0 |
0 |
unless defined $ret |
| 936 |
0 |
0 |
if ($@) |
| 948 |
0 |
129 |
unless defined $mod |
| 950 |
122 |
7 |
unless $$META{'dontload_hash'} |
| |
129 |
0 |
unless $$Config{'dontload_hash'} |
| 951 |
129 |
0 |
unless $$Config{'dontload_list'} |
| 953 |
9 |
120 |
if (defined $message and $message eq 'no' or $dont{$mod}) |
| 964 |
107 |
13 |
if ($INC{$file}) { } |
| |
13 |
0 |
elsif (eval {
|
| |
0 |
0 |
elsif ($mod eq 'Net::FTP') { } |
| |
0 |
0 |
elsif ($mod eq 'Digest::SHA') { } |
| |
0 |
0 |
elsif ($mod eq 'Module::Signature') { } |
| 978 |
0 |
13 |
if ($mod eq 'CPAN::WAIT') |
| 983 |
0 |
0 |
unless $$Have_warned{'Net::FTP'}++ |
| 991 |
0 |
0 |
if ($$Have_warned{'Digest::SHA'}++) { } |
| 1003 |
0 |
0 |
if (not $$Config{'check_sigs'}) { } |
| |
0 |
0 |
elsif (not $$Have_warned{'Module::Signature'}++) { } |
| 1008 |
0 |
0 |
if (eval {
|
| 1037 |
1014 |
53 |
if exists $$META{'readwrite'}{$class}{$id} |
| 1055 |
8 |
16 |
if $subroutine eq '(eval)' |
| 1058 |
1 |
7 |
if $ineval and not $End |
| 1059 |
6 |
1 |
unless defined $$META{'LOCK'} |
| 1060 |
0 |
1 |
unless -f $$META{'LOCK'} |
| 1072 |
0 |
1 |
unless ($histfile = $$Config{'histfile'}) |
| 1077 |
1 |
0 |
if ($term) { } |
| 1078 |
0 |
1 |
unless ($term->can('GetHistory')) |
| 1086 |
0 |
1 |
if @h > $histsize |
| 1088 |
0 |
1 |
unless open $fh, ">$histfile" |
| 1109 |
1 |
8 |
unless %{$$self{'is_tested'};} |
| 1111 |
0 |
8 |
unless defined $env |
| 1113 |
8 |
0 |
if defined $env and length $env |
| 1125 |
0 |
0 |
if ($@) { } |
| 1140 |
0 |
1 |
unless -d $$self{'ID'} |
| 1148 |
0 |
0 |
if $CPAN::Signal |
| 1150 |
0 |
0 |
if $CPAN::Signal |
| 1162 |
0 |
1 |
unless defined $dir |
| 1163 |
0 |
1 |
if $CPAN::DEBUG |
| 1166 |
0 |
1 |
unless chdir $dir |
| 1167 |
0 |
1 |
unless my $dh = 'DirHandle'->new('File::Spec'->curdir) |
| 1171 |
2 |
0 |
if $_ eq '.' or $_ eq '..' |
| 1172 |
0 |
0 |
if (-f $_) { } |
| |
0 |
0 |
elsif (-d _) { } |
| 1180 |
0 |
1 |
unless chdir $cwd |
| 1187 |
0 |
0 |
if exists $$self{'SIZE'}{$dir} |
| 1188 |
0 |
0 |
if $CPAN::Signal |
| 1190 |
0 |
0 |
if (-e $dir) { } |
| 1191 |
0 |
0 |
unless (-x $dir) |
| 1192 |
0 |
0 |
unless (chmod 0755, $dir) |
| 1207 |
0 |
0 |
if $CPAN::Signal |
| 1208 |
0 |
0 |
if -l $_ |
| 1209 |
0 |
0 |
if ($^O eq 'MacOS') { } |
| 1212 |
0 |
0 |
if $cat |
| 1214 |
0 |
0 |
if (-d _) { } |
| 1215 |
0 |
0 |
unless (-x _) |
| 1216 |
0 |
0 |
unless (chmod 0755, $_) |
| 1232 |
0 |
0 |
if $CPAN::Signal |
| 1235 |
0 |
0 |
if $CPAN::DEBUG |
| 1243 |
0 |
0 |
unless -e $dir |
| 1244 |
0 |
0 |
if $CPAN::DEBUG |
| 1270 |
0 |
1 |
if $CPAN::DEBUG |
| 1277 |
0 |
1 |
if $$self{'SCAN'} eq 'never' |
| 1278 |
0 |
1 |
unless $$self{'SCAN'} eq 'atstart' |
| 1285 |
0 |
0 |
if $e eq '..' or $e eq '.' |
| 1287 |
0 |
0 |
if $CPAN::Signal |
| 1298 |
0 |
1 |
if (defined $about) { } |
| 1337 |
3 |
0 |
unless /=/ |
| 1349 |
2 |
1 |
if ($s =~ m[[\*\?/]]) { } |
| 1350 |
2 |
0 |
if ($CPAN::META->has_inst('Text::Glob')) { } |
| 1351 |
2 |
0 |
if (my($au, $pathglob) = $s =~ m[(.*?)/(.*)]) { } |
| 1353 |
0 |
2 |
if $CPAN::DEBUG |
| 1371 |
0 |
3 |
unless (m[^[A-Z0-9\-]+(/|$)]i) |
| 1382 |
2 |
1 |
if ($a =~ m[(.*?)/(.*)]) { } |
| 1385 |
0 |
2 |
unless $author = 'CPAN::Shell'->expand_by_method('CPAN::Author', ['id'], $a2) |
| 1389 |
0 |
1 |
unless $author = 'CPAN::Shell'->expand_by_method('CPAN::Author', ['id'], $a) |
| 1393 |
0 |
3 |
if ($silent) |
| 1396 |
0 |
0 |
if ($alpha eq $last_alpha) { } |
| 1405 |
1 |
0 |
if ($author->can($pragma)) |
| 1414 |
1 |
0 |
if ($author->can($meth)) |
| 1430 |
0 |
540 |
if $CPAN::DEBUG |
| 1431 |
300 |
240 |
if ($dh = 'DirHandle'->new($bdir)) |
| 1434 |
600 |
705 |
if $entry =~ /^\./ |
| 1435 |
0 |
705 |
unless $entry =~ /^\w+(\.pm)?(?!\n)\Z/ |
| 1436 |
180 |
525 |
if (-d 'File::Spec'->catdir($bdir, $entry)) { } |
| 1439 |
0 |
525 |
unless $entry =~ s/\.pm(?!\n)\Z// |
| 1451 |
0 |
3 |
if $CPAN::DEBUG |
| 1469 |
0 |
1 |
unless @args |
| 1482 |
0 |
1 |
@result == 0 ? : |
| |
0 |
1 |
@result == 1 ? : |
| 1499 |
67 |
0 |
if ($o_type eq 'conf') { } |
| |
0 |
0 |
elsif ($o_type eq 'debug') { } |
| 1500 |
1 |
66 |
if (not @o_what) { } |
| |
2 |
64 |
elsif (not 'CPAN::HandleConfig'->edit(@o_what)) { } |
| 1504 |
0 |
1 |
if (exists $INC{'CPAN/Config.pm'}) |
| 1507 |
1 |
0 |
if (exists $INC{'CPAN/MyConfig.pm'}) |
| 1527 |
0 |
0 |
if defined $o_what[0] and $o_what[0] =~ /help/i |
| 1528 |
0 |
0 |
if (@o_what) { } |
| 1531 |
0 |
0 |
if ($what =~ s/^-// and exists $CPAN::DEBUG{$what}) |
| 1535 |
0 |
0 |
if (exists $CPAN::DEBUG{$what}) { } |
| |
0 |
0 |
elsif ($what =~ /^\d/) { } |
| |
0 |
0 |
elsif (lc $what eq 'all') { } |
| 1548 |
0 |
0 |
unless lc $_ eq lc $what |
| 1552 |
0 |
0 |
unless $known |
| 1565 |
0 |
0 |
if ($CPAN::DEBUG) { } |
| 1570 |
0 |
0 |
if $v & $CPAN::DEBUG |
| 1589 |
0 |
0 |
if ($_[0] =~ /[Ss]ubroutine ([\w:]+) redefined/) |
| 1605 |
0 |
1 |
if $CPAN::DEBUG |
| 1606 |
0 |
1 |
if ($command =~ /^cpan$/i) { } |
| |
1 |
0 |
elsif ($command =~ /^index$/i) { } |
| 1608 |
0 |
0 |
if $CPAN::iCwd |
| 1618 |
0 |
0 |
if ($$CPAN::Config{'test_report'}) |
| 1623 |
0 |
0 |
unless $self->reload_this($f) |
| 1626 |
0 |
0 |
unless $redef |
| 1627 |
0 |
0 |
if ($failed) |
| 1643 |
0 |
3 |
unless $INC{$f} |
| 1646 |
0 |
3 |
if $CPAN::DEBUG |
| 1651 |
3 |
12 |
if -f $read |
| 1653 |
0 |
3 |
unless (-f $read) |
| 1656 |
0 |
3 |
unless (-f $read) |
| 1660 |
0 |
3 |
unless my $fh = 'FileHandle'->new($read) |
| 1665 |
0 |
3 |
if $CPAN::DEBUG |
| 1668 |
0 |
3 |
if ($@) |
| 1682 |
0 |
0 |
unless -e $cpanpm |
| 1701 |
0 |
0 |
if $file eq 'N/A' |
| 1702 |
0 |
0 |
if $file =~ /^Contact Author/ |
| 1704 |
0 |
0 |
if $dist->isa_perl |
| 1705 |
0 |
0 |
unless $module->xs_file |
| 1743 |
0 |
0 |
unless ($CPAN::META->has_inst($req)) |
| 1749 |
0 |
0 |
unless (-f $indexfile) |
| 1755 |
0 |
0 |
if ($arg =~ s[^/(.+)/$][$1]) |
| 1760 |
0 |
0 |
unless $tag eq 'a' |
| 1763 |
0 |
0 |
unless $href =~ s[^\.\./authors/id/./../][] |
| 1764 |
0 |
0 |
if ($arg) { } |
| 1765 |
0 |
0 |
if ($qrarg) { } |
| 1766 |
0 |
0 |
if ($href =~ /$qrarg/) |
| 1770 |
0 |
0 |
if ($href =~ /\Q$arg\E/) |
| 1789 |
0 |
0 |
if (@{$stems{$_};} > 1) { } |
| 1791 |
0 |
0 |
Sort::Versions::versioncmp($a, $b) > 0 ? : |
| 1810 |
0 |
3 |
if $CPAN::DEBUG |
| 1811 |
0 |
3 |
unless $what and $what =~ /^[aru]$/ |
| 1814 |
2 |
1 |
unless @args |
| 1827 |
0 |
19 |
unless defined $file |
| 1832 |
0 |
19 |
if $CPAN::Signal |
| 1833 |
3 |
16 |
if ($inst_file) { } |
| 1834 |
1 |
2 |
if ($what eq 'a') { } |
| |
2 |
0 |
elsif ($what eq 'r') { } |
| |
0 |
0 |
elsif ($what eq 'u') { } |
| 1839 |
0 |
2 |
if ($have eq 'undef') { } |
| |
0 |
2 |
elsif ($have == 0) { } |
| 1844 |
2 |
0 |
unless 'CPAN::Version'->vgt($latest, $have) |
| 1852 |
8 |
8 |
if ($what eq 'a') { } |
| |
8 |
0 |
elsif ($what eq 'r') { } |
| |
0 |
0 |
elsif ($what eq 'u') { } |
| 1860 |
0 |
1 |
if $CPAN::Signal |
| 1862 |
1 |
0 |
if ($what eq 'a') { } |
| |
0 |
0 |
elsif ($what eq 'r') { } |
| |
0 |
0 |
elsif ($what eq 'u') { } |
| 1866 |
0 |
0 |
if $seen{$file}++ |
| 1869 |
0 |
0 |
if $seen{$file}++ |
| 1870 |
0 |
0 |
if $file =~ /^Contact/ |
| 1872 |
1 |
0 |
unless ($headerdone++) |
| 1886 |
0 |
1 |
if ($COLOR_REGISTERED and $CPAN::META->has_inst('Term::ANSIColor') and $module->description) |
| 1905 |
2 |
1 |
unless (%need) |
| 1906 |
1 |
1 |
if ($what eq 'u') { } |
| |
1 |
0 |
elsif ($what eq 'r') { } |
| 1912 |
1 |
2 |
if ($what eq 'r') |
| 1913 |
0 |
1 |
if ($version_zeroes) |
| 1914 |
0 |
0 |
$version_zeroes > 1 ? : |
| 1918 |
0 |
1 |
if ($version_undefs) |
| 1919 |
0 |
0 |
$version_undefs > 1 ? : |
| 1951 |
834 |
175 |
unless exists $$d{$nosayer} |
| 1953 |
175 |
0 |
$$d{$nosayer}->can('failed') ? : |
| |
148 |
27 |
unless $$d{$nosayer}->can('failed') ? $$d{$nosayer}->failed : $$d{$nosayer} =~ /^NO/ |
| 1957 |
23 |
0 |
$$d{$nosayer}->can('commandid') ? : |
| |
18 |
9 |
if $only_id and $only_id != ($$d{$nosayer}->can('commandid') ? $$d{$nosayer}->commandid : $CPAN::CurrentCommandId) |
| 1967 |
163 |
9 |
unless $failed |
| 1972 |
9 |
0 |
$$d{$failed}->can('failed') ? : |
| 1989 |
17 |
3 |
$only_id ? : |
| 1990 |
7 |
13 |
if (@failed) { } |
| |
1 |
12 |
elsif (not $only_id or not $silent) { } |
| 2011 |
0 |
0 |
unless /VmSize:\s+(\d+)/ |
| 2023 |
0 |
0 |
unless substr($k, 0, 4) eq 'read' |
| 2037 |
0 |
1 |
unless $CPAN::Config_loaded++ |
| 2041 |
0 |
1 |
unless (-d $todir) |
| 2055 |
0 |
1 |
unless my($fh) = 'FileHandle'->new(">$to") |
| 2084 |
0 |
157 |
if $CPAN::DEBUG |
| 2085 |
12 |
145 |
if ($s =~ m[/]) { } |
| |
12 |
133 |
elsif ($s =~ /^Bundle::/) { } |
| 2096 |
132 |
1 |
if $CPAN::META->exists('CPAN::Module', $s) |
| 2106 |
0 |
428 |
if $CPAN::DEBUG |
| 2110 |
0 |
428 |
if $] < 5.00303 |
| 2111 |
417 |
11 |
unless $class->can($meth) |
| 2123 |
13 |
421 |
if ($arg =~ m[^/(.*)/$]) { } |
| |
0 |
421 |
elsif ($arg =~ /=/) { } |
| 2129 |
0 |
0 |
defined $regex ? : |
| |
0 |
0 |
defined $command ? : |
| |
0 |
434 |
if $CPAN::DEBUG |
| 2134 |
13 |
421 |
if (defined $regex) { } |
| |
0 |
421 |
elsif ($command) { } |
| 2138 |
0 |
110 |
unless ($obj->id) |
| 2141 |
0 |
0 |
if $CPAN::DEBUG |
| 2149 |
82 |
30 |
if ($obj->$method =~ /$regex/i) |
| 2156 |
0 |
0 |
unless $ADVANCED_QUERY |
| 2169 |
0 |
0 |
unless my $lhs = $self->$method |
| 2170 |
0 |
0 |
if ($matchcrit) { } |
| 2171 |
0 |
0 |
if $lhs =~ /$matchcrit/ |
| 2173 |
0 |
0 |
if $lhs eq $criterion |
| 2178 |
13 |
408 |
if ($class eq 'CPAN::Bundle') { } |
| |
223 |
185 |
elsif ($class eq 'CPAN::Distribution') { } |
| 2185 |
379 |
42 |
if ($CPAN::META->exists($class, $xarg)) { } |
| |
0 |
42 |
elsif ($CPAN::META->exists($class, $arg)) { } |
| 2196 |
0 |
433 |
if ($CPAN::DEBUG) |
| 2201 |
20 |
413 |
wantarray ? : |
| 2208 |
2 |
9 |
unless @args |
| 2215 |
0 |
5 |
@result == 0 ? : |
| |
6 |
5 |
@result == 1 ? : |
| 2227 |
0 |
0 |
if $installation_report_fh |
| 2228 |
0 |
0 |
if ($CPAN::META->has_inst('File::Temp')) |
| 2236 |
0 |
0 |
unless ($installation_report_fh) |
| 2237 |
0 |
0 |
unless $previously_noticed++ |
| 2257 |
0 |
863 |
if ($colorize_output and not $CPAN::META->has_inst('Term::ANSIColor')) |
| 2258 |
0 |
0 |
unless ($print_ornamented_have_warned++) |
| 2272 |
0 |
735 |
unless defined $what |
| 2275 |
0 |
735 |
if ($CPAN::Be_Silent) |
| 2280 |
0 |
735 |
if ($$CPAN::Config{'term_is_latin'}) |
| 2285 |
0 |
735 |
if ($self->colorize_output) { } |
| 2287 |
0 |
0 |
if ($@) |
| 2298 |
0 |
0 |
if ($colorstyle == 1) { } |
| 2302 |
0 |
0 |
if length $line > $longest |
| 2304 |
0 |
0 |
if $longest > 78 |
| 2305 |
0 |
0 |
chomp $swhat ? : |
| 2365 |
0 |
64 |
if ('CPAN::Shell'->colorize_output) |
| 2371 |
0 |
64 |
if ('CPAN::Shell'->colorize_output) |
| 2383 |
0 |
0 |
if length $l > $longest |
| 2385 |
0 |
0 |
if $longest > 62 |
| 2387 |
0 |
0 |
if ($l =~ /^\s*$/) |
| 2392 |
0 |
0 |
if (length $l < 66) |
| 2407 |
28 |
0 |
if -t STDOUT |
| 2423 |
1 |
3 |
unless $meth = shift @some |
| 2428 |
0 |
28 |
if $CPAN::DEBUG |
| 2448 |
0 |
28 |
if (ref $s) { } |
| |
0 |
28 |
elsif ($s =~ m[^/]) { } |
| |
3 |
25 |
elsif ($meth eq 'ls') { } |
| 2449 |
0 |
0 |
if $CPAN::DEBUG |
| 2460 |
0 |
25 |
if $CPAN::DEBUG |
| 2463 |
24 |
1 |
if (ref $obj) { } |
| |
0 |
1 |
elsif ($CPAN::META->exists('CPAN::Author', uc $s)) { } |
| 2469 |
0 |
0 |
if ($meth =~ /^(dump|ls)$/) { } |
| 2499 |
0 |
24 |
if (ref $s) { } |
| 2505 |
2 |
0 |
if ($pragma and $] < 5.00303 || $obj->can($pragma)) |
| 2514 |
6 |
18 |
if ($] >= 5.00303 and $obj->can('called_for')) |
| 2518 |
0 |
24 |
if $CPAN::DEBUG |
| 2521 |
10 |
13 |
if ($obj->$meth) { } |
| 2570 |
0 |
2 |
if $SETUPDONE |
| 2571 |
2 |
0 |
if ($CPAN::META->has_usable('LWP::UserAgent')) { } |
| 2582 |
0 |
2 |
if ($USER and $PASSWD) |
| 2585 |
1 |
1 |
if ($proxy) { } |
| 2596 |
1 |
0 |
if (defined $$CPAN::Config{'proxy_user'} and defined $$CPAN::Config{'proxy_pass'}) |
| 2615 |
1 |
0 |
if (defined $$CPAN::Config{'username'} and defined $$CPAN::Config{'password'}) |
| 2639 |
0 |
0 |
if ($CPAN::META->has_inst('Term::ReadKey')) { } |
| 2649 |
0 |
0 |
if ($CPAN::META->has_inst('Term::ReadKey')) |
| 2689 |
0 |
0 |
if ($result->code == 407) |
| 2703 |
0 |
0 |
if $CPAN::DEBUG |
| 2708 |
0 |
0 |
unless ($ftp) |
| 2712 |
0 |
0 |
unless defined $ftp |
| 2713 |
0 |
0 |
if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG |
| 2715 |
0 |
0 |
unless ($ftp->login('anonymous', $Config::Config{'cf_email'})) |
| 2720 |
0 |
0 |
unless ($ftp->cwd($dir)) |
| 2726 |
0 |
0 |
if $CPAN::DEBUG |
| 2727 |
0 |
0 |
unless ($ftp->get($file, $target)) |
| 2768 |
0 |
34 |
unless defined $aslocal |
| 2770 |
0 |
34 |
if $CPAN::DEBUG |
| 2773 |
0 |
34 |
if ($^O eq 'MacOS') |
| 2777 |
0 |
0 |
if (length $name > 31) |
| 2797 |
0 |
34 |
if (-f $aslocal and -r _ and not $force & 1) |
| 2799 |
0 |
0 |
if ($size = -s $aslocal) { } |
| 2800 |
0 |
0 |
if $CPAN::DEBUG |
| 2804 |
0 |
0 |
unless unlink $aslocal |
| 2810 |
1 |
33 |
if (-f $aslocal) |
| 2817 |
0 |
34 |
unless -w $aslocal_dir |
| 2823 |
34 |
0 |
if ($CPAN::META->has_usable('LWP::UserAgent')) |
| 2824 |
2 |
32 |
unless ($Ua) |
| 2827 |
0 |
2 |
if ($@) { } |
| 2828 |
0 |
0 |
if $CPAN::DEBUG |
| 2832 |
0 |
2 |
if $var = $$CPAN::Config{'ftp_proxy'} || $ENV{'ftp_proxy'} |
| 2834 |
0 |
2 |
if $var = $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
| 2850 |
0 |
2 |
if $var = $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} |
| 2856 |
0 |
102 |
if $$CPAN::Config{$prx} |
| 2863 |
0 |
34 |
unless (ref $$CPAN::Config{'urllist'} eq 'ARRAY') |
| 2868 |
9 |
25 |
if ($force & 2) { } |
| 2871 |
0 |
0 |
unless (substr($$CPAN::Config{'urllist'}[$b], 0, 4) eq 'file') <=> (substr($$CPAN::Config{'urllist'}[$a], 0, 4) eq 'file') |
| 2886 |
0 |
34 |
if $CPAN::DEBUG |
| 2887 |
32 |
2 |
if ($Themethod) { } |
| 2892 |
0 |
34 |
if $^O eq 'MacOS' |
| 2894 |
31 |
3 |
exists $$CPAN::Config{'ftp_passive'} ? : |
| 2900 |
34 |
0 |
$level eq 'easy' ? : |
| 2904 |
0 |
34 |
if ($u->can('text')) { } |
| 2905 |
0 |
0 |
unless substr($$u{'TEXT'}, -1) eq '/' |
| 2907 |
34 |
0 |
unless substr($u, -1) eq '/' |
| 2912 |
6 |
0 |
unless grep {$_ eq $u;} @urllist |
| 2914 |
0 |
34 |
if $CPAN::DEBUG |
| 2916 |
34 |
0 |
if ($ret) { } |
| 2921 |
0 |
34 |
if $CPAN::DEBUG |
| 2925 |
0 |
0 |
if $CPAN::Signal |
| 2928 |
0 |
0 |
unless ($CPAN::Signal) |
| 2931 |
0 |
0 |
if (@{$$CPAN::Config{'urllist'};}) { } |
| 2945 |
0 |
0 |
if ($restore) |
| 2960 |
0 |
34 |
if $CPAN::DEBUG |
| 2961 |
34 |
0 |
if ($url =~ /^file:/) |
| 2963 |
34 |
0 |
if ($CPAN::META->has_inst('URI::URL')) { } |
| 2976 |
0 |
0 |
if not -f $l and $l =~ m[^/\w:] |
| 2979 |
0 |
34 |
if $CPAN::DEBUG |
| 2980 |
25 |
9 |
if (-f $l and -r _) |
| 2984 |
9 |
0 |
if ($l =~ /(.+)\.gz$/) |
| 2986 |
9 |
0 |
if (-f $ungz and -r _) |
| 2992 |
0 |
0 |
if (-f "$l.gz") |
| 2993 |
0 |
0 |
if $CPAN::DEBUG |
| 2995 |
0 |
0 |
if (-f $aslocal) |
| 3001 |
0 |
0 |
if ($CPAN::META->has_usable('LWP')) { } |
| |
0 |
0 |
elsif ($ro_url->can('text') and $$ro_url{'FROM'} eq 'USER') { } |
| 3005 |
0 |
0 |
unless ($Ua) |
| 3008 |
0 |
0 |
if ($@) |
| 3013 |
0 |
0 |
if ($res->is_success) { } |
| |
0 |
0 |
elsif (not $url =~ /\.gz(?!\n)\Z/) { } |
| 3026 |
0 |
0 |
if ($res->is_success and 'CPAN::Tarzip'->new("$aslocal.gz")->gunzip($aslocal)) |
| 3048 |
0 |
0 |
if $ret |
| 3052 |
0 |
0 |
if $CPAN::Signal |
| 3053 |
0 |
0 |
if ($url =~ m[^ftp://(.*?)/(.*)/(.*)]) |
| 3056 |
0 |
0 |
if ($CPAN::META->has_usable('Net::FTP')) |
| 3061 |
0 |
0 |
if $CPAN::DEBUG |
| 3063 |
0 |
0 |
if ('CPAN::FTP'->ftp_get($host, $dir, $getfile, $aslocal)) |
| 3067 |
0 |
0 |
if (not $aslocal =~ /\.gz(?!\n)\Z/) |
| 3072 |
0 |
0 |
if ('CPAN::FTP'->ftp_get($host, $dir, "$getfile.gz", $gz) and 'CPAN::Tarzip'->new($gz)->gunzip($aslocal)) |
| 3085 |
0 |
0 |
if $CPAN::Signal |
| 3109 |
0 |
0 |
if ($url =~ m[^([^:]+)://(.*?)/(.*)/(.*)]) { } |
| 3115 |
0 |
0 |
if $proto eq 'file' |
| 3118 |
0 |
0 |
if $CPAN::DEBUG |
| 3124 |
0 |
0 |
unless defined $funkyftp |
| 3125 |
0 |
0 |
if $funkyftp =~ /^\s*$/ |
| 3134 |
0 |
0 |
if ($f eq 'lynx') { } |
| |
0 |
0 |
elsif ($f eq 'ncftp') { } |
| |
0 |
0 |
elsif ($f eq 'wget') { } |
| |
0 |
0 |
elsif ($f eq 'curl') { } |
| 3145 |
0 |
0 |
if ($f eq 'ncftpget') |
| 3156 |
0 |
0 |
if $CPAN::DEBUG |
| 3158 |
0 |
0 |
if ($f eq 'lynx') |
| 3160 |
0 |
0 |
if (-s $asl_ungz) { } |
| 3161 |
0 |
0 |
unless open FH, $asl_ungz |
| 3162 |
0 |
0 |
if ($content =~ /^<.*<title>[45]/is) |
| 3177 |
0 |
0 |
if ($wstatus == 0) { } |
| |
0 |
0 |
elsif (not $url =~ /\.gz(?!\n)\Z/) { } |
| 3178 |
0 |
0 |
if (-s $aslocal) { } |
| |
0 |
0 |
elsif ($asl_ungz ne $aslocal) { } |
| 3182 |
0 |
0 |
if ('CPAN::Tarzip'->new($asl_ungz)->gtest) { } |
| 3192 |
0 |
0 |
if -f $asl_ungz and -s _ == 0 |
| 3202 |
0 |
0 |
if $CPAN::DEBUG |
| 3204 |
0 |
0 |
if (($wstatus = system($system)) == 0 and -s $asl_gz) { } |
| 3210 |
0 |
0 |
if ($ct->gtest) { } |
| 3219 |
0 |
0 |
if -f $asl_gz |
| 3223 |
0 |
0 |
-f $aslocal ? : |
| 3231 |
0 |
0 |
if $CPAN::Signal |
| 3244 |
0 |
0 |
unless ($ftpbin and length $ftpbin and 'MM'->maybe_command($ftpbin)) |
| 3264 |
0 |
0 |
if $CPAN::DEBUG |
| 3265 |
0 |
0 |
unless ($url =~ m[^ftp://(.*?)/(.*)/(.*)]) |
| 3275 |
0 |
0 |
$CPAN::DEBUG{'FTP'} & $CPAN::DEBUG ? : |
| 3287 |
0 |
0 |
if (not $netrcfile) { } |
| |
0 |
0 |
elsif ($netrc->hasdefault or $netrc->contains($host)) { } |
| 3288 |
0 |
0 |
if $CPAN::DEBUG |
| 3290 |
0 |
0 |
if $CPAN::DEBUG |
| 3293 |
0 |
0 |
if ($netrc->protected) { } |
| 3296 |
0 |
0 |
if ($netrc->contains($host)) { } |
| 3316 |
0 |
0 |
if ($mtime > $timestamp) { } |
| 3323 |
0 |
0 |
if $CPAN::Signal |
| 3354 |
0 |
0 |
if ($mtime > $timestamp) { } |
| 3361 |
0 |
0 |
if $CPAN::Signal |
| 3371 |
0 |
0 |
unless $fh->open("|$command") |
| 3376 |
0 |
0 |
if $wstatus |
| 3393 |
0 |
0 |
if ($blocks) { } |
| 3400 |
0 |
0 |
if (-f _) { } |
| |
0 |
0 |
elsif (-d _) { } |
| |
0 |
0 |
elsif (-c _) { } |
| |
0 |
0 |
elsif (-b _) { } |
| |
0 |
0 |
elsif (-p _) { } |
| |
0 |
0 |
elsif (-S _) { } |
| 3416 |
0 |
0 |
if -u _ |
| 3417 |
0 |
0 |
if -g _ |
| 3418 |
0 |
0 |
if -k _ |
| 3427 |
0 |
0 |
if (-M _ > 182.625) { } |
| 3465 |
0 |
0 |
unless $fh = 'FileHandle'->new |
| 3467 |
0 |
0 |
if ($fh->open($file)) { } |
| 3474 |
0 |
0 |
if ($t eq 'default') |
| 3478 |
0 |
0 |
if $t eq 'macdef' |
| 3479 |
0 |
0 |
if ($t eq 'machine') |
| 3503 |
0 |
0 |
if $_ eq $mach |
| 3516 |
0 |
0 |
unless @perlret |
| 3519 |
0 |
0 |
unless length $perlret[0] and length $perlret[0] >= $i |
| 3523 |
0 |
0 |
if (@tries == @perlret) { } |
| 3538 |
0 |
0 |
if $CPAN::DEBUG |
| 3540 |
0 |
0 |
if ($line =~ s/^(force\s*)//) |
| 3544 |
0 |
0 |
if ($pos == 0) { } |
| |
0 |
0 |
elsif (not $line =~ /^[!abcdghimorutl]/) { } |
| |
0 |
0 |
elsif ($line =~ /^(a|ls)\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^b\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^d\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^( |
| |
0 |
0 |
elsif ($line =~ /^i\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^reload\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^o\s/) { } |
| |
0 |
0 |
elsif ($line =~ /^\S+\s/) { } |
| 3558 |
0 |
0 |
if ($word =~ /^Bundle::/) |
| 3603 |
0 |
0 |
if $CPAN::DEBUG |
| 3605 |
0 |
0 |
if @words == 1 |
| 3606 |
0 |
0 |
if @words == 2 and $word |
| 3614 |
0 |
0 |
if $CPAN::DEBUG |
| 3616 |
0 |
0 |
if @words == 1 |
| 3617 |
0 |
0 |
if @words == 2 and length $word |
| 3618 |
0 |
0 |
if ($words[1] eq 'index') { } |
| |
0 |
0 |
elsif ($words[1] eq 'conf') { } |
| |
0 |
0 |
elsif ($words[1] eq 'debug') { } |
| 3647 |
0 |
1790 |
unless $_ and $_ > 0.001 |
| 3654 |
2 |
1788 |
unless ($$CPAN::META{'PROTOCOL'}) |
| 3658 |
2 |
1788 |
if ($$CPAN::META{'PROTOCOL'} < PROTOCOL()) |
| 3662 |
1787 |
3 |
if $LAST_TIME + $$CPAN::Config{'index_expire'} * 86400 > $time and not $force |
| 3677 |
0 |
3 |
$needshort ? : |
| 3687 |
0 |
3 |
if $CPAN::Signal |
| 3688 |
0 |
3 |
$needshort ? : |
| 3698 |
0 |
3 |
if $CPAN::Signal |
| 3699 |
0 |
3 |
$needshort ? : |
| 3710 |
0 |
3 |
if $CPAN::DEBUG |
| 3725 |
0 |
9 |
if (-f $abs_wanted and -M $abs_wanted < $$CPAN::Config{'index_expire'} and not $force & 1) { } |
| 3730 |
0 |
0 |
$$CPAN::Config{'index_expire'} == 1 ? : |
| 3744 |
0 |
3 |
unless defined $index_target |
| 3754 |
0 |
6 |
unless $userid and $fullname and $email |
| 3759 |
0 |
6 |
if $CPAN::Signal |
| 3765 |
0 |
16 |
unless defined $dist |
| 3774 |
0 |
3 |
unless defined $index_target |
| 3782 |
3 |
48 |
if /^(\n+)/ |
| 3789 |
3 |
24 |
if $shift =~ /^\s*$/ |
| 3790 |
3 |
21 |
if $shift =~ /^Line-Count:\s+(\d+)/ |
| 3791 |
3 |
21 |
if $shift =~ /^Last-Updated:\s+(.+)/ |
| 3793 |
0 |
3 |
if (not defined $line_count) { } |
| |
0 |
3 |
elsif ($line_count != scalar @lines) { } |
| 3811 |
0 |
3 |
if (not defined $last_updated) { } |
| 3828 |
3 |
0 |
if ($CPAN::META->has_inst('HTTP::Date')) { } |
| 3836 |
0 |
0 |
$d[1] >= 0 ? : |
| 3839 |
3 |
0 |
if ($age > 30) { } |
| |
0 |
0 |
elsif ($age < -1) { } |
| 3868 |
0 |
3 |
if $CPAN::DEBUG |
| 3878 |
0 |
24 |
if ($mod eq 'CPAN' and not 'CPAN::Queue'->exists('Bundle::CPAN') || 'CPAN::Queue'->exists('CPAN')) { } |
| |
3 |
21 |
elsif ($mod =~ /^Bundle::(.*)/) { } |
| 3885 |
0 |
0 |
if ($version > $CPAN::VERSION) |
| 3899 |
0 |
0 |
if $CPAN::Signal |
| 3904 |
3 |
21 |
if ($bundle) { } |
| 3924 |
16 |
8 |
if ($id->cpan_file ne $dist or $id->cpan_version ne $version) |
| 3937 |
10 |
14 |
if ($CPAN::META->exists('CPAN::Distribution', $dist)) { } |
| 3953 |
0 |
24 |
if ($secondtime) |
| 3955 |
0 |
0 |
if $CPAN::DEBUG |
| 3959 |
0 |
24 |
if $CPAN::Signal |
| 3962 |
0 |
3 |
if ($secondtime) |
| 3965 |
0 |
0 |
if exists $exists{$$o{'ID'}} |
| 3967 |
0 |
0 |
if $CPAN::DEBUG |
| 3977 |
0 |
3 |
unless defined $index_target |
| 3986 |
27 |
213 |
if /^(\n+)/ |
| 3991 |
0 |
3 |
if ($shift =~ /^Date:\s+(.*)/) |
| 3992 |
0 |
0 |
if $DATE_OF_03 eq $1 |
| 3995 |
3 |
0 |
if $shift =~ /^\s*$/ |
| 4003 |
0 |
3 |
if $@ |
| 4004 |
0 |
3 |
if $CPAN::Signal |
| 4009 |
0 |
9 |
if $CPAN::Signal |
| 4016 |
0 |
3 |
unless $$CPAN::Config{'cache_metadata'} |
| 4017 |
0 |
3 |
unless $CPAN::META->has_usable('Storable') |
| 4029 |
0 |
3 |
if $@ |
| 4035 |
0 |
2 |
unless $$CPAN::Config{'cache_metadata'} |
| 4036 |
0 |
2 |
unless $CPAN::META->has_usable('Storable') |
| 4038 |
2 |
0 |
unless -r $metadata_file and -f $metadata_file |
| 4042 |
0 |
0 |
if $@ |
| 4043 |
0 |
0 |
if (not $cache or ref $cache ne 'HASH') |
| 4047 |
0 |
0 |
if (exists $$cache{'PROTOCOL'}) { } |
| 4048 |
0 |
0 |
if (PROTOCOL() > $$cache{'PROTOCOL'}) |
| 4064 |
0 |
0 |
unless $class =~ /^CPAN::/ |
| 4073 |
0 |
0 |
unless ($clcnt) |
| 4077 |
0 |
0 |
if ($idcnt < 1000) |
| 4087 |
0 |
0 |
if defined $DATE_OF_02 |
| 4097 |
804 |
247 |
if exists $$self{'RO'} |
| 4103 |
35 |
8 |
unless my $ro = $self->ro |
| 4126 |
0 |
35 |
unless defined $todir and length $todir |
| 4128 |
35 |
0 |
if (chdir $todir) { } |
| 4129 |
0 |
35 |
if $CPAN::DEBUG |
| 4132 |
0 |
0 |
if (-e $todir) { } |
| 4133 |
0 |
0 |
unless (-x $todir) |
| 4134 |
0 |
0 |
unless (chmod 0755, $todir) |
| 4147 |
0 |
0 |
if (chdir $todir) { } |
| 4148 |
0 |
0 |
if $CPAN::DEBUG |
| 4169 |
0 |
45 |
unless ($self->id) |
| 4199 |
0 |
4 |
unless ($ro = $self->ro) |
| 4205 |
2 |
6 |
if ($_ eq 'CPAN_USERID') { } |
| |
2 |
4 |
elsif ($_ eq 'FULLNAME') { } |
| 4209 |
2 |
0 |
if ($email = $CPAN::META->instance('CPAN::Author', $self->cpan_userid)->email) { } |
| 4221 |
2 |
4 |
unless defined $$ro{$_} |
| 4225 |
8 |
12 |
if /^(ID|RO)$/ |
| 4226 |
0 |
12 |
if (ref $$self{$_} eq 'ARRAY') { } |
| |
2 |
10 |
elsif (ref $$self{$_} eq 'HASH') { } |
| 4250 |
0 |
9 |
unless ($CPAN::META->has_inst('Data::Dumper')) |
| 4277 |
0 |
34 |
unless $id =~ /^[A-Z]/ |
| 4318 |
0 |
3 |
unless (grep {$$_[2] eq $csf[1];} @dl) |
| 4319 |
0 |
0 |
unless $silent |
| 4323 |
0 |
3 |
unless (grep {$$_[2] eq $csf[2];} @dl) |
| 4324 |
0 |
0 |
unless $silent |
| 4328 |
2 |
1 |
if ($glob) |
| 4329 |
2 |
0 |
if ($CPAN::META->has_inst('Text::Glob')) { } |
| 4360 |
0 |
12 |
if (open $fh, $lc_want) |
| 4362 |
0 |
0 |
unless $line =~ /PGP/ |
| 4368 |
0 |
12 |
if (my(@stat) = stat $lc_want) |
| 4372 |
9 |
3 |
if ($may_ftp) { } |
| 4378 |
0 |
9 |
unless ($lc_file) |
| 4383 |
0 |
0 |
if ($lc_file) { } |
| 4401 |
9 |
3 |
if (open $fh, $lc_file) { } |
| |
0 |
3 |
elsif ($may_ftp) { } |
| 4408 |
0 |
9 |
if ($@) |
| 4410 |
0 |
0 |
if $@ |
| 4420 |
171 |
198 |
if (exists $$cksum{$f}{'isdir'}) { } |
| 4421 |
0 |
171 |
if ($recursive) { } |
| 4448 |
1 |
19 |
unless my $ro = $self->ro |
| 4462 |
0 |
235 |
unless defined $s |
| 4463 |
48 |
187 |
if ($s =~ tr[/][] == 1 or not $s =~ m[[A-Z]/[A-Z-]{2}/[A-Z-]{2,}/]) |
| 4468 |
40 |
8 |
if $s =~ m[^N/A|^Contact Author] |
| 4469 |
0 |
8 |
unless $s =~ s[^(.)(.)([^/]*/)(.+)$][$1/$1$2/$1$2$3$4] |
| 4471 |
0 |
8 |
if $CPAN::DEBUG |
| 4500 |
0 |
0 |
if $CPAN::DEBUG |
| 4501 |
0 |
0 |
unless ($local_file = 'CPAN::FTP'->localize("authors/id/$norm", $local_wanted)) |
| 4506 |
0 |
0 |
if ($CPAN::META->has_inst('YAML')) { } |
| 4518 |
2 |
18 |
unless $id =~ m[^./../] |
| 4531 |
0 |
107 |
if exists $$self{'incommandcolor'} and $$self{'incommandcolor'} == $color |
| 4533 |
0 |
107 |
if ($depth >= 100) |
| 4538 |
30 |
77 |
if (defined $prereq_pm) |
| 4541 |
0 |
30 |
unless ($premo = 'CPAN::Shell'->expand('Module', $pre)) |
| 4549 |
53 |
54 |
if ($color == 0) |
| 4567 |
1 |
1 |
if exists $$self{'CONTAINSMODS'} |
| 4570 |
0 |
9 |
unless my $mod_file = $mod->cpan_file |
| 4571 |
0 |
9 |
unless my $mod_id = $$mod{'ID'} |
| 4574 |
1 |
8 |
if $mod_file eq $dist_id |
| 4582 |
0 |
4 |
if exists $$self{'UPLOAD_DATE'} |
| 4587 |
1 |
3 |
unless $author |
| 4589 |
3 |
0 |
unless @dl |
| 4592 |
0 |
0 |
unless $$dirent[1] |
| 4602 |
0 |
0 |
unless ($obj->uptodate) |
| 4604 |
0 |
0 |
if $CPAN::DEBUG |
| 4614 |
44 |
0 |
if defined $id |
| 4623 |
20 |
8 |
if exists $$self{'build_dir'} |
| 4625 |
20 |
8 |
if @e |
| 4642 |
0 |
8 |
if $CPAN::DEBUG |
| 4643 |
0 |
8 |
unless ($local_file = 'CPAN::FTP'->localize("authors/id/$$self{'ID'}", $local_wanted)) |
| 4647 |
0 |
0 |
if ($CPAN::Index::DATE_OF_02) |
| 4653 |
0 |
8 |
if $CPAN::DEBUG |
| 4655 |
0 |
8 |
if $CPAN::Signal |
| 4660 |
8 |
0 |
if ($CPAN::META->has_inst('Digest::SHA')) { } |
| 4666 |
0 |
7 |
if $CPAN::Signal |
| 4674 |
0 |
7 |
if $CPAN::DEBUG |
| 4676 |
0 |
7 |
unless (mkdir 'tmp', 493) |
| 4687 |
0 |
7 |
if ($CPAN::Signal) |
| 4696 |
0 |
7 |
if $CPAN::DEBUG |
| 4698 |
6 |
1 |
if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) { } |
| |
1 |
0 |
elsif ($local_file =~ /\.zip(?!\n)\Z/i) { } |
| 4699 |
0 |
6 |
unless $ct->gtest |
| 4704 |
0 |
0 |
unless $ct->gtest |
| 4714 |
0 |
7 |
unless my $dh = 'DirHandle'->new('File::Spec'->curdir) |
| 4719 |
7 |
0 |
if (@readdir == 1 and -d $readdir[0]) { } |
| 4722 |
0 |
7 |
if $CPAN::DEBUG |
| 4724 |
1 |
6 |
if -d $packagedir |
| 4727 |
0 |
7 |
unless (File::Copy::move($distdir, $packagedir)) |
| 4739 |
0 |
7 |
if $CPAN::DEBUG |
| 4747 |
0 |
0 |
unless ($userid) |
| 4755 |
0 |
0 |
if $CPAN::DEBUG |
| 4760 |
0 |
0 |
unless File::Copy::move($f, $to) |
| 4763 |
0 |
7 |
if ($CPAN::Signal) |
| 4773 |
0 |
7 |
if ($$CPAN::Config{'check_sigs'}) |
| 4774 |
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature')) { } |
| 4775 |
0 |
0 |
if (-f 'SIGNATURE') { } |
| 4776 |
0 |
0 |
if $CPAN::DEBUG |
| 4778 |
0 |
0 |
if ($rv != Module::Signature::SIGNATURE_OK() and $rv != Module::Signature::SIGNATURE_MISSING()) { } |
| 4805 |
0 |
0 |
if $CPAN::Frontend->can('mysleep') |
| 4808 |
0 |
0 |
if $CPAN::DEBUG |
| 4814 |
0 |
0 |
if $CPAN::DEBUG |
| 4818 |
0 |
7 |
if $CPAN::Signal |
| 4823 |
2 |
5 |
unless ($mpl_exists) |
| 4828 |
0 |
2 |
unless my $mpldh = 'DirHandle'->new($packagedir) |
| 4834 |
4 |
3 |
if (-f 'File::Spec'->catfile($packagedir, 'Build.PL')) |
| 4835 |
2 |
2 |
if ($mpl_exists) { } |
| 4836 |
2 |
0 |
if ($CPAN::META->has_inst('Module::Build')) |
| 4843 |
3 |
4 |
if (lc $prefer_installer eq 'mb') { } |
| |
0 |
4 |
elsif (not $mpl_exists) { } |
| 4846 |
0 |
0 |
if $CPAN::DEBUG |
| 4851 |
0 |
0 |
if (-f $configure) { } |
| |
0 |
0 |
elsif (-f 'File::Spec'->catfile($packagedir, 'Makefile')) { } |
| 4863 |
0 |
0 |
if ($cf =~ m[/]) |
| 4868 |
0 |
0 |
unless length $cf |
| 4878 |
0 |
0 |
if ($$self{'archived'} eq 'maybe_pl') |
| 4881 |
0 |
0 |
unless $fh->open($script_file) |
| 4888 |
0 |
0 |
if ($state eq 'poddir' and /^=head\d\s+(\S+)/) { } |
| |
0 |
0 |
elsif ($state =~ /^(name|prereq)$/) { } |
| |
0 |
0 |
elsif (/^=cut\b/) { } |
| 4889 |
0 |
0 |
if ($1 eq 'NAME') { } |
| |
0 |
0 |
elsif ($1 eq 'PREREQUISITES') { } |
| 4895 |
0 |
0 |
if (/^=/) { } |
| |
0 |
0 |
elsif (/^\s*$/) { } |
| |
0 |
0 |
elsif ($state eq 'name') { } |
| |
0 |
0 |
elsif ($state eq 'prereq') { } |
| 4900 |
0 |
0 |
if ($name eq '') |
| 4922 |
0 |
0 |
if (/[\s'"]/) { } |
| 4937 |
0 |
0 |
unless rename $script_file, $to_file |
| 4942 |
0 |
0 |
unless $fh->open(">$mpl") |
| 4965 |
6 |
0 |
if ($ct->untar) { } |
| 4976 |
1 |
0 |
if ($ct->unzip) { } |
| 4987 |
0 |
0 |
if $CPAN::DEBUG |
| 4989 |
0 |
0 |
if ($local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/) { } |
| 4996 |
0 |
0 |
if ($to =~ s/\.(gz|Z)(?!\n)\Z//) { } |
| 4997 |
0 |
0 |
if ('CPAN::Tarzip'->new($local_file)->gunzip($to)) { } |
| 5023 |
0 |
0 |
if ($^O eq 'MacOS') |
| 5028 |
0 |
0 |
if ($$CPAN::Config{'shell'}) { } |
| 5041 |
0 |
0 |
unless ($dir = $self->dir) |
| 5044 |
0 |
0 |
unless ($dir ||= $self->dir) |
| 5057 |
0 |
0 |
unless (system($shell) == 0) |
| 5083 |
0 |
0 |
if ($cvs_site_perl) |
| 5093 |
0 |
0 |
unless chdir $dir |
| 5098 |
0 |
0 |
unless system(@cmd) == 0 |
| 5101 |
0 |
0 |
unless chdir $pwd |
| 5109 |
0 |
0 |
if $CPAN::DEBUG |
| 5118 |
0 |
0 |
if $CPAN::DEBUG |
| 5119 |
0 |
0 |
unless $local_file = 'CPAN::FTP'->localize("authors/id/$sans.readme", $local_wanted) |
| 5123 |
0 |
0 |
if ($^O eq 'MacOS') |
| 5131 |
0 |
0 |
unless $fh_pager->open("|$pager") |
| 5134 |
0 |
0 |
unless $fh_readme->open($local_file) |
| 5151 |
0 |
8 |
if $$self{'CHECKSUM_STATUS'} eq 'OK' |
| 5152 |
0 |
8 |
if @e |
| 5162 |
1 |
7 |
if (my $size = -s $lc_want) |
| 5163 |
0 |
1 |
if $CPAN::DEBUG |
| 5164 |
0 |
1 |
if ($self->CHECKSUM_check_file($lc_want, 1)) |
| 5170 |
0 |
8 |
unless ($lc_file) |
| 5175 |
0 |
0 |
if ($lc_file) { } |
| 5182 |
7 |
0 |
if ($self->CHECKSUM_check_file($lc_file)) |
| 5192 |
0 |
0 |
if ($rv == Module::Signature::SIGNATURE_OK()) { } |
| 5224 |
0 |
9 |
if $CPAN::DEBUG |
| 5225 |
0 |
9 |
if ($$CPAN::Config{'check_sigs'}) |
| 5226 |
0 |
0 |
if ($CPAN::META->has_inst('Module::Signature') and 'Module::Signature'->VERSION >= 0.26) { } |
| 5237 |
9 |
0 |
if (open $fh, $chk_file) { } |
| 5244 |
0 |
9 |
if ($@) |
| 5246 |
0 |
0 |
if $@ |
| 5252 |
0 |
9 |
if (not ref $cksum or ref $cksum ne 'HASH') { } |
| |
7 |
2 |
elsif (exists $$cksum{$basename}{'sha256'}) { } |
| 5260 |
0 |
0 |
unless $answer =~ /^\s*y/i |
| 5264 |
0 |
7 |
if $CPAN::DEBUG |
| 5273 |
0 |
7 |
unless ($eq) |
| 5284 |
7 |
0 |
if ($eq) { } |
| 5313 |
1 |
1 |
if $sloppy |
| 5314 |
1 |
0 |
unless ($$self{'CHECKSUM_STATUS'}) |
| 5323 |
1 |
0 |
unless $answer =~ /^\s*y/i |
| 5333 |
7 |
0 |
if ($CPAN::META->has_inst('Digest::SHA')) |
| 5368 |
0 |
10 |
if $CPAN::DEBUG |
| 5370 |
0 |
1 |
if ($method and $method =~ /make|test|install/) |
| 5397 |
0 |
20 |
if ($file =~ / ^ perl |
| |
0 |
20 |
elsif ($self->cpan_comment and $self->cpan_comment =~ /isa_perl\(.+?\)/) { } |
| 5421 |
0 |
7 |
if (not $self) |
| 5432 |
7 |
13 |
$$self{'modulebuild'} ? : |
| 5435 |
0 |
20 |
if ($self->isa_perl) |
| 5436 |
0 |
0 |
if ($self->called_for ne $self->id and not $$self{'force_update'}) |
| 5463 |
0 |
19 |
if ($CPAN::Signal) |
| 5469 |
0 |
19 |
if not $$self{'archived'} or $$self{'archived'} eq 'NO' |
| 5472 |
0 |
19 |
if not $$self{'unwrapped'} or $$self{'unwrapped'} eq 'NO' |
| 5475 |
19 |
0 |
unless ($$self{'force_update'}) |
| 5476 |
0 |
0 |
$$self{'signature_verify'}->can('failed') ? : |
| |
0 |
19 |
if exists $$self{'signature_verify'} and $$self{'signature_verify'}->can('failed') ? $$self{'signature_verify'}->failed : $$self{'signature_verify'} =~ /^NO/ |
| 5484 |
8 |
0 |
$$self{'writemakefile'}->can('failed') ? : |
| |
2 |
17 |
if (exists $$self{'writemakefile'} and $$self{'writemakefile'}->can('failed') ? $$self{'writemakefile'}->failed : $$self{'writemakefile'} =~ /^NO/) |
| 5491 |
2 |
0 |
$$self{'writemakefile'}->can('text') ? : |
| 5500 |
10 |
9 |
if defined $$self{'make'} |
| 5503 |
0 |
19 |
if (exists $$self{'later'} and length $$self{'later'}) |
| 5504 |
0 |
0 |
if ($self->unsat_prereq) |
| 5517 |
12 |
7 |
if @e |
| 5519 |
0 |
7 |
if ($CPAN::Signal) |
| 5524 |
0 |
7 |
unless my $builddir = $self->dir |
| 5526 |
0 |
7 |
unless chdir $builddir |
| 5527 |
0 |
7 |
if $CPAN::DEBUG |
| 5529 |
0 |
7 |
if ($^O eq 'MacOS') |
| 5535 |
0 |
7 |
if ($$self{'configure'}) { } |
| |
3 |
4 |
elsif ($$self{'modulebuild'}) { } |
| 5538 |
0 |
3 |
unless my($perl) = $self->perl |
| 5541 |
0 |
4 |
unless my($perl) = $self->perl |
| 5547 |
0 |
4 |
$switch ? : |
| |
0 |
4 |
$$CPAN::Config{'makepl_arg'} ? : |
| 5553 |
7 |
0 |
unless (exists $$self{'writemakefile'}) |
| 5558 |
0 |
7 |
if ($$CPAN::Config{'inactivity_timeout'}) |
| 5560 |
0 |
0 |
if ($Config::Config{'d_alarm'} and $Config::Config{'d_alarm'} eq 'define') { } |
| 5577 |
0 |
7 |
if ($go_via_alarm) { } |
| 5581 |
0 |
0 |
if (defined($pid = fork)) { } |
| 5582 |
0 |
0 |
if ($pid) { } |
| 5597 |
0 |
0 |
if ($@) |
| 5608 |
1 |
6 |
if ($ret != 0) |
| 5615 |
6 |
0 |
if (-f 'Makefile' or -f 'Build') { } |
| 5623 |
0 |
6 |
if ($CPAN::Signal) |
| 5627 |
0 |
6 |
if (my(@prereq) = $self->unsat_prereq) |
| 5628 |
0 |
0 |
if $self->follow_prereqs(@prereq) |
| 5630 |
3 |
3 |
if ($$self{'modulebuild'}) { } |
| 5631 |
0 |
3 |
unless (-f 'Build') |
| 5641 |
6 |
0 |
if (system($system) == 0) { } |
| 5653 |
11 |
0 |
if ($self) { } |
| 5671 |
0 |
0 |
unless @prereq |
| 5680 |
0 |
0 |
if ($$CPAN::Config{'prerequisites_policy'} eq 'follow') { } |
| |
0 |
0 |
elsif ($$CPAN::Config{'prerequisites_policy'} eq 'ask') { } |
| 5692 |
0 |
0 |
if ($follow) |
| 5707 |
11 |
6 |
unless my $prereq_pm = $self->prereq_pm |
| 5712 |
6 |
0 |
if $nmo->uptodate |
| 5715 |
0 |
0 |
if (not defined $need_version or $need_version eq '0' or $need_version eq 'undef') |
| 5718 |
0 |
0 |
if defined $nmo->inst_file |
| 5724 |
0 |
0 |
if (defined $nmo->inst_file) |
| 5729 |
0 |
0 |
if ($rq =~ s/>=\s*//) { } |
| |
0 |
0 |
elsif ($rq =~ s/>\s*//) { } |
| |
0 |
0 |
elsif ($rq =~ s/!=\s*//) { } |
| |
0 |
0 |
elsif ($rq =~ /<=?\s*/) { } |
| 5732 |
0 |
0 |
if ('CPAN::Version'->vgt($nmo->inst_version, $rq)) |
| 5738 |
0 |
0 |
if ('CPAN::Version'->vcmp($nmo->inst_version, $rq)) { } |
| 5750 |
0 |
0 |
if (not 'CPAN::Version'->vgt($rq, $nmo->inst_version)) |
| 5753 |
0 |
0 |
if $CPAN::DEBUG |
| 5761 |
0 |
0 |
if $ok == @all_requirements |
| 5764 |
0 |
0 |
if ($$self{'sponsored_mods'}{$need_module}++) |
| 5778 |
0 |
6 |
if exists $$self{'yaml_content'} |
| 5781 |
0 |
6 |
if $CPAN::DEBUG |
| 5782 |
0 |
6 |
unless -f $yaml |
| 5783 |
6 |
0 |
if ($CPAN::META->has_inst('YAML')) |
| 5785 |
0 |
6 |
if ($@) |
| 5789 |
6 |
0 |
if (not exists $$self{'yaml_content'}{'dynamic_config'} or $$self{'yaml_content'}{'dynamic_config'}) |
| 5795 |
0 |
6 |
if $CPAN::DEBUG |
| 5802 |
105 |
19 |
if exists $$self{'prereq_pm_detected'} and $$self{'prereq_pm_detected'} |
| 5804 |
13 |
6 |
unless $$self{'writemakefile'} or $$self{'modulebuild'} |
| 5808 |
0 |
6 |
if (my $yaml = $self->read_yaml) |
| 5810 |
0 |
0 |
unless ref $req eq 'HASH' and %$req |
| 5811 |
0 |
0 |
if ($req) |
| 5812 |
0 |
0 |
if ($$yaml{'generated_by'} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) |
| 5814 |
0 |
0 |
if ($eummv < 6.2501) |
| 5823 |
0 |
0 |
unless $req |
| 5824 |
0 |
0 |
if ($v =~ /\d/) { } |
| |
0 |
0 |
elsif ($k =~ /[A-Za-z]/ and $v =~ /[A-Za-z]/ and $CPAN::META->exists('Module', $v)) { } |
| 5839 |
0 |
0 |
if $do_replace |
| 5841 |
0 |
0 |
if ($$yaml{'build_requires'} and ref $$yaml{'build_requires'} and ref $$yaml{'build_requires'} eq 'HASH') |
| 5845 |
0 |
0 |
if ($$req{$k}) { } |
| 5852 |
0 |
0 |
if ($req) |
| 5856 |
6 |
0 |
unless ($req) |
| 5857 |
0 |
6 |
unless my $build_dir = $$self{'build_dir'} |
| 5860 |
3 |
3 |
if (-f $makefile and $fh = 'FileHandle'->new("<$makefile\000")) { } |
| |
2 |
1 |
elsif (-f 'Build') { } |
| 5865 |
3 |
54 |
if /MakeMaker post_initialize section/ |
| 5869 |
54 |
0 |
unless $p |
| 5876 |
0 |
0 |
if (defined $$req{$1}) |
| 5885 |
2 |
0 |
if ($CPAN::META->has_inst('Module::Build')) |
| 5896 |
0 |
2 |
if ($@) |
| 5909 |
0 |
0 |
if ($yaml = 'CPAN'->_yaml_loadfile($yaml)->[0]) |
| 5920 |
2 |
4 |
if (-f 'Build.PL' and not -f 'Makefile.PL' and not exists $$req{'Module::Build'}) |
| 5937 |
0 |
11 |
if ($CPAN::Signal) |
| 5942 |
0 |
11 |
if ($$self{'notest'}) |
| 5947 |
5 |
6 |
$$self{'modulebuild'} ? : |
| 5949 |
0 |
11 |
if (my(@prereq) = $self->unsat_prereq) |
| 5950 |
0 |
0 |
if $self->follow_prereqs(@prereq) |
| 5954 |
2 |
9 |
unless (exists $$self{'make'} or exists $$self{'later'}) |
| 5959 |
9 |
0 |
$$self{'make'}->can('failed') ? : |
| |
0 |
11 |
if exists $$self{'make'} and $$self{'make'}->can('failed') ? $$self{'make'}->failed : $$self{'make'} =~ /^NO/ |
| 5966 |
0 |
11 |
unless exists $$self{'build_dir'} |
| 5968 |
0 |
11 |
if $$self{'badtestcnt'} > 0 |
| 5971 |
0 |
11 |
if exists $$self{'later'} and length $$self{'later'} |
| 5974 |
2 |
9 |
if @e |
| 5976 |
0 |
9 |
unless chdir $$self{'build_dir'} |
| 5978 |
0 |
9 |
if $CPAN::DEBUG |
| 5981 |
0 |
9 |
if ($^O eq 'MacOS') |
| 5986 |
5 |
4 |
if ($$self{'modulebuild'}) |
| 5988 |
5 |
0 |
unless $th |
| 5989 |
0 |
5 |
$th ? : |
| 5990 |
0 |
5 |
if ('CPAN::Version'->vlt($v, 2.62)) |
| 5998 |
9 |
0 |
defined $ENV{'PERL5LIB'} ? : |
| 6006 |
5 |
4 |
if ($$self{'modulebuild'}) { } |
| 6012 |
0 |
9 |
if ($$CPAN::Config{'test_report'} and $CPAN::META->has_inst('CPAN::Reporter')) { } |
| 6018 |
7 |
2 |
if ($tests_ok) { } |
| 6032 |
6 |
7 |
$$self{'modulebuild'} ? : |
| 6034 |
1 |
12 |
unless (exists $$self{'archived'}) |
| 6039 |
0 |
12 |
unless (exists $$self{'build_dir'}) |
| 6045 |
5 |
7 |
if exists $$self{'make_clean'} and $$self{'make_clean'} eq 'YES' |
| 6047 |
5 |
7 |
if @e |
| 6049 |
0 |
7 |
unless chdir $$self{'build_dir'} |
| 6051 |
0 |
7 |
if $CPAN::DEBUG |
| 6053 |
0 |
7 |
if ($^O eq 'MacOS') |
| 6059 |
3 |
4 |
if ($$self{'modulebuild'}) { } |
| 6060 |
0 |
3 |
unless (-f 'Build') |
| 6070 |
5 |
2 |
if (system($system) == 0) { } |
| 6107 |
0 |
1 |
if ($CPAN::Signal) |
| 6111 |
0 |
1 |
$$self{'modulebuild'} ? : |
| 6115 |
0 |
1 |
unless exists $$self{'build_dir'} |
| 6117 |
1 |
0 |
unless (exists $$self{'make'} or exists $$self{'later'}) |
| 6122 |
0 |
0 |
$$self{'make'}->can('failed') ? : |
| |
0 |
1 |
if exists $$self{'make'} and $$self{'make'}->can('failed') ? $$self{'make'}->failed : $$self{'make'} =~ /^NO/ |
| 6130 |
0 |
0 |
$$self{'make_test'}->can('failed') ? : |
| |
0 |
1 |
if (exists $$self{'make_test'} and $$self{'make_test'}->can('failed') ? $$self{'make_test'}->failed : $$self{'make_test'} =~ /^NO/) |
| 6136 |
0 |
0 |
if ($$self{'force_update'}) { } |
| 6144 |
0 |
1 |
if (exists $$self{'install'}) |
| 6145 |
0 |
0 |
$$self{'install'}->can('text') ? : |
| |
0 |
0 |
if ($$self{'install'}->can('text') ? $$self{'install'}->text eq 'YES' : $$self{'install'} =~ /^YES/) { } |
| 6156 |
0 |
1 |
if exists $$self{'later'} and length $$self{'later'} |
| 6159 |
1 |
0 |
if @e |
| 6161 |
0 |
0 |
unless chdir $$self{'build_dir'} |
| 6163 |
0 |
0 |
if $CPAN::DEBUG |
| 6166 |
0 |
0 |
if ($^O eq 'MacOS') |
| 6172 |
0 |
0 |
if ($$self{'modulebuild'}) { } |
| 6173 |
0 |
0 |
exists $CPAN::HandleConfig::keys{'mbuild_install_build_command'} && $$CPAN::Config{'mbuild_install_build_command'} ? : |
| 6191 |
0 |
0 |
$^O eq 'MSWin32' ? : |
| 6201 |
0 |
0 |
if ($? == 0) { } |
| 6208 |
0 |
0 |
if ($makeout =~ /permission/s and $> > 0 and !$$CPAN::Config{'make_install_make_command'} || $$CPAN::Config{'make_install_make_command'} eq $$CPAN::Config{'make'}) |
| 6249 |
0 |
0 |
if $CPAN::DEBUG |
| 6253 |
0 |
0 |
unless $pid = open(README, "which $binary|") |
| 6258 |
0 |
0 |
unless close README |
| 6260 |
0 |
0 |
if $CPAN::DEBUG and $out |
| 6271 |
0 |
0 |
if $CPAN::DEBUG |
| 6278 |
0 |
0 |
$web_browser ? : |
| 6282 |
0 |
0 |
if ($web_browser_out) { } |
| 6285 |
0 |
0 |
if $CPAN::DEBUG |
| 6294 |
0 |
0 |
if ($saved_file) |
| 6301 |
0 |
0 |
if ($html_converter_out) { } |
| 6304 |
0 |
0 |
unless defined $saved_file |
| 6308 |
0 |
0 |
unless $pid = open(README, "$html_converter $saved_file |") |
| 6312 |
0 |
0 |
if ($CPAN::META->has_inst('File::Temp')) { } |
| 6322 |
0 |
0 |
unless open $fh, ">$filename" |
| 6327 |
0 |
0 |
unless close README |
| 6330 |
0 |
0 |
if $CPAN::DEBUG |
| 6339 |
0 |
0 |
unless open FH, $tmpin |
| 6344 |
0 |
0 |
unless $fh_pager->open("|$pager") |
| 6367 |
0 |
0 |
if $CPAN::DEBUG |
| 6371 |
0 |
0 |
if ($CPAN::META->has_inst('File::Temp')) { } |
| 6383 |
0 |
0 |
if ($CPAN::META->has_usable('LWP')) { } |
| 6390 |
0 |
0 |
if ($@) { } |
| 6395 |
0 |
0 |
if $var = $$CPAN::Config{'http_proxy'} || $ENV{'http_proxy'} |
| 6397 |
0 |
0 |
if $var = $$CPAN::Config{'no_proxy'} || $ENV{'no_proxy'} |
| 6404 |
0 |
0 |
if ($res->is_success) { } |
| 6405 |
0 |
0 |
if $CPAN::DEBUG |
| 6409 |
0 |
0 |
if $CPAN::DEBUG |
| 6429 |
0 |
11 |
if ($^O eq 'MSWin32') |
| 6432 |
0 |
0 |
unless my($perl) = $self->perl |
| 6450 |
0 |
36 |
unless my $obj = 'CPAN::Shell'->expandany($c) |
| 6465 |
0 |
12 |
if exists $$self{'incommandcolor'} and $$self{'incommandcolor'} == $color |
| 6467 |
0 |
12 |
if ($depth >= 100) |
| 6473 |
0 |
72 |
unless my $obj = 'CPAN::Shell'->expandany($c) |
| 6474 |
0 |
72 |
if $CPAN::DEBUG |
| 6477 |
6 |
6 |
if ($color == 0) |
| 6497 |
0 |
25 |
if $CPAN::DEBUG |
| 6498 |
1 |
24 |
if ($inst_file and 'CPAN::Version'->vlt($self->inst_version, $self->cpan_version)) |
| 6501 |
1 |
24 |
unless ($inst_file) |
| 6503 |
0 |
1 |
if $CPAN::DEBUG |
| 6505 |
0 |
1 |
unless $cpan_file = $self->cpan_file |
| 6507 |
0 |
1 |
if ($cpan_file eq 'N/A') |
| 6514 |
0 |
1 |
if $CPAN::DEBUG |
| 6523 |
0 |
1 |
unless File::Copy::copy($from, $to) |
| 6530 |
0 |
25 |
unless open $fh, $inst_file |
| 6532 |
0 |
25 |
if $CPAN::DEBUG |
| 6534 |
25 |
1150 |
/^=head1\s+CONTENTS/ ? : |
| |
100 |
1175 |
/^=(?!head1\s+CONTENTS)/ ? : |
| 6536 |
625 |
650 |
unless $in_cont |
| 6537 |
25 |
625 |
if /^=/ |
| 6539 |
475 |
150 |
if /^\s+$/ |
| 6546 |
0 |
25 |
if $CPAN::DEBUG |
| 6547 |
0 |
25 |
unless (@result) |
| 6562 |
0 |
1 |
if $CPAN::DEBUG |
| 6567 |
0 |
1 |
unless (-f $manifest) |
| 6574 |
0 |
1 |
unless my $fh = 'FileHandle'->new($manifest) |
| 6581 |
0 |
2 |
if /^\s*\#/ |
| 6583 |
1 |
1 |
if ($file =~ /\Q$what\E$/) |
| 6589 |
0 |
1 |
if $file =~ /\Q$bundle_filename\E$/ |
| 6591 |
1 |
0 |
if $bundle_unixpath |
| 6611 |
0 |
1416 |
if $CPAN::DEBUG |
| 6612 |
1357 |
59 |
unless -f $bfile |
| 6614 |
59 |
0 |
if (not $bestv or 'CPAN::Version'->vgt($foundv, $bestv)) |
| 6632 |
0 |
6 |
if $CPAN::DEBUG |
| 6634 |
0 |
6 |
unless $self->inst_file or $self->cpan_file |
| 6638 |
0 |
36 |
$s =~ /^Bundle::/ ? : |
| |
0 |
36 |
$s =~ m[/] ? : |
| 6640 |
0 |
36 |
if ($type eq 'CPAN::Distribution') |
| 6648 |
0 |
36 |
if $CPAN::DEBUG |
| 6651 |
0 |
36 |
if ($obj->isa('CPAN::Bundle') and exists $$obj{'install_failed'} and ref $$obj{'install_failed'} eq 'HASH') { } |
| 6666 |
36 |
0 |
$obj->can('uptodate') ? : |
| 6668 |
0 |
36 |
if ($success) { } |
| 6677 |
0 |
6 |
if ($meth eq 'install') |
| 6678 |
0 |
0 |
if (%fail) { } |
| 6689 |
0 |
0 |
if ($fail{$s}) |
| 6697 |
0 |
0 |
if exists $reported{$s} |
| 6698 |
0 |
0 |
unless $report_propagated++ |
| 6742 |
0 |
0 |
unless $self->SUPER::uptodate |
| 6746 |
0 |
0 |
unless $obj->uptodate |
| 6754 |
0 |
0 |
unless my($file) = $self->cpan_file |
| 6756 |
0 |
0 |
if $CPAN::DEBUG |
| 6768 |
68 |
15 |
unless $ro |
| 6774 |
0 |
5 |
unless my $ro = $self->ro |
| 6787 |
48 |
0 |
if (my $dist = 'CPAN::Shell'->expand('Distribution', $self->cpan_file)) |
| 6801 |
0 |
126 |
if exists $$self{'incommandcolor'} and $$self{'incommandcolor'} == $color |
| 6803 |
30 |
96 |
if $depth >= 1 and $self->uptodate |
| 6804 |
0 |
96 |
if ($depth >= 100) |
| 6809 |
96 |
0 |
if (my $dist = 'CPAN::Shell'->expand('Distribution', $self->cpan_file)) |
| 6812 |
48 |
48 |
if ($color == 0) |
| 6826 |
0 |
54 |
if ($CPAN::Shell::COLOR_REGISTERED and $CPAN::META->has_inst('Term::ANSIColor') and $self->description) |
| 6837 |
36 |
18 |
if ($class eq 'Bundle') { } |
| |
4 |
14 |
elsif ($self->uptodate) { } |
| |
0 |
14 |
elsif ($self->inst_version) { } |
| 6843 |
19 |
35 |
$self->distribution ? : |
| 6884 |
1 |
2 |
unless $ro and $$ro{'statd'} |
| 6903 |
0 |
3 |
if $CPAN::DEBUG |
| 6909 |
2 |
1 |
if $self->description |
| 6914 |
3 |
0 |
if ($userid) |
| 6916 |
3 |
0 |
if ($author = 'CPAN::Shell'->expand('Author', $userid)) |
| 6919 |
3 |
0 |
if ($m = $author->email) |
| 6930 |
3 |
0 |
if $self->cpan_version |
| 6932 |
3 |
0 |
if (my $cpan_file = $self->cpan_file) |
| 6934 |
2 |
1 |
if (my $dist = 'CPAN::Shell'->expand('Distribution', $cpan_file)) |
| 6936 |
0 |
2 |
if ($upload_date) |
| 6946 |
2 |
1 |
if $$dslip{'D'} |
| 6949 |
3 |
0 |
unless ($$self{'MANPAGE'}) |
| 6951 |
2 |
1 |
if ($local_file) { } |
| 6960 |
0 |
1 |
if ($$dist{'build_dir'} and -f($mff = 'File::Spec'->catfile($$dist{'build_dir'}, 'MANIFEST')) and $mfh = 'FileHandle'->new($mff)) |
| 6967 |
0 |
0 |
if $CPAN::DEBUG |
| 6980 |
0 |
0 |
if $CPAN::DEBUG |
| 6987 |
0 |
0 |
if (-f $lfl_abs) |
| 6992 |
2 |
1 |
if $manpage |
| 6996 |
2 |
1 |
if exists $$self{$item} |
| 7001 |
1 |
2 |
if exists $$self{$item} and @{$$self{$item};} |
| 7005 |
2 |
1 |
if $local_file |
| 7017 |
0 |
2 |
unless -f $locf |
| 7018 |
0 |
2 |
unless my $fh = 'FileHandle'->new($locf) |
| 7023 |
2 |
276 |
/^=head1\s+NAME\s*$/ ? : |
| |
9 |
278 |
/^=(?!head1\s+NAME\s*$)/ ? : |
| 7025 |
279 |
8 |
unless $inpod |
| 7026 |
2 |
6 |
if /^=/ |
| 7027 |
4 |
2 |
if /^\s+$/ |
| 7032 |
2 |
0 |
if @result |
| 7045 |
0 |
314 |
if $CPAN::DEBUG |
| 7046 |
52 |
262 |
unless ($self->ro) |
| 7050 |
250 |
64 |
if ($ro and defined $$ro{'CPAN_FILE'}) { } |
| 7054 |
12 |
52 |
if ($userid) { } |
| 7055 |
12 |
0 |
if ($CPAN::META->exists('CPAN::Author', $userid)) { } |
| 7060 |
0 |
12 |
unless (defined $fullname and defined $email) |
| 7080 |
39 |
183 |
unless ($ro) |
| 7084 |
41 |
181 |
unless defined $$ro{'CPAN_VERSION'} |
| 7108 |
0 |
38 |
if ($cpan_file eq 'N/A' or $cpan_file =~ /^Contact Author/) |
| 7123 |
1 |
37 |
if exists $$self{'force_update'} |
| 7124 |
6 |
32 |
if exists $$self{'notest'} |
| 7129 |
1 |
37 |
if $pack->can('unforce') and exists $$self{'force_update'} |
| 7130 |
6 |
32 |
if $pack->can('unnotest') and exists $$self{'notest'} |
| 7133 |
0 |
38 |
if ($err) |
| 7164 |
41 |
123 |
if (defined $inst_file) |
| 7168 |
41 |
123 |
if ($inst_file and not 'CPAN::Version'->vgt($latest, $have)) |
| 7172 |
0 |
41 |
if $CPAN::DEBUG |
| 7182 |
0 |
1 |
if ($self->uptodate and not exists $$self{'force_update'}) { } |
| 7194 |
0 |
1 |
if ($ro and $$ro{'stats'} and $$ro{'stats'} eq 'a') |
| 7201 |
1 |
0 |
if $doit |
| 7212 |
0 |
244 |
if (@packpath == 1 and $packpath[0] eq 'readline.pm') |
| 7217 |
90 |
4558 |
if (-f $pmfile) |
| 7233 |
0 |
0 |
if (-f $xsfile) |
| 7243 |
14 |
45 |
unless my $parsefile = $self->inst_file |
| 7244 |
0 |
45 |
if $] < 5.00303 and $ExtUtils::MakeMaker::VERSION < 5.38 |