blib/lib/OOP/Perlish/Class/Multiton.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 8 | 15 | 53.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
22 | 1 | 0 | 3 | defined ${$class . '::____MULTITON_REFS';} and ref ${$class . '::____MULTITON_REFS';} eq 'HASH' |
27 | 0 | 0 | 4 | defined $multiton_refs and ref $multiton_refs eq 'HASH' |
0 | 2 | 2 | defined $multiton_refs and ref $multiton_refs eq 'HASH' and exists $$multiton_refs{$multiton_name} | |
2 | 0 | 2 | defined $multiton_refs and ref $multiton_refs eq 'HASH' and exists $$multiton_refs{$multiton_name} and blessed($$multiton_refs{$multiton_name}) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
15 | 4 | 0 | 0 | ref $self || $self |