| 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 ? : |