line |
true |
false |
branch |
55
|
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) { } |
69
|
6 |
43 |
if (defined $epoch) |
72
|
19 |
30 |
if (defined $pre) { } |
|
13 |
17 |
elsif (defined $post) { } |
80
|
13 |
36 |
if (defined $dev) |
83
|
11 |
38 |
if (defined $local) |
96
|
3 |
16 |
if $label eq 'alpha' |
97
|
0 |
16 |
if $label eq 'beta' |
98
|
12 |
4 |
if grep {$label eq $_;} 'c', 'pre', 'preview' |
127
|
9 |
12 |
if (defined $self->{'_local_version'}) { } |
140
|
5 |
10 |
if (my $local = $self->local) |
157
|
5 |
10 |
if ($self->{'_epoch'}) |
161
|
10 |
5 |
if ($self->is_prerelease) { } |
|
5 |
0 |
elsif ($self->is_postrelease) { } |
167
|
10 |
5 |
if ($self->is_devrelease) |
176
|
17 |
0 |
unless (UNIVERSAL::isa($right, $class)) |
182
|
1 |
16 |
if $rslt_epoch != 0 |
187
|
4 |
12 |
if $rslt_base != 0 |
193
|
9 |
3 |
if $rslt_converted != 0 |
208
|
17 |
7 |
if ($is_prerelease or $is_postrelease) { } |
|
1 |
6 |
elsif ($is_devrelease) { } |
209
|
9 |
8 |
if ($is_prerelease) { } |
215
|
2 |
15 |
if ($is_devrelease) { } |