| blib/lib/Object/Container.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 42 | 52.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 106 | 0 | 3 | 19 | defined $args and not ref $args |
| 108 | 13 | 0 | 6 | @rest == 1 and ref $rest[0] eq "CODE" |
| 120 | 1 | 0 | 2 | exists $args->{'initializer'} and ref $args->{'initializer'} eq "CODE" |
| 224 | 6 | 0 | 3 | exists $pack->{'VERSION'} and defined *{$pack->{'VERSION'};}{"SCALAR"} |
| 6 | 0 | 3 | exists $pack->{'VERSION'} and defined *{$pack->{'VERSION'};}{"SCALAR"} and defined ${$$pack{"VERSION"};} | |
| 226 | 0 | 0 | 6 | exists $pack->{'ISA'} and defined *{$pack->{'ISA'};}{"ARRAY"} |
| 0 | 0 | 6 | exists $pack->{'ISA'} and defined *{$pack->{'ISA'};}{"ARRAY"} and @{$pack->{'ISA'};} != 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 84 | 17 | 7 | 0 | $INSTANCES{$class} ||= $class->new |
| 89 | 0 | 2 | 0 | ref $class || $class |
| 160 | 11 | 18 | 3 | $self->objects->{$class} ||= do { my $initializer = $self->registered_classes->{$class}; $initializer ? &$initializer($self) : () } |
| 171 | 0 | 1 | 2 | $self->objects->{$class} ||= do { my $initializer = $self->registered_classes->{$class}; $initializer ? &$initializer($self) : () } |
| 205 | 0 | 0 | 12 | ref $class or not defined $class |
| 0 | 0 | 12 | ref $class or not defined $class or not length $class | |
| 231 | 0 | 0 | 0 | ref $entry ne "GLOB" or defined *{$entry;}{"CODE"} |