| blib/lib/Sub/Frequency.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 100 | 300 | if (wantarray) { } |
| 45 | 0 | 200 | unless looks_like_number $probability |
| 48 | 149 | 51 | if rand() <= $probability |
| 59 | 100 | 200 | if rand() < $probabilities{$name} |
| 62 | 100 | 0 | if rand() < $probabilities{ref $code} |
| 70 | 8 | 0 | if ($thing =~ /^\s*(\d+|\d*\.\d+)\s*%\s*$/) { } |