| line |
true |
false |
branch |
|
34
|
24444 |
7696 |
if ($curr >= 0 and $curr <= $last) { } |
|
74
|
0 |
4192 |
unless (ref $right) |
|
82
|
11856 |
0 |
unless (ref $right) |
|
83
|
11276 |
580 |
if (length $right == 1) |
|
110
|
0 |
1644 |
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
|
580 |
0 |
defined $sqv ? : |
|
250
|
580 |
0 |
defined $ssaw_decimal ? : |
|
251
|
580 |
0 |
defined $swidth ? : |
|
252
|
580 |
0 |
defined $salpha ? : |
|
256
|
8 |
572 |
if ($qv and isDIGIT($d)) |
|
260
|
152 |
420 |
if ($d eq 'v') { } |
|
262
|
132 |
20 |
if (isDIGIT($d)) { } |
|
271
|
0 |
0 |
if ($strict and $d eq 0 and isDIGIT($d + 1)) |
|
280
|
328 |
4 |
if ($d eq '.') { } |
|
287
|
0 |
4 |
if ($strict) { } |
|
304
|
0 |
920 |
if ($strict and $j > 3) |
|
308
|
52 |
656 |
if ($d eq '_') { } |
|
|
336 |
320 |
elsif ($d eq '.') { } |
|
|
320 |
0 |
elsif (not isDIGIT($d)) { } |
|
309
|
0 |
52 |
if ($strict) |
|
312
|
0 |
52 |
if ($alpha) |
|
319
|
0 |
336 |
if ($alpha) |
|
331
|
0 |
328 |
if ($strict and $i < 2) |
|
341
|
0 |
420 |
if ($strict) |
|
342
|
0 |
0 |
if ($d eq ".") |
|
345
|
0 |
0 |
if ($d eq 0 and isDIGIT($d + 1)) |
|
351
|
4 |
416 |
if ($d eq "-") |
|
361
|
328 |
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 |
392 |
if ($d eq "." and isDIGIT($d - 1)) |
|
404
|
4 |
192 |
if ($alpha) |
|
407
|
0 |
192 |
if ($strict) |
|
414
|
32 |
360 |
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 |
512 |
if ($saw_decimal > 1 and $d - 1 eq ".") |
|
445
|
512 |
0 |
if (defined $sqv) |
|
448
|
512 |
0 |
if (defined $swidth) |
|
451
|
512 |
0 |
if (defined $ssaw_decimal) |
|
454
|
512 |
0 |
if (defined $salpha) |
|
481
|
68 |
512 |
if ($errstr) |
|
483
|
68 |
0 |
if ($s ne "undef") |
|
490
|
132 |
380 |
if ($s eq "v") |
|
495
|
324 |
188 |
if ($qv) |
|
498
|
72 |
440 |
if ($alpha) |
|
501
|
16 |
496 |
if (not $qv and $width < 3) |
|
508
|
512 |
0 |
unless (isALPHA($pos)) |
|
523
|
140 |
1152 |
if (not $qv and $s > $start and $saw_decimal == 1) { } |
|
526
|
0 |
320 |
if $s eq "_" |
|
530
|
0 |
320 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
539
|
20 |
300 |
if ($s eq "_") |
|
546
|
52 |
1628 |
if $end eq "_" |
|
550
|
28 |
1600 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
563
|
28 |
1264 |
if ($vinf) { } |
|
|
748 |
516 |
elsif ($pos eq '.') { } |
|
|
4 |
512 |
elsif ($pos eq '_' and isDIGIT($pos + 1)) { } |
|
|
0 |
512 |
elsif ($pos eq ',' and isDIGIT($pos + 1)) { } |
|
|
28 |
484 |
elsif (isDIGIT($pos)) { } |
|
583
|
640 |
140 |
if ($qv) { } |
|
591
|
320 |
16 |
if ($pos ne "_") |
|
599
|
324 |
188 |
if ($qv) |
|
615
|
28 |
484 |
if ($vinf) { } |
|
|
484 |
0 |
elsif ($s > $start) { } |
|
621
|
4 |
316 |
if ($qv and $saw_decimal == 1 and $start ne "v") |
|
635
|
0 |
512 |
if ($s eq "undef") |
|
644
|
0 |
620 |
unless (defined $class or $#_ > 1) |
|
652
|
8 |
612 |
if ($#_ == 1) |
|
657
|
0 |
620 |
if (ref $value and eval "\$value->isa(\"version\")") |
|
660
|
0 |
0 |
if $value->{'qv'} |
|
661
|
0 |
0 |
if $value->{'alpha'} |
|
666
|
32 |
588 |
if (not defined $value or $value =~ /^undef$/) |
|
675
|
8 |
580 |
if (ref($value) =~ /ARRAY|HASH/) |
|
682
|
580 |
0 |
if ($version::vpp::Config{'d_setlocale'}) |
|
690
|
0 |
580 |
if (localeconv()->{'decimal_point'} eq ",") |
|
696
|
20 |
560 |
if ($value =~ /\d+.?\d*e[-+]?\d+/) |
|
703
|
0 |
512 |
if ($s) |
|
715
|
0 |
52 |
unless (_verify($self)) |
|
724
|
8 |
44 |
if ($alpha and warnings::enabled()) |
|
733
|
4 |
48 |
if ($len == 0) |
|
742
|
0 |
24 |
unless (_verify($self)) |
|
756
|
24 |
0 |
if ($len <= 2) |
|
767
|
0 |
328 |
unless (_verify($self)) |
|
774
|
0 |
0 |
exists $self->{'qv'} ? : |
|
|
328 |
0 |
exists $self->{'original'} ? : |
|
780
|
0 |
260 |
if @_ < 2 |
|
782
|
104 |
156 |
unless (UNIVERSAL::isa($right, $class)) |
|
786
|
20 |
236 |
if ($swap) |
|
789
|
0 |
256 |
unless (_verify($left)) |
|
793
|
0 |
256 |
unless (_verify($right)) |
|
799
|
40 |
216 |
$l < $r ? : |
|
810
|
40 |
216 |
if ($retval == 0 and $l != $r) |
|
811
|
24 |
16 |
if ($l < $r) { } |
|
813
|
20 |
4 |
if ($right->{'version'}[$i] != 0) |
|
821
|
12 |
8 |
if ($left->{'version'}[$i] != 0) |
|
850
|
24 |
0 |
if (@_) |
|
856
|
16 |
8 |
unless $value =~ /(^v|\d+\.\d+\.\d)/ |
|
871
|
916 |
0 |
if (ref $self and eval {
do {
exists $self->{'version'}
}
} and ref $self->{'version'} eq 'ARRAY') { } |
|
886
|
4 |
504 |
if isSPACE($s) |
|
887
|
72 |
212 |
unless isALPHA($s) or isDIGIT($s) or $s =~ /[.-]/ |
|
896
|
72 |
532 |
if (length $value >= 1 and not $value =~ /[,._]/ and _is_non_alphanumeric($value)) |
|
899
|
72 |
0 |
if ($] >= 5.008001) { } |
|
|
0 |
0 |
elsif ($] >= 5.006) { } |
|
901
|
60 |
12 |
if length $tvalue |
|
905
|
0 |
0 |
if ($tvalue =~ /^v\d+(\.\d+)*$/) |
|
919
|
72 |
0 |
ref $sv eq 'B::PVMG' ? : |
|
921
|
60 |
0 |
if ($magic->TYPE eq 'V') { } |
|
939
|
4 |
80 |
if (exists $INC{"$class.pm"} and not %{"${class}::";} and $] >= "5.008") |
|
947
|
68 |
24 |
if (defined $version) |
|
948
|
0 |
68 |
if $] <= "5.008" |
|
952
|
60 |
24 |
if (defined $req) |
|
953
|
8 |
52 |
unless (defined $version) |
|
955
|
0 |
8 |
$] < 5.006 ? : |
|
960
|
0 |
8 |
if ($ENV{'VERSION_DEBUG'}) { } |
|
970
|
36 |
16 |
if ($req > $version) |
|
972
|
8 |
28 |
if ($req->is_qv) { } |
|
989
|
24 |
16 |
defined $version ? : |