| line |
true |
false |
branch |
|
8
|
3 |
587 |
unless my $file = shift() |
|
10
|
0 |
587 |
unless my($dist, $version) = $file =~ /^
((?:[-+.]*(?:[A-Za-z0-9]+|(?<=\D)_|_(?=\D))*
(?:
[A-Za-z](?=[^A-Za-z]|$)
|
\d(?=-)
)(?
|
|
20
|
1 |
586 |
if ($dist =~ /-undef\z/ and not length $version) |
|
27
|
1 |
586 |
if ($version =~ /^(-[Vv].*)-(\d.*)/) |
|
35
|
1 |
586 |
if ($version =~ /(.+_.*)-(\d.*)/) |
|
47
|
0 |
587 |
if not length $version and $dist =~ s/-(\d+\w)$// |
|
50
|
11 |
576 |
if $version =~ /^\d+$/ and $dist =~ s/-(\w+)$// |
|
53
|
487 |
100 |
if ($version =~ /\d\.\d/) { } |
|
61
|
558 |
29 |
if (length $version) { } |
|
62
|
5 |
553 |
if ($file =~ /^perl-?\d+\.(\d+)(?:\D(\d+))?(-(?:TRIAL|RC)\d+)?$/) { } |
|
|
6 |
547 |
elsif ($version =~ /\d\D\d+_\d/ or $version =~ /-TRIAL/) { } |
|
63
|
3 |
2 |
if $1 > 6 and $1 & 1 or $2 and $2 >= 50 or $3 |
|
84
|
29 |
561 |
if ($info{'filename'} = $distfile) =~ s[^(((.*?/)?authors/)?id/)?([A-Z])/(\4[A-Z])/(\5[-A-Z0-9]*)/][] |
|
87
|
587 |
3 |
if ($distfile =~ m[([^/]+)\.(tar\.(?:g?z|bz2)|zip|tgz)$]i) |
|
93
|
9 |
581 |
delete $info{'beta'} ? : |