Branch Coverage

blib/lib/Math/Random.pm
Criterion Covered Total %
branch 59 146 40.4


line true false branch
57 0 0 if $constname eq 'constant'
58 0 0 @_ ? :
59 0 0 if ($! != 0)
60 0 0 if ($! =~ /Invalid/) { }
83 0 1 if scalar @_ < 3
85 0 1 if $aa < 1e-37 or $bb < 1e-37
88 0 1 unless wantarray
96 0 1 if scalar @_ < 2
98 0 1 if $df <= 0
99 0 1 unless wantarray
107 0 0 wantarray ? :
0 1 if scalar @_ == 0
110 0 1 unless defined $av
111 0 1 if $av < 0
112 0 1 unless wantarray
120 0 1 if scalar @_ < 3
122 0 1 if $dfn <= 0 or $dfd <= 0
124 0 1 unless wantarray
132 0 1 if scalar @_ < 3
134 0 1 if $a <= 0 or $r <= 0
136 0 1 unless wantarray
145 0 1 if scalar @_ < 3
151 0 1 unless $p == int $p and not "$_[$p - 1]" =~ /^ARRAY/ and "$_[$p]" =~ /^ARRAY/
168 0 2 unless scalar @{$ref;} == $p
174 0 1 unless putflt(@linear)
178 0 1 unless psetmn($p)
181 0 1 unless (wantarray)
200 0 1 if $n < 0
201 0 1 if $ncat < 2
203 0 1 unless rspriw($ncat)
206 0 1 unless rsprfw(scalar @p)
209 0 2 if $val < 0 or $val > 1
215 0 1 if $sum > 0.99999
228 0 0 if scalar @_ < 3
231 0 0 if $df < 1 or $nonc < 0
234 0 0 unless wantarray
242 0 0 if scalar @_ < 4
245 0 0 if $dfn < 1 or $dfd <= 0 or $nonc < 0
248 0 0 unless wantarray
256 0 0 wantarray ? :
0 1 if scalar @_ == 0
259 0 1 unless defined $av
260 0 1 unless defined $sd
261 0 1 if $sd < 0
262 0 1 unless wantarray
271 0 1 if $n == 0
272 0 1 unless rspriw($n)
285 0 1 if scalar @_ < 1
287 0 1 if $n < 0
288 0 1 if $n == 0
289 0 1 unless rspriw($n)
302 0 0 wantarray ? :
0 1 if scalar @_ == 0
304 0 1 if scalar @_ == 2
307 0 1 unless defined $low
308 0 1 unless defined $high
309 0 1 if $low > $high
311 0 1 unless wantarray
319 0 1 if scalar @_ < 2
321 0 1 if $mu < 0
322 0 1 unless wantarray
330 0 1 if scalar @_ < 3
334 0 1 if $low > $high
337 0 1 if $range > 2147483561
339 0 1 unless wantarray
347 0 1 if scalar @_ < 3
350 0 1 if $ne <= 0 or ($p <= 0 or $p >= 1)
353 0 1 unless wantarray
361 0 1 if scalar @_ < 3
364 0 1 if $nt < 0 or ($p < 0 or $p > 1)
367 0 1 unless wantarray
397 0 0 unless $seed1 == int $seed1 and $seed2 == int $seed2 and ($seed1 > 0 and $seed2 > 0) and ($seed1 < 2147483563 and $seed2 < 2147483399)
428 0 1 unless rsprfw($n)