| line |
true |
false |
branch |
|
79
|
0 |
6 |
unless scalar(@_) % 2 == 0 |
|
82
|
6 |
0 |
if (exists $params{'strict_bless'}) |
|
84
|
4 |
2 |
if (ref $how_to_bless eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $how_to_bless eq 'Regexp') { } |
|
|
0 |
0 |
elsif ($how_to_bless eq 'global') { } |
|
101
|
0 |
6 |
if (exists $params{'debug'}) |
|
103
|
0 |
0 |
if $params{'debug'} |
|
106
|
2 |
4 |
if (exists $params{'allow_autovivification_in'}) |
|
112
|
1 |
5 |
if (exists $params{'field_access_identifiers'}) |
|
114
|
1 |
0 |
if exists $field_identifiers{'public'} |
|
115
|
1 |
0 |
if exists $field_identifiers{'protected'} |
|
116
|
1 |
0 |
if exists $field_identifiers{'private'} |
|
119
|
1 |
5 |
if (exists $params{'error_handling'}) |
|
120
|
0 |
1 |
unless exists $ERROR_HANDLERS{$params{'error_handling'}} |
|
140
|
0 |
5 |
if DEBUG() |
|
142
|
5 |
0 |
unless $class eq 'Devel::StrictObjectHash' |
|
158
|
0 |
0 |
if ($tied_hash->isa('Devel::StrictObjectHash')) |
|
170
|
0 |
5 |
if DEBUG() |
|
198
|
0 |
27 |
if DEBUG() |
|
204
|
0 |
0 |
defined $value ? : |
|
|
0 |
17 |
if DEBUG() |
|
216
|
0 |
28 |
if DEBUG() |
|
222
|
0 |
0 |
defined $$self{'fields'}{$key} ? : |
|
|
0 |
26 |
if DEBUG() |
|
258
|
0 |
0 |
if DEBUG() |
|
271
|
0 |
0 |
if DEBUG() |
|
317
|
0 |
55 |
if DEBUG() |
|
319
|
10 |
45 |
unless $calling_package ne 'main' |
|
323
|
0 |
45 |
if $calling_subroutine =~ /DESTROY/ |
|
325
|
5 |
40 |
if (not exists $$self{'fields'}{$key}) { } |
|
335
|
0 |
5 |
if DEBUG() |
|
336
|
0 |
5 |
unless $calling_subroutine =~ /$KEY_CREATION_ACCESS_REGEX/ |
|
341
|
0 |
5 |
if DEBUG() |
|
348
|
17 |
23 |
if ($key =~ /$PRIVATE_FIELD_IDENTIFIER/) { } |
|
|
18 |
5 |
elsif ($key =~ /$PROTECTED_FIELD_IDENTIFIER/) { } |
|
|
2 |
3 |
elsif (defined $PUBLIC_FIELD_IDENTIFIER and $key =~ /$PUBLIC_FIELD_IDENTIFIER/) { } |
|
351
|
0 |
0 |
if ($calling_subroutine =~ /$KEY_CREATION_ACCESS_REGEX/ and $hash_action =~ /\:\:STORE$/ and $calling_package ne $$self{'fields_init_in'}{$key}) |
|
370
|
0 |
0 |
if ($$self{'fields_init_in'}{$key}->isa($calling_package)) { } |
|
|
0 |
0 |
elsif ($calling_package->isa($$self{'fields_init_in'}{$key})) { } |
|
398
|
0 |
17 |
if DEBUG() |
|
399
|
2 |
15 |
unless ($calling_package eq $$self{'fields_init_in'}{$key}) |
|
409
|
2 |
0 |
unless $calling_subroutine =~ /^$$self{'fields_init_in'}{$key}\:\:/ |
|
419
|
0 |
18 |
unless $$self{'blessed_class'}->isa($calling_package) |
|
434
|
0 |
43 |
if DEBUG() |