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"} |