| line |
true |
false |
branch |
|
71
|
8 |
4 |
unless @$args |
|
72
|
3 |
1 |
if @$args == 1 and ref $args->[0] eq 'HASH' |
|
73
|
1 |
0 |
unless @$args % 2 |
|
85
|
0 |
68 |
unless defined $caller_sub_name |
|
90
|
50 |
18 |
if @$args and not &blessed($args->[0]) |
|
93
|
14 |
54 |
if ($self->_has_default_key and not defined $key) { } |
|
97
|
8 |
46 |
unless defined $key |
|
100
|
0 |
46 |
unless (&NonEmptySimpleStr()->check($key)) |
|
101
|
0 |
0 |
defined $key ? : |
|
107
|
1 |
59 |
if exists $self->_aliases->{$key} |
|
109
|
0 |
60 |
if ($self->strict_keys and not exists $self->_key_args->{$key}) |
|
110
|
0 |
0 |
defined $key ? : |
|
125
|
40 |
0 |
unless $self->per_process |
|
128
|
0 |
0 |
if $INC{'threads.pm'} |
|
201
|
0 |
10 |
unless $self->_has_class |
|
230
|
10 |
1 |
if $self->_has_class |
|
416
|
0 |
27 |
if @_ |
|
426
|
13 |
14 |
if $object |
|
428
|
2 |
12 |
unless $self->_has_class |
|
447
|
0 |
1 |
if @_ > 1 |
|
448
|
0 |
1 |
if @_ < 1 |
|
451
|
0 |
1 |
unless $self->type->check($object) |
|
457
|
0 |
1 |
if exists $self->_objects->{$key} |
|
465
|
0 |
13 |
if $self->disable_store |
|
482
|
0 |
2 |
if @_ |
|
520
|
0 |
0 |
defined $object ? : |
|
|
0 |
15 |
unless $self->type->check($object) |
|
556
|
12 |
6 |
unless $self->_key_args->{$key} |
|
560
|
3 |
15 |
if $self->_has_key_argument |
|
596
|
0 |
3 |
if @_ > 1 |
|
597
|
0 |
3 |
if @_ < 1 |
|
600
|
0 |
3 |
unless $self->injection_type->check($object) |
|
606
|
0 |
3 |
if exists $self->_injections->{$key} |
|
648
|
0 |
3 |
if @_ |
|
665
|
0 |
9 |
if @_ |
|
682
|
0 |
0 |
if @_ |
|
684
|
0 |
0 |
exists $self->_injections->{$key} ? : |
|
702
|
0 |
0 |
defined $key ? : |
|
|
0 |
6 |
unless &NonEmptySimpleStr()->check($key) |
|
709
|
0 |
6 |
if exists $self->_key_args->{$key} |
|
727
|
0 |
0 |
defined $alias ? : |
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($alias) |
|
733
|
0 |
0 |
defined $key ? : |
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($key) |
|
740
|
0 |
1 |
if exists $self->_aliases->{$alias} |
|
743
|
0 |
1 |
if $self->strict_keys and not exists $self->_key_args->{$key} |