Branch Coverage

blib/lib/version/vpp.pm
Criterion Covered Total %
branch 195 276 70.6


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 ? :