| blib/lib/Worlogog/Incident.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 2 | 4 | if (ref $handler eq 'ARRAY') |
| 48 | 1 | 2 | if (ref $genhandler eq 'ARRAY') |
| 56 | 0 | 3 | unless my $handler = &$genhandler(@_) |
| 59 | 2 | 1 | unless (defined $wantlist) |
| 63 | 0 | 1 | $wantlist ? : |
| 65 | 3 | 0 | if (my $f = shift @v) |
| 68 | 0 | 0 | $wantlist ? : |
| 76 | 0 | 11 | defined $barrier ? : |