| line |
true |
false |
branch |
|
74
|
8 |
4 |
unless @$args |
|
75
|
3 |
1 |
if @$args == 1 and ref $args->[0] eq 'HASH' |
|
76
|
1 |
0 |
unless @$args % 2 |
|
88
|
0 |
68 |
unless defined $caller_sub_name |
|
93
|
50 |
18 |
if @$args and not &blessed($args->[0]) |
|
96
|
14 |
54 |
if ($self->_has_default_key and not defined $key) { } |
|
100
|
8 |
46 |
unless defined $key |
|
103
|
0 |
46 |
unless (&NonEmptySimpleStr()->check($key)) |
|
104
|
0 |
0 |
defined $key ? : |
|
110
|
1 |
59 |
if exists $self->_aliases->{$key} |
|
112
|
0 |
60 |
if ($self->strict_keys and not exists $self->_key_args->{$key}) |
|
113
|
0 |
0 |
defined $key ? : |
|
128
|
40 |
0 |
unless $self->per_process |
|
131
|
0 |
0 |
if $INC{'threads.pm'} |
|
204
|
0 |
10 |
unless $self->_has_class |
|
245
|
10 |
1 |
if $self->_has_class |
|
447
|
0 |
27 |
if @_ |
|
457
|
13 |
14 |
if $object |
|
459
|
2 |
12 |
unless $self->_has_class |
|
478
|
0 |
1 |
if @_ > 1 |
|
479
|
0 |
1 |
if @_ < 1 |
|
482
|
0 |
1 |
unless $self->type->check($object) |
|
488
|
0 |
1 |
if exists $self->_objects->{$key} |
|
496
|
0 |
13 |
if $self->disable_store |
|
513
|
0 |
2 |
if @_ |
|
551
|
0 |
0 |
defined $object ? : |
|
|
0 |
15 |
unless $self->type->check($object) |
|
587
|
12 |
6 |
unless $self->_key_args->{$key} |
|
591
|
3 |
15 |
if $self->_has_key_argument |
|
627
|
0 |
3 |
if @_ > 1 |
|
628
|
0 |
3 |
if @_ < 1 |
|
631
|
0 |
3 |
unless $self->injection_type->check($object) |
|
637
|
0 |
3 |
if exists $self->_injections->{$key} |
|
679
|
0 |
3 |
if @_ |
|
696
|
0 |
9 |
if @_ |
|
713
|
0 |
0 |
if @_ |
|
715
|
0 |
0 |
exists $self->_injections->{$key} ? : |
|
733
|
0 |
0 |
defined $key ? : |
|
|
0 |
6 |
unless &NonEmptySimpleStr()->check($key) |
|
740
|
0 |
6 |
if exists $self->_key_args->{$key} |
|
758
|
0 |
0 |
defined $alias ? : |
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($alias) |
|
764
|
0 |
0 |
defined $key ? : |
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($key) |
|
771
|
0 |
1 |
if exists $self->_aliases->{$alias} |
|
774
|
0 |
1 |
if $self->strict_keys and not exists $self->_key_args->{$key} |