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