Branch Coverage

blib/lib/CPAN/Module.pm
Criterion Covered Total %
branch 24 204 11.7


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))
71 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)
253 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
303 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)
399 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)
667 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