| blib/lib/Devel/throttle.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 16 | 6.2 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 1 | if (@code) { } |
| 25 | 0 | 0 | if (ref $code and 'CODE' eq ref $code) |
| 29 | 0 | 0 | if (ref $code and 'CODE' eq ref $code) { } |
| 33 | 0 | 0 | if $@ |
| 45 | 0 | 0 | unless $timeout > 0 |
| 47 | 0 | 0 | if $timeout |
| 56 | 0 | 0 | @Devel::throttle::args ? : |
| 59 | 0 | 0 | if $DB::throttlefunc |