| line |
true |
false |
branch |
|
14
|
0 |
2 |
unless $] >= "5.007" |
|
22
|
38 |
0 |
unless $ro |
|
28
|
0 |
0 |
unless my $ro = $self->ro |
|
41
|
0 |
0 |
if defined $self->{'_is_representative_module'} |
|
42
|
0 |
0 |
unless my $pm = $self->cpan_file |
|
48
|
0 |
0 |
$pm eq $self->{'ID'} ? : |
|
57
|
0 |
0 |
if (my $dist = "CPAN::Shell"->expand("Distribution", $self->cpan_file)) |
|
73
|
0 |
0 |
if exists $self->{'incommandcolor'} and $color == 1 and $self->{'incommandcolor'} == $color |
|
74
|
0 |
0 |
if $color == 0 and not $self->{'incommandcolor'} |
|
75
|
0 |
0 |
if ($color >= 1) { } |
|
76
|
0 |
0 |
if ($self->uptodate) { } |
|
|
0 |
0 |
elsif (my $have_version = $self->available_version) { } |
|
81
|
0 |
0 |
if (@$ancestors) |
|
84
|
0 |
0 |
if (do {
$obj->isa('CPAN::Bundle')
}) { } |
|
|
0 |
0 |
elsif ($obj->isa('CPAN::Distribution')) { } |
|
89
|
0 |
0 |
if (my $prereq_pm = $obj->prereq_pm) |
|
91
|
0 |
0 |
if (my $want_version = $prereq_pm->{$k}{$self->id}) |
|
92
|
0 |
0 |
if ("CPAN::Version"->vcmp($have_version, $want_version) >= 0) |
|
106
|
0 |
0 |
if ($depth >= $CPAN::MAX_RECURSION) |
|
108
|
0 |
0 |
if ($e->is_resolvable) { } |
|
116
|
0 |
0 |
if (my $dist = "CPAN::Shell"->expand("Distribution", $self->cpan_file)) |
|
134
|
0 |
0 |
if ($CPAN::Shell::COLOR_REGISTERED and $CPAN::META->has_inst("Term::ANSIColor") and $self->description) |
|
145
|
0 |
0 |
unless ($class eq "Bundle") |
|
147
|
0 |
0 |
$u ? : |
|
|
0 |
0 |
if defined $u |
|
151
|
0 |
0 |
$d ? : |
|
196
|
0 |
0 |
unless $ro and $ro->{'statd'} |
|
215
|
0 |
0 |
if $CPAN::DEBUG |
|
221
|
0 |
0 |
if $self->description |
|
226
|
0 |
0 |
if ($userid) |
|
228
|
0 |
0 |
if ($author = "CPAN::Shell"->expand("Author", $userid)) |
|
231
|
0 |
0 |
if ($m = $author->email) |
|
242
|
0 |
0 |
if $self->cpan_version |
|
244
|
0 |
0 |
if (my $cpan_file = $self->cpan_file) |
|
246
|
0 |
0 |
if (my $dist = "CPAN::Shell"->expand("Distribution", $cpan_file)) |
|
248
|
0 |
0 |
if ($upload_date) |
|
259
|
0 |
0 |
if $dslip->{'D'} |
|
261
|
0 |
0 |
unless ($self->{'MANPAGE'}) |
|
263
|
0 |
0 |
if ($local_file) { } |
|
272
|
0 |
0 |
if ($dist->{'build_dir'} and -f ($mff = "File::Spec"->catfile($dist->{'build_dir'}, "MANIFEST")) and $mfh = "FileHandle"->new($mff)) |
|
279
|
0 |
0 |
if $CPAN::DEBUG |
|
292
|
0 |
0 |
if $CPAN::DEBUG |
|
299
|
0 |
0 |
if (-f $lfl_abs) |
|
304
|
0 |
0 |
if $manpage |
|
309
|
0 |
0 |
if exists $self->{$item} |
|
313
|
0 |
0 |
if exists $self->{$item} and @{$self->{$item};} |
|
317
|
0 |
0 |
if $local_file |
|
319
|
0 |
0 |
unless $CPAN::META->{'is_tested'} |
|
|
0 |
0 |
if (%{{} unless $CPAN::META->{'is_tested'};}) |
|
321
|
0 |
0 |
if ($available_file and $available_file ne $local_file) |
|
337
|
0 |
0 |
unless -f $locf |
|
338
|
0 |
0 |
unless my $fh = "FileHandle"->new($locf) |
|
343
|
0 |
0 |
/^=head1\s+NAME\s*$/ ? : |
|
|
0 |
0 |
/^=(?!head1\s+NAME\s*$)/ ? : |
|
345
|
0 |
0 |
unless $inpod |
|
346
|
0 |
0 |
if /^=/ |
|
347
|
0 |
0 |
if /^\s+$/ |
|
352
|
0 |
0 |
if @result |
|
366
|
19 |
1 |
unless ($self->ro) |
|
370
|
1 |
19 |
if ($ro and defined $ro->{'CPAN_FILE'}) { } |
|
374
|
0 |
19 |
if ($userid) { } |
|
375
|
0 |
0 |
if ($CPAN::META->exists('CPAN::Author', $userid)) { } |
|
380
|
0 |
0 |
unless (defined $fullname and defined $email) |
|
400
|
0 |
1 |
unless ($ro) |
|
405
|
0 |
1 |
unless defined $ro->{'CPAN_VERSION'} |
|
435
|
0 |
0 |
if ($cpan_file eq "N/A" or $cpan_file =~ /^Contact Author/) |
|
450
|
0 |
0 |
if (exists $self->{'force_update'}) |
|
451
|
0 |
0 |
if ($self->{'force_update'} == 2) { } |
|
457
|
0 |
0 |
if exists $self->{'notest'} and $self->{'notest'} |
|
460
|
0 |
0 |
if $CPAN::DEBUG |
|
462
|
0 |
0 |
if ($pack->{'reqtype'}) { } |
|
463
|
0 |
0 |
if ($pack->{'reqtype'} eq "b" and $self->{'reqtype'} =~ /^[rc]$/) |
|
465
|
0 |
0 |
UNIVERSAL::can($pack->{'install'}, 'failed') ? : |
|
|
0 |
0 |
if (exists $pack->{'install'} and UNIVERSAL::can($pack->{'install'}, "failed") ? $pack->{'install'}->failed : $pack->{'install'} =~ /^NO/) |
|
487
|
0 |
0 |
if $pack->can("unforce") and exists $self->{'force_update'} |
|
488
|
0 |
0 |
if $pack->can("unnotest") and exists $self->{'notest'} |
|
491
|
0 |
0 |
if ($err) |
|
519
|
0 |
1 |
unless $CPAN::META->has_inst("Module::CoreList") and "Module::CoreList"->can("is_deprecated") |
|
528
|
0 |
1 |
unless my $inst_file = $self->inst_file |
|
536
|
0 |
1 |
unless my $inst = $self->inst_version |
|
538
|
0 |
1 |
if "CPAN::Version"->vgt($cpan, $inst) or $self->inst_deprecated |
|
539
|
0 |
1 |
if $CPAN::DEBUG |
|
556
|
0 |
0 |
if ($^O eq "VMS") |
|
560
|
0 |
0 |
if $site eq $priv |
|
562
|
0 |
0 |
if ($priv eq substr($inst_file, 0, length $priv)) |
|
573
|
0 |
0 |
if ($self->uptodate and not exists $self->{'force_update'}) { } |
|
585
|
0 |
0 |
if ($ro and $ro->{'stats'} and $ro->{'stats'} eq "a") |
|
592
|
0 |
0 |
$doit ? : |
|
608
|
0 |
0 |
unless defined $perllib |
|
609
|
0 |
0 |
if defined $perllib |
|
611
|
0 |
0 |
if ($CPAN::Perl5lib_tempfile) |
|
613
|
0 |
0 |
unless $yaml->[0]{'inc'} |
|
624
|
0 |
2 |
if (@packpath == 1 and $packpath[0] eq "readline.pm") |
|
629
|
2 |
18 |
if (-f $pmfile) |
|
645
|
0 |
0 |
if (-f $xsfile) |
|
655
|
0 |
1 |
unless my $parsefile = $self->inst_file |
|
663
|
0 |
0 |
unless my $parsefile = $self->available_file |
|
671
|
1 |
0 |
if (&ALARM_IMPLEMENTED()) |
|
673
|
0 |
1 |
exists $CPAN::Config{'version_timeout'} ? : |
|
681
|
0 |
1 |
if ($@) |
|
684
|
1 |
0 |
if &ALARM_IMPLEMENTED() |
|
685
|
1 |
0 |
if defined $have |
|
686
|
0 |
1 |
unless $leastsanity |