blib/lib/Async/Hooks.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 16 | 18 | 88.8 |
line | true | false | branch |
---|---|---|---|
23 | 2 | 21 | unless $hook |
24 | 2 | 19 | unless ref $cb eq 'CODE' |
37 | 0 | 6 | unless $hook |
40 | 2 | 4 | unless exists $$reg{$hook} |
47 | 0 | 22 | if ref $args eq 'CODE' and not $cleanup |
49 | 1 | 21 | unless $hook |
50 | 2 | 19 | if $args and ref $args ne 'ARRAY' |
52 | 2 | 17 | if $cleanup and ref $cleanup ne 'CODE' |
56 | 11 | 6 | exists $$r{$hook} ? : |