Condition Coverage

blib/lib/Math/FractionManip.pm
Criterion Covered Total %
condition 54 101 53.4


and 2 conditions

line l !l condition
304 0 1 $self->copy_set('CURRENT', $name) && $name

and 3 conditions

line !l l&&!r l&&r condition
63 7 5 52 _is_decimal($_[0]) and _is_decimal($_[1])
12 50 2 _is_decimal($_[0]) and _is_decimal($_[1]) and _is_decimal($_[2])
7 5 50 _is_decimal($_[0]) and _is_decimal($_[1])
106 12 19 33 _tag($REDUCE, \@tags) ne 'NO_REDUCE' and _tag($RED_STATE, \@tags) ne 'IS_REDUCED'
109 27 0 6 $not_reduced and _tag($AUTO, \@tags) eq 'AUTO'
126 7 1 6 $frac[0] != 0 and $frac[1] != 0
196 3 0 0 $tags[$num] eq undef and not $default
197 3 0 0 $DEF{'CURRENT'}{'TAGS'}[$num] eq $tag and $tags[$num] eq undef
3 0 0 $DEF{'CURRENT'}{'TAGS'}[$num] eq $tag and $tags[$num] eq undef and $default
220 0 0 0 $tags[$num] eq undef and not $inc_def
221 0 0 0 $tags[$num] eq undef and $inc_def
262 0 0 1 exists $DEF{$name} and not $DEF{$name}{'READONLY'}
324 0 0 0 exists $DEF{$_[1]} and not $DEF{$_[1]}{'SYSTEM'}
432 0 1 16 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto
1 0 16 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL'
1 16 0 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL' and $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
472 0 1 7 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto
1 0 7 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL'
1 7 0 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL' and $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
509 0 0 2 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto
0 0 2 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL'
0 2 0 _tag($AUTO, \@tags) eq 'AUTO' and not $skipauto and $tags[$SIZE] eq 'SMALL' and $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
599 2 0 65 $tagsref->[$SIZE] eq 'SMALL' and $auto
616 6 0 0 $tagsref->[$SIZE] eq 'BIG' and $direction eq 'BOTH'
715 148 30 1 $x0 > 99999999 || $x > 999999999 and int($x0 / $x) * $x + $y != $x0

or 3 conditions

line l !l&&r !l&&!r condition
61 0 64 0 ref $proto || $proto
303 0 0 1 not $name or $name eq 'RAND'
310 0 0 3 $DEF{$name2}{'READONLY'} or $name2 eq 'BLANK'
0 0 3 $DEF{$name2}{'READONLY'} or $name2 eq 'BLANK' or not exists $DEF{$name1}
432 1 0 15 $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
472 1 0 6 $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
509 0 0 2 $frac[0] =~ /[eE]/ || $frac[1] =~ /[eE]/
715 31 0 148 $x0 > 99999999 || $x > 999999999