| line |
true |
false |
branch |
|
34
|
26392 |
8251 |
if ($curr >= 0 and $curr <= $last) { } |
|
74
|
0 |
4589 |
unless (ref $right) |
|
82
|
13073 |
0 |
unless (ref $right) |
|
83
|
12456 |
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
|
164 |
453 |
if ($d eq "v") |
|
258
|
144 |
20 |
if (isDIGIT($d)) { } |
|
267
|
152 |
445 |
if ($qv and isDIGIT($d)) { } |
|
269
|
0 |
0 |
if ($strict and $d eq 0 and isDIGIT($d + 1)) |
|
278
|
340 |
4 |
if ($d eq '.') { } |
|
285
|
0 |
4 |
if ($strict) { } |
|
302
|
0 |
948 |
if ($strict and $j > 3) |
|
306
|
52 |
684 |
if ($d eq '_') { } |
|
|
352 |
332 |
elsif ($d eq '.') { } |
|
|
332 |
0 |
elsif (not isDIGIT($d)) { } |
|
307
|
0 |
52 |
if ($strict) |
|
310
|
0 |
52 |
if ($alpha) |
|
317
|
0 |
352 |
if ($alpha) |
|
329
|
0 |
340 |
if ($strict and $i < 2) |
|
339
|
0 |
445 |
if ($strict) |
|
340
|
0 |
0 |
if ($d eq ".") |
|
343
|
0 |
0 |
if ($d eq 0 and isDIGIT($d + 1)) |
|
349
|
4 |
441 |
if ($d eq "-") |
|
359
|
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) { } |
|
365
|
0 |
72 |
if ($d == $s) |
|
378
|
0 |
4 |
if ($strict) { } |
|
|
4 |
0 |
elsif (isDIGIT($d + 1)) { } |
|
394
|
4 |
0 |
if ($d and not isDIGIT($d) and $strict || !($d eq ';' || isSPACE($d) || $d eq '}')) |
|
401
|
196 |
511 |
if ($d eq "." and isDIGIT($d - 1)) |
|
402
|
4 |
192 |
if ($alpha) |
|
405
|
0 |
192 |
if ($strict) |
|
412
|
32 |
479 |
if ($d eq "_") |
|
413
|
0 |
32 |
if ($strict) |
|
416
|
4 |
28 |
if ($alpha) |
|
419
|
0 |
28 |
unless (isDIGIT($d + 1)) |
|
434
|
8 |
0 |
if ($d and not isDIGIT($d) and not $d eq ';' || $d eq '}') |
|
438
|
8 |
549 |
if ($saw_decimal > 1 and $d - 1 eq ".") |
|
443
|
549 |
0 |
if (defined $sqv) |
|
446
|
549 |
0 |
if (defined $swidth) |
|
449
|
549 |
0 |
if (defined $ssaw_decimal) |
|
452
|
549 |
0 |
if (defined $salpha) |
|
479
|
68 |
549 |
if ($errstr) |
|
481
|
68 |
0 |
if ($s ne "undef") |
|
488
|
144 |
405 |
if ($s eq "v") |
|
493
|
336 |
213 |
if ($qv) |
|
496
|
72 |
477 |
if ($alpha) |
|
499
|
16 |
533 |
if (not $qv and $width < 3) |
|
506
|
549 |
0 |
unless (isALPHA($pos)) |
|
521
|
183 |
1217 |
if (not $qv and $s > $start and $saw_decimal == 1) { } |
|
524
|
0 |
439 |
if $s eq "_" |
|
528
|
0 |
439 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
537
|
20 |
419 |
if ($s eq "_") |
|
544
|
52 |
1693 |
if $end eq "_" |
|
548
|
28 |
1665 |
if (abs $orev > abs $rev or abs $rev > $VERSION_MAX) |
|
561
|
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)) { } |
|
581
|
668 |
183 |
if ($qv) { } |
|
589
|
439 |
16 |
if ($pos ne "_") |
|
597
|
336 |
213 |
if ($qv) |
|
613
|
28 |
521 |
if ($vinf) { } |
|
|
521 |
0 |
elsif ($s > $start) { } |
|
619
|
4 |
328 |
if ($qv and $saw_decimal == 1 and $start ne "v") |
|
633
|
0 |
549 |
if ($s eq "undef") |
|
642
|
0 |
657 |
unless (defined $class or $#_ > 1) |
|
650
|
8 |
649 |
if ($#_ == 1) |
|
655
|
0 |
657 |
if (ref $value and eval "\$value->isa(\"version\")") |
|
658
|
0 |
0 |
if $value->{'qv'} |
|
659
|
0 |
0 |
if $value->{'alpha'} |
|
664
|
32 |
625 |
if (not defined $value or $value =~ /^undef$/) |
|
673
|
8 |
617 |
if (ref($value) =~ /ARRAY|HASH/) |
|
680
|
617 |
0 |
if ($version::vpp::Config{'d_setlocale'}) |
|
688
|
0 |
617 |
if (localeconv()->{'decimal_point'} eq ",") |
|
694
|
20 |
597 |
if ($value =~ /\d+.?\d*e[-+]?\d+/) |
|
701
|
0 |
549 |
if ($s) |
|
713
|
0 |
56 |
unless (_verify($self)) |
|
722
|
8 |
48 |
if ($alpha and warnings::enabled()) |
|
731
|
4 |
52 |
if ($len == 0) |
|
740
|
0 |
32 |
unless (_verify($self)) |
|
754
|
28 |
4 |
if ($len <= 2) |
|
765
|
0 |
347 |
unless (_verify($self)) |
|
772
|
4 |
0 |
exists $self->{'qv'} ? : |
|
|
343 |
4 |
exists $self->{'original'} ? : |
|
788
|
0 |
270 |
if @_ < 2 |
|
790
|
108 |
162 |
unless (UNIVERSAL::isa($right, $class)) |
|
794
|
20 |
246 |
if ($swap) |
|
797
|
0 |
266 |
unless (_verify($left)) |
|
801
|
0 |
266 |
unless (_verify($right)) |
|
807
|
41 |
225 |
$l < $r ? : |
|
818
|
40 |
226 |
if ($retval == 0 and $l != $r) |
|
819
|
24 |
16 |
if ($l < $r) { } |
|
821
|
20 |
4 |
if ($right->{'version'}[$i] != 0) |
|
829
|
12 |
8 |
if ($left->{'version'}[$i] != 0) |
|
858
|
24 |
0 |
if (@_) |
|
864
|
16 |
8 |
unless $value =~ /(^v|\d+\.\d+\.\d)/ |
|
886
|
0 |
4 |
if @args < 1 |
|
896
|
967 |
0 |
if (ref $self and eval {
do {
exists $self->{'version'}
}
} and ref $self->{'version'} eq 'ARRAY') { } |
|
911
|
4 |
504 |
if isSPACE($s) |
|
912
|
72 |
212 |
unless isALPHA($s) or isDIGIT($s) or $s =~ /[.-]/ |
|
921
|
72 |
569 |
if (length $value >= 1 and not $value =~ /[,._]/ and _is_non_alphanumeric($value)) |
|
924
|
72 |
0 |
if ($] >= 5.008001) { } |
|
|
0 |
0 |
elsif ($] >= 5.006) { } |
|
926
|
60 |
12 |
if length $tvalue |
|
930
|
0 |
0 |
if ($tvalue =~ /^v\d+(\.\d+)*$/) |
|
944
|
72 |
0 |
ref $sv eq 'B::PVMG' ? : |
|
946
|
60 |
0 |
if ($magic->TYPE eq 'V') { } |
|
964
|
4 |
81 |
if (exists $INC{"$class.pm"} and not %{"${class}::";} and $] >= "5.008") |
|
972
|
75 |
24 |
if (defined $version) |
|
973
|
0 |
75 |
if $] <= "5.008" |
|
977
|
66 |
25 |
if (defined $req) |
|
978
|
8 |
58 |
unless (defined $version) |
|
980
|
0 |
8 |
$] < 5.006 ? : |
|
985
|
0 |
8 |
if ($ENV{'VERSION_DEBUG'}) { } |
|
995
|
36 |
22 |
if ($req > $version) |
|
997
|
8 |
28 |
if ($req->is_qv) { } |
|
1014
|
31 |
16 |
defined $version ? : |