| blib/lib/Role/_Multiton.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 0 | 17 | if (not defined $arg_ar) { } |
| 24 | 2 | 15 | if @{$arg_ar;} == 1 and ref $$arg_ar[0] eq 'HASH' |
| 28 | 0 | 16 | if (not defined $arg) { } |
| 0 | 16 | elsif (my $ref = ref $arg) { } | |
| 41 | 8 | 9 | if (defined $arg_key) { } |