| line |
true |
false |
branch |
|
9
|
0 |
593 |
unless my $file = shift() |
|
11
|
1 |
592 |
if $file =~ /\P{ASCII}/ |
|
13
|
0 |
592 |
unless my($dist, $version) = $file =~ /^
((?:[-+.]*(?:[A-Za-z0-9]+|(?<=\D)_|_(?=\D))*
(?:
[A-Za-z](?=[^A-Za-z]|$)
|
\d(?=-)
)(?
|
|
23
|
1 |
591 |
if ($dist =~ /-undef\z/ and not length $version) |
|
30
|
1 |
591 |
if ($version =~ /^(-[Vv].*)-(\d.*)/) |
|
37
|
1 |
591 |
if ($version =~ /(.+_.*)-(\d.*)/) |
|
49
|
0 |
592 |
if not length $version and $dist =~ s/-(\d+\w)$// |
|
52
|
11 |
581 |
if $version =~ /^\d+$/ and $dist =~ s/-(\w+)$// |
|
55
|
492 |
100 |
if ($version =~ /\d\.\d/) { } |
|
63
|
563 |
29 |
if (length $version) { } |
|
64
|
5 |
558 |
if ($file =~ /^perl-?\d+\.(\d+)(?:\D(\d+))?(-(?:TRIAL|RC)\d+)?$/) { } |
|
|
8 |
550 |
elsif ($version =~ /\d\D\d+_\d/ or $version =~ s/-TRIAL[0-9]*$//) { } |
|
65
|
3 |
2 |
if $1 > 6 and $1 & 1 or $2 and $2 >= 50 or $3 |
|
87
|
29 |
564 |
if ($info{'filename'} = $distfile) =~ s[^(((.*?/)?authors/)?id/)?([A-Z])/(\4[A-Z])/(\5[-A-Z0-9]*)/][] |
|
89
|
593 |
0 |
if ($distfile =~ m[([^/]+)\.(tar\.(?:g?z|bz2|xz)|zip|tgz)$]i) |
|
95
|
11 |
582 |
delete $info{'beta'} ? : |