Branch Coverage

blib/lib/Random/Skew.pm
Criterion Covered Total %
branch 41 46 89.1


line true false branch
11 9 0 if (@_)
13 2 7 if ($grain =~ /\D/) { }
6 1 elsif ($grain >= 2) { }
26 3 0 if (@_)
28 1 2 if ($rounding =~ /[^0-9.]/) { }
1 1 elsif ($rounding < 0 or $rounding > 1) { }
43 1 15 unless my(%params) = @_
47 0 15 unless $GRAIN > 2
51 99 2 if ($v >= 1) { }
57 2 13 if @bad
70 9 4 if ($tot > $GRAIN)
73 0 255 unless $params{$b} <=> $params{$a}
85 14 79 if ($running_tot < 1) { }
16 63 elsif ($vec < 1) { }
90 5 9 unless ($self->{'_fraction'})
98 16 0 if (%big) { }
100 2 14 unless ($self->{'_fraction'})
124 7 2 if %small
134 7 6 if ($small_skew)
140 5 2 if $fraction < 0
169 1045946 3434637 unless $fraction
171 396345 3038292 if ($ix <= $fraction) { }
2956557 81735 elsif ($ix >= 1) { }