blib/lib/Worlogog/Incident.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 16 | 62.5 |
line | true | false | branch |
---|---|---|---|
39 | 2 | 4 | if (ref $handler eq 'ARRAY') |
50 | 1 | 2 | if (ref $genhandler eq 'ARRAY') |
58 | 0 | 3 | unless my $handler = &$genhandler(@_) |
61 | 2 | 1 | unless (defined $wantlist) |
65 | 0 | 1 | $wantlist ? : |
67 | 3 | 0 | if (my $f = shift @v) |
70 | 0 | 0 | $wantlist ? : |
78 | 0 | 11 | defined $barrier ? : |