| 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/ |