Condition Coverage

blib/lib/Math/Decimal128.pm
Criterion Covered Total %
condition 49 84 58.3


and 3 conditions

line !l l&&!r l&&r condition
443 2 9 309392 not ref $_[0] and $_[0] eq 'Math::Decimal128'
555 3827 284 175 substr($rounder, 0, 1) == 5 and substr($rounder, 1) =~ /[1-9]/ || substr($man, -1, 1) % 2 == 1
1050 24 10 4 substr($trailing, $_[1]) =~ /^5(0+)?$/ and substr($trailing, $_[1] - 1, 1) % 2 == 0

or 2 conditions

line l !l condition
521 13436 360202 substr($arg1, -34, 10) || '0'
522 107602 266036 substr($arg1, -24, 12) || '0'
523 371270 2368 substr($arg1, -12, 12) || '0'
598 2 9 substr($arg2, -34, 10) || '0'
599 2 9 substr($arg2, -24, 12) || '0'
600 10 1 substr($arg2, -12, 12) || '0'

or 3 conditions

line l !l&&r !l&&!r condition
397 0 12 48 is_InfD128($_[0]) or not $_[0]
405 2 2 47728 is_NaND128($_[0]) or is_InfD128($_[0])
4 356 47372 is_NaND128($_[0]) or is_InfD128($_[0]) or is_ZeroD128($_[0])
509 1 11278 362360 $len_1 > 34 or $arg2 < -6176
555 429 18 12 substr($rounder, 1) =~ /[1-9]/ || substr($man, -1, 1) % 2 == 1
588 0 0 11 $len_2 > 34 or $arg3 < -6176
666 0 0 0 $first[1] =~ /inf/i or $first[1] =~ /nan/i
700 0 0 0 $pre eq '00' or $pre eq '01'
0 0 0 $pre eq '00' or $pre eq '01' or $pre eq '10'
706 0 0 0 $pre eq '1100' or $pre eq '1101'
0 0 0 $pre eq '1100' or $pre eq '1101' or $pre eq '1110'
750 378 183938 375 $pre eq '00' or $pre eq '01'
184316 375 0 $pre eq '00' or $pre eq '01' or $pre eq '10'
766 0 0 0 $pre eq '1100' or $pre eq '1101'
0 0 0 $pre eq '1100' or $pre eq '1101' or $pre eq '1110'
865 0 0 0 $pre eq '00' or $pre eq '01'
0 0 0 $pre eq '00' or $pre eq '01' or $pre eq '10'
873 374 8944 406 $pre eq '00' or $pre eq '01'
9318 406 0 $pre eq '00' or $pre eq '01' or $pre eq '10'
944 0 0 0 length $man > 34 or $exp < -6176
1050 14 20 18 substr($trailing, $_[1], 1) <= 4 or substr($trailing, $_[1]) =~ /^5(0+)?$/ and substr($trailing, $_[1] - 1, 1) % 2 == 0