| line |
true |
false |
branch |
|
56
|
49 |
0 |
if ($version_str =~ /^
v?
(?:
(?:(?P[0-9]+)!)? # epoch
(?P[0-9]+(?:\.[0-9]+)*) # release segment
(?P # pre-release
[-_\.]?
(?P(a|b|c|rc|alpha|beta|pre|preview))
[-_\.]?
(?P[0-9]+)?
)?
(?P # post release
(?:-(?P[0-9]+))
|
(?:
[-_\.]?
(?Ppost|rev|r)
[-_\.]?
(?P[0-9]+)?
)
)?
(?P # dev release
[-_\.]?
(?Pdev)
[-_\.]?
(?P[0-9]+)?
)?
)
(?:\+(?P[a-z0-9]+(?:[-_\.][a-z0-9]+)*))? # local version
$/x) { } |
|
70
|
6 |
43 |
if (defined $epoch) |
|
73
|
19 |
30 |
if (defined $pre) { } |
|
|
13 |
17 |
elsif (defined $post) { } |
|
81
|
13 |
36 |
if (defined $dev) |
|
84
|
11 |
38 |
if (defined $local) |
|
97
|
3 |
16 |
if $label eq "alpha" |
|
98
|
0 |
16 |
if $label eq "beta" |
|
99
|
12 |
4 |
if grep {$label eq $_;} "c", "pre", "preview" |
|
128
|
9 |
12 |
if (defined $self->{'_local_version'}) { } |
|
141
|
5 |
10 |
if (my $local = $self->local) |
|
158
|
5 |
10 |
if ($self->{'_epoch'}) |
|
162
|
10 |
5 |
if ($self->is_prerelease) { } |
|
|
5 |
0 |
elsif ($self->is_postrelease) { } |
|
168
|
10 |
5 |
if ($self->is_devrelease) |
|
177
|
17 |
0 |
unless (UNIVERSAL::isa($right, $class)) |
|
183
|
1 |
16 |
if $rslt_epoch != 0 |
|
188
|
4 |
12 |
if $rslt_base != 0 |
|
194
|
9 |
3 |
if $rslt_converted != 0 |
|
209
|
17 |
7 |
if ($is_prerelease or $is_postrelease) { } |
|
|
1 |
6 |
elsif ($is_devrelease) { } |
|
210
|
9 |
8 |
if ($is_prerelease) { } |
|
216
|
2 |
15 |
if ($is_devrelease) { } |