| blib/lib/Sub/Throttler.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 33 | 57.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 25 | 0 | 0 | 6 | defined $cb_or_obj_or_class and not ref $cb_or_obj_or_class |
| 33 | 13 | 1 | 0 | ref $method and ref $method ne 'CODE' |
| 40 | 6 | 0 | 0 | ref $method and ref $method ne 'CODE' |
| 252 | 0 | 14 | 32 | @_ and ref $_[-1] eq 'CODE' |
| 0 | 0 | 10 | @_ and ref $_[-1] eq 'CODE' |
| line | l | !l | condition |
|---|---|---|---|
| 229 | 125 | 2 | delete $Running{$id} // [] |
| 252 | 15 | 16 | &throttle_me || (return) |
| 5 | 5 | &throttle_me || (return) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 0 | 14 | not $method or ref $method and ref $method ne 'CODE' |
| 40 | 0 | 0 | 6 | not $method or ref $method and ref $method ne 'CODE' |
| 228 | 6 | 106 | 15 | $is_used ||= 1 == @_ |
| 244 | 0 | 0 | 5 | not $func or ref $func |