| line |
true |
false |
branch |
|
33
|
33 |
563 |
if ($path =~ s[^(([A-Z])/(\2[A-Z0-9])/(\3[A-Z0-9-]{0,7})/)][]) { } |
|
|
1 |
562 |
elsif ($path =~ s[^([A-Z][A-Z0-9][A-Z0-9-]{0,7})/][]) { } |
|
58
|
2 |
594 |
if ($path =~ s[^(.+/)][]) |
|
62
|
0 |
2 |
if $res{'subdir'} =~ m[^Perl6/] |
|
66
|
3 |
593 |
unless $path =~ s/($SUFFRE)//i |
|
89
|
2 |
591 |
if ($distv =~ s/([_\-])(TRIAL(?:[0-9]*|[_.\-].+))$//) |
|
95
|
2 |
591 |
if ($distv =~ /^perl/ and $distv =~ s/\-(RC[0-9]*)$//) |
|
102
|
423 |
170 |
if ($distv =~ s/\-((?:[vV][0-9]|[0-9.])[^-]*)$//) { } |
|
|
16 |
154 |
elsif ($distv =~ s/\-((?:[vV][0-9]|[0-9.])(?![A-Z]).*?)$//) { } |
|
110
|
0 |
16 |
if ($distv eq 'perl' and not $version =~ /\./) |
|
118
|
109 |
484 |
if ($distv =~ s/([_\.-]?)([vV]?[0-9]*\.[0-9]+.*)$//) |
|
120
|
18 |
91 |
defined $version ? : |
|
124
|
0 |
109 |
if ($distv =~ s/_v$//) |
|
131
|
11 |
582 |
if (not defined $version and $distv =~ s/\-([a-z]+[0-9][0-9_]*)$//) |
|
138
|
23 |
570 |
if (not defined $version || $distv =~ /\-(?:S3|MSWin32|OS2)$/i and $distv =~ s/([_\.]?)([vV]?[0-9_]+[ab]?)$//) |
|
143
|
0 |
23 |
if (not $separator and $distv =~ s/_([a-z])$//) |
|
149
|
1 |
592 |
if (not defined $version and $distv =~ s/\-undef$//) |
|
156
|
5 |
588 |
if ($dist eq 'perl') { } |
|
|
6 |
582 |
elsif ($version and $version =~ /\d\.\d+_\d/ or $trial) { } |
|
157
|
5 |
0 |
if ($version =~ /\d\.(\d+)(?:\D(\d+))?/) |
|
158
|
0 |
5 |
if $1 > 6 and $1 & 1 or $2 and $2 >= 50 |
|
160
|
2 |
3 |
if ($rc) |
|
169
|
2 |
591 |
if ($trial) |
|
170
|
2 |
0 |
defined $version ? : |
|
182
|
564 |
29 |
if (defined $version) |
|
183
|
449 |
115 |
if ($version =~ /^([vV]?[0-9._]+)(?:\-|$)/) |
|
213
|
13 |
608 |
+(shift())->{'is_dev'} ? : |