Branch Coverage

blib/lib/Math/GoldenBigMath.pm
Criterion Covered Total %
branch 108 146 73.9


line true false branch
56 65 1041 unless $number
92 2110 269 if $sign == 1
93 269 0 if $sign == -1
150 312 3240 if ($signStr eq '-') { }
617 2623 elsif ($signStr eq '+') { }
159 2256 1296 unless $number
189 34 1072 if ($number =~ /^([\+\-]?\d+)(\.\d*)e([\+\-]?\d+)$/) { }
347 725 elsif ($number =~ /^([\+\-]?\d+)e([\+\-]?\d+)$/) { }
57 668 elsif ($number =~ /^([\+\-]?\d+)(\.\d*)$/) { }
668 0 elsif ($number =~ /^([\+\-]?\d+)$/) { }
232 1052 54 unless $exp
237 32 1074 if $exp_sign < 0
265 124 992 if ($coeff =~ /(\d)(0+)$/)
273 119 997 if $coeff eq ''
275 119 997 if ($coeff eq '0')
288 0 32 if $self->_getExpSign < 0
291 0 32 if $exp > $Math::GoldenBigMath::_COEFF_MAX_DIGITS
295 21 11 if $exp eq '0'
311 68 218 if ($exp1 > $exp2) { }
28 190 elsif ($exp1 < $exp2) { }
343 0 110 unless $moves =~ /^[1-9][0-9]*$/
348 0 110 if $moves > $Math::GoldenBigMath::_COEFF_MAX_DIGITS
352 0 110 if $moves <= 0 or $moves + length($self->_getCoeff) > $Math::GoldenBigMath::_COEFF_MAX_DIGITS
372 1 0 $gbm1->GetValue eq $gbm2->GetValue ? :
381 3 1 $gbm1->GetValue ne $gbm2->GetValue ? :
388 1 0 ($gbm1 <=> $gbm2) > 0 ? :
395 1 0 ($gbm1 <=> $gbm2) < 0 ? :
403 1 0 ($gbm1 <=> $gbm2) >= 0 ? :
410 2 0 ($gbm1 <=> $gbm2) <= 0 ? :
419 55 161 unless ref $gbm1
420 55 106 unless ref $gbm2
432 85 21 if ($sign1 == $sign2) { }
436 11 10 $sign1 > 0 ? :
441 0 21 if $result->_getExp ne '0'
458 76 154 unless ref $gbm1
459 76 78 unless ref $gbm2
471 58 20 if ($sign1 == $sign2) { }
472 19 39 Compare($z, $subtr) < 0 ? :
474 19 39 if ($swap) { }
476 2 17 $sign1 < 0 ? :
500 26 102 unless ref $gbm1
501 26 76 unless ref $gbm2
506 16 60 if $coeff1 == 0 or $coeff2 == 0
512 55 5 $gbm1->_getCoeffSign eq $gbm2->_getCoeffSign ? :
530 86 183 unless ref $gbm1
531 87 96 unless ref $gbm2
536 0 96 if ($sign ne $sign2)
549 71 25 if ($l1 == $l2) { }
553 16 9 $l1 > $l2 ? :
556 96 0 $sign > 0 ? :
564 0 86 unless $z =~ /^\d+$/
588 362 532 $i1 > $i2 ? :
607 4381 165 if $i1 >= 0
608 4103 443 if $i2 >= 0
612 1467 3079 if ($s > 9) { }
626 93 801 if $u
633 10 884 unless $result
648 0 58 if $addZeroCount < 0
651 19 39 if $addZeroCount > 0
667 21 327 if ($d < 0) { }
682 16 42 unless $result
711 101 0 if ($d != 0)
719 0 101 if ($c > 16383)
723 0 101 unless $c++ & 127
774 0 0 unless ($bmRest < $mulTab[1])
776 0 0 if ($mulTab[$z + 1] > $bmRest)
779 0 0 if $z < 9
783 0 0 if ($mulTab[$z] > $bmRest)
801 0 0 if ($i < $bm1Len) { }
0 0 elsif ($i == $bm1Len) { }
807 0 0 if ($gbm1->GetOperator eq '%')
822 0 0 if ($c > 16383)
826 0 0 unless $c++ % 127