| 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) |
|
111
|
0 |
0 |
if (my $dist = 'CPAN::Shell'->expand('Distribution', $self->cpan_file)) |
|
129
|
0 |
0 |
if ($CPAN::Shell::COLOR_REGISTERED and $CPAN::META->has_inst('Term::ANSIColor') and $self->description) |
|
140
|
0 |
0 |
unless ($class eq 'Bundle') |
|
142
|
0 |
0 |
$u ? : |
|
|
0 |
0 |
if defined $u |
|
146
|
0 |
0 |
$d ? : |
|
191
|
0 |
0 |
unless $ro and $ro->{'statd'} |
|
210
|
0 |
0 |
if $CPAN::DEBUG |
|
216
|
0 |
0 |
if $self->description |
|
221
|
0 |
0 |
if ($userid) |
|
223
|
0 |
0 |
if ($author = 'CPAN::Shell'->expand('Author', $userid)) |
|
226
|
0 |
0 |
if ($m = $author->email) |
|
237
|
0 |
0 |
if $self->cpan_version |
|
239
|
0 |
0 |
if (my $cpan_file = $self->cpan_file) |
|
241
|
0 |
0 |
if (my $dist = 'CPAN::Shell'->expand('Distribution', $cpan_file)) |
|
243
|
0 |
0 |
if ($upload_date) |
|
254
|
0 |
0 |
if $dslip->{'D'} |
|
256
|
0 |
0 |
unless ($self->{'MANPAGE'}) |
|
258
|
0 |
0 |
if ($local_file) { } |
|
267
|
0 |
0 |
if ($dist->{'build_dir'} and -f ($mff = 'File::Spec'->catfile($dist->{'build_dir'}, 'MANIFEST')) and $mfh = 'FileHandle'->new($mff)) |
|
274
|
0 |
0 |
if $CPAN::DEBUG |
|
287
|
0 |
0 |
if $CPAN::DEBUG |
|
294
|
0 |
0 |
if (-f $lfl_abs) |
|
299
|
0 |
0 |
if $manpage |
|
304
|
0 |
0 |
if exists $self->{$item} |
|
308
|
0 |
0 |
if exists $self->{$item} and @{$self->{$item};} |
|
312
|
0 |
0 |
if $local_file |
|
314
|
0 |
0 |
unless $CPAN::META->{'is_tested'} |
|
|
0 |
0 |
if (%{{} unless $CPAN::META->{'is_tested'};}) |
|
316
|
0 |
0 |
if ($available_file and $available_file ne $local_file) |
|
332
|
0 |
0 |
unless -f $locf |
|
333
|
0 |
0 |
unless my $fh = 'FileHandle'->new($locf) |
|
338
|
0 |
0 |
/^=head1\s+NAME\s*$/ ? : |
|
|
0 |
0 |
/^=(?!head1\s+NAME\s*$)/ ? : |
|
340
|
0 |
0 |
unless $inpod |
|
341
|
0 |
0 |
if /^=/ |
|
342
|
0 |
0 |
if /^\s+$/ |
|
347
|
0 |
0 |
if @result |
|
361
|
19 |
1 |
unless ($self->ro) |
|
365
|
1 |
19 |
if ($ro and defined $ro->{'CPAN_FILE'}) { } |
|
369
|
0 |
19 |
if ($userid) { } |
|
370
|
0 |
0 |
if ($CPAN::META->exists('CPAN::Author', $userid)) { } |
|
375
|
0 |
0 |
unless (defined $fullname and defined $email) |
|
395
|
0 |
1 |
unless ($ro) |
|
400
|
0 |
1 |
unless defined $ro->{'CPAN_VERSION'} |
|
430
|
0 |
0 |
if ($cpan_file eq 'N/A' or $cpan_file =~ /^Contact Author/) |
|
445
|
0 |
0 |
if (exists $self->{'force_update'}) |
|
446
|
0 |
0 |
if ($self->{'force_update'} == 2) { } |
|
452
|
0 |
0 |
if exists $self->{'notest'} and $self->{'notest'} |
|
455
|
0 |
0 |
if $CPAN::DEBUG |
|
457
|
0 |
0 |
if ($pack->{'reqtype'}) { } |
|
458
|
0 |
0 |
if ($pack->{'reqtype'} eq 'b' and $self->{'reqtype'} =~ /^[rc]$/) |
|
460
|
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/) |
|
482
|
0 |
0 |
if $pack->can('unforce') and exists $self->{'force_update'} |
|
483
|
0 |
0 |
if $pack->can('unnotest') and exists $self->{'notest'} |
|
486
|
0 |
0 |
if ($err) |
|
514
|
0 |
1 |
unless $CPAN::META->has_inst('Module::CoreList') and 'Module::CoreList'->can('is_deprecated') |
|
523
|
0 |
1 |
unless my $inst_file = $self->inst_file |
|
531
|
0 |
1 |
unless my $inst = $self->inst_version |
|
533
|
0 |
1 |
if 'CPAN::Version'->vgt($cpan, $inst) or $self->inst_deprecated |
|
534
|
0 |
1 |
if $CPAN::DEBUG |
|
551
|
0 |
0 |
if ($^O eq 'VMS') |
|
555
|
0 |
0 |
if $site eq $priv |
|
557
|
0 |
0 |
if ($priv eq substr($inst_file, 0, length $priv)) |
|
568
|
0 |
0 |
if ($self->uptodate and not exists $self->{'force_update'}) { } |
|
580
|
0 |
0 |
if ($ro and $ro->{'stats'} and $ro->{'stats'} eq 'a') |
|
587
|
0 |
0 |
$doit ? : |
|
603
|
0 |
0 |
unless defined $perllib |
|
604
|
0 |
0 |
if defined $perllib |
|
606
|
0 |
0 |
if ($CPAN::Perl5lib_tempfile) |
|
608
|
0 |
0 |
unless $yaml->[0]{'inc'} |
|
619
|
0 |
2 |
if (@packpath == 1 and $packpath[0] eq 'readline.pm') |
|
624
|
2 |
18 |
if (-f $pmfile) |
|
640
|
0 |
0 |
if (-f $xsfile) |
|
650
|
0 |
1 |
unless my $parsefile = $self->inst_file |
|
658
|
0 |
0 |
unless my $parsefile = $self->available_file |
|
666
|
1 |
0 |
if (&ALARM_IMPLEMENTED()) |
|
668
|
0 |
1 |
exists $CPAN::Config{'version_timeout'} ? : |
|
676
|
0 |
1 |
if ($@) |
|
679
|
1 |
0 |
if &ALARM_IMPLEMENTED() |
|
680
|
1 |
0 |
if defined $have |
|
681
|
0 |
1 |
unless $leastsanity |