| line |
true |
false |
branch |
|
44
|
2 |
19 |
if (exists $$value{$key} and exists $$myProto{$key} and ref $$myProto{$key} eq 'HASH' and ref $_parentPrototype eq 'HASH' and not exists $$myProto{$key}{'dataType'}) { } |
|
|
8 |
11 |
elsif (ref $$myProto{$key} eq 'HASH' and exists $$myProto{$key}{'dataType'}) { } |
|
60
|
2 |
2 |
$$myProto{$key} ne '' ? : |
|
|
4 |
7 |
exists $$myProto{$key} ? : |
|
61
|
0 |
11 |
if (ref $$myProto{$key} eq 'ARRAY' and scalar @{$$myProto{$key};} == 0) { } |
|
|
1 |
10 |
elsif (ref $$myProto{$key} eq 'HASH' and scalar %{$$myProto{$key};} == 0) { } |
|
|
9 |
1 |
elsif (ref $$myProto{$key} eq '' and scalar $$myProto{$key} <= 0) { } |
|
74
|
10 |
1 |
$protoVal eq '' ? : |
|
76
|
1 |
10 |
$protoVal ne '' ? : |
|
79
|
1 |
10 |
if $protoVal ne '' |
|
83
|
5 |
16 |
if (uc $$_currPrototype{'dataType'} eq 'HASH') { } |
|
85
|
0 |
5 |
if exists $$_currPrototype{'writeAccess'} and $$_currPrototype{'writeAccess'} <= 0 |
|
88
|
4 |
1 |
unless ref $val eq 'HASH' |
|
92
|
2 |
14 |
if exists $$_currPrototype{'writeAccess'} and $$_currPrototype{'writeAccess'} == 0 |
|
96
|
0 |
14 |
if exists $$_currPrototype{'writeAccess'} and $$_currPrototype{'writeAccess'} == -1 and exists $$value{$key} |
|
104
|
3 |
11 |
unless uc $$_currPrototype{'dataType'} eq $valType |
|
124
|
1 |
3 |
unless exists $$value{$key} |
|
129
|
2 |
1 |
ref $_currPrototype eq 'HASH' && exists $$_currPrototype{'locked'} && $$_currPrototype{'locked'} == 1 ? : |
|
161
|
63 |
0 |
if (ref $myProto eq 'HASH') |
|
163
|
27 |
36 |
ref $$myProto{$key} eq 'HASH' && exists $$myProto{$key}{'dataType'} && uc $$myProto{$key}{'dataType'} eq 'HASH' ? : |
|
174
|
59 |
4 |
if (ref $$value{$key} eq 'HASH') |
|
223
|
69 |
8 |
if (exists $$hashRef{$accessKey}) { } |
|
256
|
40 |
37 |
if (ref $_prototype eq 'HASH' and exists $$_prototype{'dataType'}) { } |
|
268
|
1 |
36 |
if (not exists $$argsRef{$accessKey} and exists $$hashRef{$accessKey}) { } |
|
|
0 |
36 |
elsif (exists $$argsRef{$accessKey} and not exists $$hashRef{$accessKey}) { } |
|
|
0 |
36 |
elsif (not exists $$argsRef{$accessKey} || exists $$hashRef{$accessKey}) { } |
|
270
|
0 |
1 |
if (uc $action ne 'STORE') |
|
281
|
0 |
0 |
if (uc $action ne 'STORE' and uc $$_prototype{'dataType'} eq 'HASH' or uc $$_prototype{'dataType'} ne 'HASH') |
|
315
|
0 |
320 |
unless exists $$attribute{$_} |
|
318
|
8 |
32 |
$_parentPrototype eq $attribute ? : |
|
320
|
11 |
29 |
uc $action eq 'STORE' || uc $action eq 'FETCH' && $_isChild ? : |
|
322
|
36 |
4 |
if (ref $$attribute{'value'} eq 'HASH') |
|
328
|
1 |
54 |
if (ref $_value eq 'HASH' and $$_value{'required'} and not exists $$xvalue{$_key}) |
|
337
|
10 |
29 |
if ($action eq 'STORE') { } |
|
342
|
1 |
9 |
if ($$attribute{'writeAccess'} <= 0) |
|
344
|
1 |
0 |
$_isChild ? : |
|
355
|
4 |
34 |
if (uc $$attribute{'dataType'} eq 'SCALAR') { } |
|
|
34 |
0 |
elsif (uc $$attribute{'dataType'} eq 'HASH') { } |
|
357
|
1 |
3 |
if $$attribute{'readAccess'} <= 0 |
|
360
|
3 |
0 |
if uc $action eq 'STORE' |
|
362
|
0 |
3 |
if $$attribute{'allowEmpty'} <= 0 and $value eq '' |
|
365
|
1 |
2 |
if (length $value >= $$attribute{'maxLength'}) { } |
|
|
1 |
2 |
elsif (length $value <= $$attribute{'minLength'} and ($value ne '' and $$attribute{'allowEmpty'} > 0)) { } |
|
376
|
7 |
27 |
if ($_isChild) |
|
380
|
1 |
6 |
if (uc $action eq 'FETCH') { } |
|
|
6 |
0 |
elsif (uc $action eq 'STORE') { } |
|
382
|
0 |
1 |
unless exists $$value{$key} |
|
386
|
1 |
5 |
if exists $$value{$key} |
|
390
|
6 |
28 |
if (uc $action eq 'STORE') { } |
|
397
|
0 |
28 |
if $$attribute{'readAccess'} <= 0 |
|
403
|
0 |
34 |
if ($$attribute{'allowEmpty'} <= 0) |
|
405
|
0 |
0 |
if $keys <= 0 |
|
408
|
1 |
33 |
if ($keys > $$attribute{'maxLength'}) { } |
|
|
0 |
33 |
elsif ($keys < $$attribute{'minLength'}) { } |