| line |
true |
false |
branch |
|
72
|
8 |
4 |
unless @$args
|
|
73
|
3 |
1 |
if @$args == 1 and ref $args->[0] eq 'HASH'
|
|
74
|
1 |
0 |
unless @$args % 2
|
|
86
|
0 |
66 |
unless defined $caller_sub_name
|
|
91
|
48 |
18 |
if @$args and not &blessed($args->[0])
|
|
94
|
14 |
52 |
if ($self->_has_default_key and not defined $key) { }
|
|
98
|
8 |
44 |
unless defined $key
|
|
101
|
0 |
44 |
unless (&NonEmptySimpleStr()->check($key))
|
|
102
|
0 |
0 |
defined $key ? :
|
|
108
|
1 |
57 |
if exists $self->_aliases->{$key}
|
|
110
|
0 |
58 |
if ($self->strict_keys and not exists $self->_key_args->{$key})
|
|
111
|
0 |
0 |
defined $key ? :
|
|
122
|
0 |
3 |
unless $self->_has_export_name
|
|
128
|
1 |
0 |
if (defined $arg and $arg eq $name)
|
|
134
|
0 |
0 |
defined $arg ? :
|
|
140
|
1 |
2 |
unless $do_it
|
|
156
|
37 |
0 |
unless $self->per_process
|
|
159
|
0 |
0 |
if $INC{'threads.pm'}
|
|
232
|
0 |
9 |
unless $self->_has_class
|
|
261
|
9 |
1 |
if $self->_has_class
|
|
426
|
0 |
25 |
if @_
|
|
436
|
12 |
13 |
if $object
|
|
438
|
2 |
11 |
unless $self->_has_class
|
|
457
|
0 |
1 |
if @_ > 1
|
|
458
|
0 |
1 |
if @_ < 1
|
|
461
|
0 |
1 |
unless $self->type->check($object)
|
|
467
|
0 |
1 |
if exists $self->_objects->{$key}
|
|
475
|
0 |
12 |
if $self->disable_store
|
|
492
|
0 |
2 |
if @_
|
|
530
|
0 |
0 |
defined $object ? :
|
|
|
0 |
14 |
unless $self->type->check($object)
|
|
566
|
11 |
6 |
unless $self->_key_args->{$key}
|
|
570
|
3 |
14 |
if $self->_has_key_argument
|
|
606
|
0 |
3 |
if @_ > 1
|
|
607
|
0 |
3 |
if @_ < 1
|
|
610
|
0 |
3 |
unless $self->type->check($object)
|
|
616
|
0 |
3 |
if exists $self->_injections->{$key}
|
|
658
|
0 |
3 |
if @_
|
|
675
|
0 |
9 |
if @_
|
|
692
|
0 |
0 |
if @_
|
|
694
|
0 |
0 |
exists $self->_injections->{$key} ? :
|
|
712
|
0 |
0 |
defined $key ? :
|
|
|
0 |
6 |
unless &NonEmptySimpleStr()->check($key)
|
|
719
|
0 |
6 |
if exists $self->_key_args->{$key}
|
|
737
|
0 |
0 |
defined $alias ? :
|
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($alias)
|
|
743
|
0 |
0 |
defined $key ? :
|
|
|
0 |
1 |
unless &NonEmptySimpleStr()->check($key)
|
|
750
|
0 |
1 |
if exists $self->_aliases->{$alias}
|
|
753
|
0 |
1 |
if $self->strict_keys and not exists $self->_key_args->{$key}
|