Branch Coverage

blib/lib/CPAN/PackageDetails.pm
Criterion Covered Total %
branch 42 76 55.2


line true false branch
126 0 24 if (exists $args{'dbmdeep'}) { }
128 0 0 if ($@)
135 0 0 unless ref $ref
208 19 5 if defined &{"${class}::$method";} or exists $Dispatchable{$method} or $self->header_exists($method)
221 0 1616 unless ref $self
224 1602 14 if (exists $Dispatchable{$method}) { }
13 1 elsif ($self->header_exists($method)) { }
280 24 0 unless exists $self->{'entries'}
284 24 0 unless exists $self->{'header'}
316 1 6 unless (defined $file)
323 1 5 unless (my $fh = 'IO::Uncompress::Gunzip'->new($file))
351 4 40 if /\A\s*\Z/
389 1 3 unless (defined $output_file)
396 1 2 unless (my $fh = 'IO::Compress::Gzip'->new("$output_file.$$"))
404 0 2 unless (rename "$output_file.$$", $output_file)
484 0 4 unless (-e $file)
499 0 4 unless ($header_count)
506 1 3 unless ($header_count == $entries_count)
513 4 0 if ($cpan_path)
517 2 2 if @$missing_in_file
518 1 3 if @$missing_in_repo
522 3 1 if $error->{'error_count'}
550 2 5 unless -e $native_path
601 15 10 if (not exists $Seen{$name}) { }
9 1 elsif ($Seen{$name}[2] lt $version) { }
609 15 10 if (exists $Seen{$_}) { }
624 0 0 unless my $file = shift()
626 0 0 unless my($dist, $version) = $file =~ /^ ( # start of dist name (?: [-+.]* (?: [A-Za-z0-9]+ | (?<=\D)_ | _(?=\D) )* (?: [A-Za-z] (?= [^A-Za-z] | $ ) | \d (?=-) ) (?
662 0 0 if $dist =~ /-undef\z/ and not length $version
666 0 0 if ($version =~ /^(-[Vv].*)-(\d.*)/)
671 0 0 if not length $version and $dist =~ s/-(\d+\w)$//
673 0 0 if $version =~ /^\d+$/ and $dist =~ s/-(\w+)$//
675 0 0 if ($version =~ /\d\.\d/) { }
684 0 0 if (length $version) { }
686 0 0 if ($file =~ /^perl-?\d+\.(\d+)(?:\D(\d+))?(-(?:TRIAL|RC)\d+)?$/) { }
0 0 elsif ($version =~ /\d\D\d+_\d/) { }
687 0 0 if $1 > 6 and $1 & 1 or $2 and $2 >= 50 or $3
709 16 16 if /\.(?:tar\.gz|tgz|zip)\z/