blib/lib/Object/Container.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 22 | 41 | 53.6 |
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' |
225 | 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'};} | |
227 | 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 | condition |
---|---|---|---|
120 | 1 | 2 | $$args{'args'} ||= [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
84 | 17 | 7 | 0 | $INSTANCES{$class} ||= $class->new |
89 | 0 | 2 | 0 | ref $class || $class |
161 | 11 | 18 | 3 | $self->objects->{$class} ||= do { my $initializer = $self->registered_classes->{$class}; $initializer ? &$initializer($self) : () } |
172 | 0 | 1 | 2 | $self->objects->{$class} ||= do { my $initializer = $self->registered_classes->{$class}; $initializer ? &$initializer($self) : () } |
206 | 0 | 0 | 12 | ref $class or not defined $class |
0 | 0 | 12 | ref $class or not defined $class or not length $class | |
232 | 0 | 0 | 0 | ref $entry ne 'GLOB' or defined *{$entry;}{'CODE'} |