| blib/lib/OOP/Perlish/Class/Multiton.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 4 | 0 | if exists $opts{$self->_multiton_key} |
| 18 | 0 | 4 | unless $multiton_name |
| 22 | 1 | 3 | unless defined ${$class . '::____MULTITON_REFS';} and ref ${$class . '::____MULTITON_REFS';} eq 'HASH' |
| 27 | 2 | 2 | if (defined $multiton_refs and ref $multiton_refs eq 'HASH' and exists $$multiton_refs{$multiton_name} and blessed($$multiton_refs{$multiton_name})) { } |
| 28 | 0 | 2 | if scalar keys %opts > 1 |