| line |
true |
false |
branch |
|
124
|
0 |
24 |
if (exists $args{'dbmdeep'}) { } |
|
126
|
0 |
0 |
if ($@) |
|
133
|
0 |
0 |
unless ref $ref |
|
206
|
19 |
5 |
if defined &{"${class}::$method";} or exists $Dispatchable{$method} or $self->header_exists($method) |
|
219
|
0 |
1616 |
unless ref $self |
|
222
|
1602 |
14 |
if (exists $Dispatchable{$method}) { } |
|
|
13 |
1 |
elsif ($self->header_exists($method)) { } |
|
278
|
24 |
0 |
unless exists $self->{'entries'} |
|
282
|
24 |
0 |
unless exists $self->{'header'} |
|
314
|
1 |
6 |
unless (defined $file) |
|
321
|
1 |
5 |
unless (my $fh = 'IO::Uncompress::Gunzip'->new($file)) |
|
349
|
4 |
40 |
if /\A\s*\Z/ |
|
387
|
1 |
3 |
unless (defined $output_file) |
|
394
|
1 |
2 |
unless (my $fh = 'IO::Compress::Gzip'->new("$output_file.$$")) |
|
402
|
0 |
2 |
unless (rename "$output_file.$$", $output_file) |
|
482
|
0 |
4 |
unless (-e $file) |
|
497
|
0 |
4 |
unless ($header_count) |
|
504
|
1 |
3 |
unless ($header_count == $entries_count) |
|
511
|
4 |
0 |
if ($cpan_path) |
|
515
|
2 |
2 |
if @$missing_in_file |
|
516
|
1 |
3 |
if @$missing_in_repo |
|
520
|
3 |
1 |
if $error->{'error_count'} |
|
548
|
2 |
5 |
unless -e $native_path |
|
599
|
15 |
10 |
if (not exists $Seen{$name}) { } |
|
|
9 |
1 |
elsif ($Seen{$name}[2] lt $version) { } |
|
607
|
15 |
10 |
if (exists $Seen{$_}) { } |
|
622
|
0 |
0 |
unless my $file = shift() |
|
624
|
0 |
0 |
unless my($dist, $version) = $file =~ /^
( # start of dist name
(?:
[-+.]*
(?:
[A-Za-z0-9]+
|
(?<=\D)_
|
_(?=\D)
)*
(?:
[A-Za-z]
(?=
[^A-Za-z]
|
$
)
|
\d
(?=-)
)
(?
|
|
660
|
0 |
0 |
if $dist =~ /-undef\z/ and not length $version |
|
664
|
0 |
0 |
if ($version =~ /^(-[Vv].*)-(\d.*)/) |
|
669
|
0 |
0 |
if not length $version and $dist =~ s/-(\d+\w)$// |
|
671
|
0 |
0 |
if $version =~ /^\d+$/ and $dist =~ s/-(\w+)$// |
|
673
|
0 |
0 |
if ($version =~ /\d\.\d/) { } |
|
682
|
0 |
0 |
if (length $version) { } |
|
684
|
0 |
0 |
if ($file =~ /^perl-?\d+\.(\d+)(?:\D(\d+))?(-(?:TRIAL|RC)\d+)?$/) { } |
|
|
0 |
0 |
elsif ($version =~ /\d\D\d+_\d/) { } |
|
685
|
0 |
0 |
if $1 > 6 and $1 & 1 or $2 and $2 >= 50 or $3 |
|
707
|
16 |
16 |
if /\.(?:tar\.gz|tgz|zip)\z/ |