| blib/lib/Acme/MetaSyntactic/MultiList.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 10 | 55 | unless shift @categories |
| 26 | 15 | 40 | if (ref $h eq 'HASH') { } |
| 28 | 9 | 36 | $k ? : |
| 56 | 0 | 92 | unless ($class) |
| 62 | 45 | 47 | if (defined $count and $count == 0) |
| 66 | 45 | 0 | wantarray ? : |
| 71 | 45 | 2 | if (@{$self->{'base'};}) |
| 89 | 1 | 17 | if $self->{'category'} ne ':all' and not exists ${"${class}::MultiList";}{$self->{'category'}} |
| 108 | 2 | 72 | $self->{'category'} eq ':all' ? : |
| 116 | 2 | 5 | if ref $class |
| 124 | 3 | 3 | if ref $class |