| line |
true |
false |
branch |
|
34
|
26240 |
8251 |
if ($curr >= 0 and $curr <= $last) { } |
|
74
|
0 |
4589 |
unless (ref $right) |
|
82
|
13065 |
0 |
unless (ref $right) |
|
83
|
12448 |
617 |
if (length $right == 1) |
|
110
|
0 |
1755 |
if (defined $s and $s->{'current'} < $last) |
|
165
|
4 |
5 |
unless ($class eq $CLASS) |
|
172
|
4 |
5 |
if (@_) { } |
|
185
|
4 |
5 |
if (exists $args{'declare'}) |
|
188
|
3 |
1 |
unless defined &{$callpkg . '::declare';} |
|
191
|
9 |
0 |
if (exists $args{'qv'}) |
|
194
|
7 |
2 |
unless defined &{$callpkg . '::qv';} |
|
197
|
5 |
4 |
if (exists $args{'UNIVERSAL::VERSION'}) |
|
203
|
0 |
9 |
if (exists $args{'VERSION'}) |
|
207
|
0 |
9 |
if (exists $args{'is_strict'}) |
|
209
|
0 |
0 |
unless defined &{$callpkg . '::is_strict';} |
|
212
|
0 |
9 |
if (exists $args{'is_lax'}) |
|
214
|
0 |
0 |
unless defined &{$callpkg . '::is_lax';} |
|
241
|
68 |
0 |
if ($errstr) |
|
249
|
617 |
0 |
defined $sqv ? : |
|
250
|
617 |
0 |
defined $ssaw_decimal ? : |
|
251
|
617 |
0 |
defined $swidth ? : |
|
252
|
617 |
0 |
defined $salpha ? : |
|
256
|
8 |
609 |
if ($qv and isDIGIT($d)) |
|
260
|
164 |
445 |
if ($d eq 'v') { } |
|
262
|
144 |
20 |
if (isDIGIT($d)) { } |
|
271
|
0 |
0 |
if ($strict and $d eq 0 and isDIGIT($d + 1)) |
|
280
|
340 |
4 |
if ($d eq '.') { } |
|
287
|
0 |
4 |
if ($strict) { } |
|
304
|
0 |
948 |
if ($strict and $j > 3) |
|
308
|
52 |
684 |
if ($d eq '_') { } |
|
|
352 |
332 |
elsif ($d eq '.') { } |
|
|
332 |
0 |
elsif (not isDIGIT($d)) { } |
|
309
|
0 |
52 |
if ($strict) |
|
312
|
0 |
52 |
if ($alpha) |
|
319
|
0 |
352 |
if ($alpha) |
|
331
|
0 |
340 |
if ($strict and $i < 2) |
|
341
|
0 |
445 |
if ($strict) |
|
342
|
0 |
0 |
if ($d eq ".") |
|
345
|
0 |
0 |
if ($d eq 0 and isDIGIT($d + 1)) |
|
351
|
4 |
441 |
if ($d eq "-") |
|
361
|
353 |
88 |
if ($d eq '.') { } |
|
|
72 |
16 |
elsif (not $d or $d eq ';' or isSPACE($d) or $d eq '}') { } |
|
|
4 |
12 |
elsif ($d == $s) { } |
|
|
4 |
8 |
elsif ($d eq '_') { } |
|
|
8 |
0 |
elsif ($d) { } |
|
367
|
0 |
72 |
if ($d == $s) |
|
380
|
0 |
4 |
if ($strict) { } |
|
|
4 |
0 |
elsif (isDIGIT($d + 1)) { } |
|
396
|
4 |
0 |
if ($d and not isDIGIT($d) and $strict || !($d eq ';' || isSPACE($d) || $d eq '}')) |
|
403
|
196 |
511 |
if ($d eq "." and isDIGIT($d - 1)) |
|
404
|
4 |
192 |
if ($alpha) |
|
407
|
0 |
192 |
if ($strict) |
|
414
|
32 |
479 |
if ($d eq "_") |
|
415
|
0 |
32 |
if ($strict) |
|
418
|
4 |
28 |
if ($alpha) |
|
421
|
0 |
28 |
unless (isDIGIT($d + 1)) |
|
436
|
8 |
0 |
if ($d and not isDIGIT($d) and not $d eq ';' || $d eq '}') |
|
440
|
8 |
549 |
if ($saw_decimal > 1 and $d - 1 eq ".") |
|
445
|
549 |
0 |
if (defined $sqv) |
|
448
|
549 |
0 |
if (defined $swidth) |
|
451
|
549 |
0 |
if (defined $ssaw_decimal) |
|
454
|
549 |
0 |
if (defined $salpha) |
|
481
|
68 |
549 |
if ($errstr) |
|
483
|
68 |
0 |
if ($s ne "undef") |
|
490
|
144 |
405 |
if ($s eq "v") |
|
495
|
336 |
213 |
if ($qv) |
|
498
|
72 |
477 |
if ($alpha) |
|
501
|
16 |
533 |
if (not $qv and $width < 3) |
|
508
|
549 |
0 |
unless (isALPHA($pos)) |
|
523
|
183 |
1217 |
if (not $qv and $s > $start and $saw_decimal == 1) { } |
|
526
|
0 |
439 |
if $s eq "_" |
|
530
|
0 |
439 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
539
|
20 |
419 |
if ($s eq "_") |
|
546
|
52 |
1693 |
if $end eq "_" |
|
550
|
28 |
1665 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
563
|
28 |
1372 |
if ($vinf) { } |
|
|
801 |
571 |
elsif ($pos eq '.') { } |
|
|
4 |
567 |
elsif ($pos eq '_' and isDIGIT($pos + 1)) { } |
|
|
0 |
567 |
elsif ($pos eq ',' and isDIGIT($pos + 1)) { } |
|
|
46 |
521 |
elsif (isDIGIT($pos)) { } |
|
583
|
668 |
183 |
if ($qv) { } |
|
591
|
439 |
16 |
if ($pos ne "_") |
|
599
|
336 |
213 |
if ($qv) |
|
615
|
28 |
521 |
if ($vinf) { } |
|
|
521 |
0 |
elsif ($s > $start) { } |
|
621
|
4 |
328 |
if ($qv and $saw_decimal == 1 and $start ne "v") |
|
635
|
0 |
549 |
if ($s eq "undef") |
|
644
|
0 |
657 |
unless (defined $class or $#_ > 1) |
|
652
|
8 |
649 |
if ($#_ == 1) |
|
657
|
0 |
657 |
if (ref $value and eval "\$value->isa(\"version\")") |
|
660
|
0 |
0 |
if $value->{'qv'} |
|
661
|
0 |
0 |
if $value->{'alpha'} |
|
666
|
32 |
625 |
if (not defined $value or $value =~ /^undef$/) |
|
675
|
8 |
617 |
if (ref($value) =~ /ARRAY|HASH/) |
|
682
|
617 |
0 |
if ($version::vpp::Config{'d_setlocale'}) |
|
690
|
0 |
617 |
if (localeconv()->{'decimal_point'} eq ",") |
|
696
|
20 |
597 |
if ($value =~ /\d+.?\d*e[-+]?\d+/) |
|
703
|
0 |
549 |
if ($s) |
|
715
|
0 |
56 |
unless (_verify($self)) |
|
724
|
8 |
48 |
if ($alpha and warnings::enabled()) |
|
733
|
4 |
52 |
if ($len == 0) |
|
742
|
0 |
32 |
unless (_verify($self)) |
|
756
|
28 |
4 |
if ($len <= 2) |
|
767
|
0 |
347 |
unless (_verify($self)) |
|
774
|
4 |
0 |
exists $self->{'qv'} ? : |
|
|
343 |
4 |
exists $self->{'original'} ? : |
|
790
|
0 |
270 |
if @_ < 2 |
|
792
|
108 |
162 |
unless (UNIVERSAL::isa($right, $class)) |
|
796
|
20 |
246 |
if ($swap) |
|
799
|
0 |
266 |
unless (_verify($left)) |
|
803
|
0 |
266 |
unless (_verify($right)) |
|
809
|
41 |
225 |
$l < $r ? : |
|
820
|
40 |
226 |
if ($retval == 0 and $l != $r) |
|
821
|
24 |
16 |
if ($l < $r) { } |
|
823
|
20 |
4 |
if ($right->{'version'}[$i] != 0) |
|
831
|
12 |
8 |
if ($left->{'version'}[$i] != 0) |
|
860
|
24 |
0 |
if (@_) |
|
866
|
16 |
8 |
unless $value =~ /(^v|\d+\.\d+\.\d)/ |
|
888
|
0 |
4 |
if @args < 1 |
|
898
|
967 |
0 |
if (ref $self and eval {
do {
exists $self->{'version'}
}
} and ref $self->{'version'} eq 'ARRAY') { } |
|
913
|
4 |
504 |
if isSPACE($s) |
|
914
|
72 |
212 |
unless isALPHA($s) or isDIGIT($s) or $s =~ /[.-]/ |
|
923
|
72 |
569 |
if (length $value >= 1 and not $value =~ /[,._]/ and _is_non_alphanumeric($value)) |
|
926
|
72 |
0 |
if ($] >= 5.008001) { } |
|
|
0 |
0 |
elsif ($] >= 5.006) { } |
|
928
|
60 |
12 |
if length $tvalue |
|
932
|
0 |
0 |
if ($tvalue =~ /^v\d+(\.\d+)*$/) |
|
946
|
72 |
0 |
ref $sv eq 'B::PVMG' ? : |
|
948
|
60 |
0 |
if ($magic->TYPE eq 'V') { } |
|
966
|
4 |
81 |
if (exists $INC{"$class.pm"} and not %{"${class}::";} and $] >= "5.008") |
|
974
|
75 |
24 |
if (defined $version) |
|
975
|
0 |
75 |
if $] <= "5.008" |
|
979
|
66 |
25 |
if (defined $req) |
|
980
|
8 |
58 |
unless (defined $version) |
|
982
|
0 |
8 |
$] < 5.006 ? : |
|
987
|
0 |
8 |
if ($ENV{'VERSION_DEBUG'}) { } |
|
997
|
36 |
22 |
if ($req > $version) |
|
999
|
8 |
28 |
if ($req->is_qv) { } |
|
1016
|
31 |
16 |
defined $version ? : |