| blib/lib/Stream/Aggregate/Random.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 9 | 9 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 3 | 3 | 100.0 |
| pod | n/a | ||
| total | 12 | 12 | 100.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | |||||||
| 2 | package Stream::Aggregate::Random; | ||||||
| 3 | |||||||
| 4 | 5 | 5 | 28 | use strict; | |||
| 5 | 9 | ||||||
| 5 | 181 | ||||||
| 5 | 5 | 5 | 25 | use warnings; | |||
| 5 | 11 | ||||||
| 5 | 136 | ||||||
| 6 | 5 | 5 | 5526 | use Time::HiRes qw(time); | |||
| 5 | 12208 | ||||||
| 5 | 27 | ||||||
| 7 | |||||||
| 8 | srand((time * 9327) ^ ($$ << 3) + (time % 8379)); | ||||||
| 9 | |||||||
| 10 | 1; | ||||||
| 11 | |||||||
| 12 | __END__ |