Branch Coverage

blib/lib/Tie/Hash/Interpolate.pm
Criterion Covered Total %
branch 38 42 90.4


line true false branch
33 1 7 unless grep(($_ eq $opts{'extrapolate'}), "linear", "undef", "fatal", "constant")
35 0 7 unless grep(($_ eq $opts{'one_key'}), "undef", "fatal", "constant")
75 2 17 if ref $key or not &looks_like_number($key)
79 2 15 if ref $val or not &looks_like_number($val)
96 2 43 if ref $key or not &looks_like_number($key)
103 3 40 if exists $self->{'_DATA'}{$key}
106 13 27 if $self->{'_SORT'}
111 2 38 if @keys < 1
115 4 34 if (@keys == 1)
121 0 4 $one_key_opt eq 'undef' ? :
0 4 $one_key_opt eq 'fatal' ? :
131 15 19 if ($key < $keys[0]) { }
9 10 elsif ($key > $keys[-1]) { }
136 1 12 $extrap_opt eq 'undef' ? :
1 13 $extrap_opt eq 'fatal' ? :
1 14 $extrap_opt eq 'constant' ? :
149 1 6 $extrap_opt eq 'undef' ? :
1 7 $extrap_opt eq 'fatal' ? :
1 8 $extrap_opt eq 'constant' ? :
163 10 1 if $key <= $upper
164 0 1 if $i == $#keys - 1