| line |
true |
false |
branch |
|
146
|
0 |
27 |
if (scalar @$result != 1) |
|
149
|
0 |
27 |
if ($$result[0]{'ref'} eq '()') |
|
154
|
5 |
22 |
if (@$array_result) |
|
187
|
0 |
0 |
if ($$entry{'ref'} eq '()') |
|
204
|
0 |
11 |
if ($$entry{'ref'} eq '()') |
|
205
|
0 |
0 |
$i > $needed_length ? : |
|
226
|
0 |
0 |
defined $ATT_TYPE ? : |
|
227
|
0 |
0 |
if ($DEF_ERROR) { } |
|
252
|
3 |
62 |
if ($subpart =~ /,$/ or $subpart =~ /^$WHITESPACES$/) |
|
272
|
18 |
21 |
if ($$ACCESS_LEVEL{$$entry{'data'}}) |
|
273
|
0 |
18 |
if $$access_level{$$entry{'data'}} |
|
278
|
7 |
20 |
if ($sub_name =~ /^_/) { } |
|
279
|
0 |
7 |
if $$access_level{'public'} |
|
280
|
0 |
3 |
unless $$access_level{'protected'} or $$access_level{'private'} |
|
283
|
0 |
20 |
if $$access_level{'protected'} or $$access_level{'private'} |
|
289
|
0 |
27 |
if scalar @access_level != 1 |
|
298
|
0 |
27 |
unless defined $access_level and $$ACCESS_LEVEL{$access_level} |
|
308
|
20 |
19 |
if ($$STATIC{$$entry{'data'}}) |
|
309
|
0 |
20 |
if $$static{$$entry{'data'}} |
|
314
|
0 |
27 |
if scalar @static > 1 |
|
323
|
0 |
27 |
unless defined $static and $$STATIC{$static} |
|
333
|
1 |
38 |
if ($$TYPE{$$entry{'data'}}) |
|
334
|
0 |
1 |
if $$type{$$entry{'data'}} |
|
340
|
0 |
27 |
if scalar @type > 1 |
|
349
|
0 |
27 |
unless defined $type and $$TYPE{$type} |
|
376
|
0 |
54 |
unless ($DATATYPES->is_ref_allowed($$entry{'ref'})) |
|
381
|
0 |
27 |
if $$entry{'type'} eq $type |
|
383
|
0 |
54 |
if ($error or not $DATATYPES->check_parameter_definition($$entry{'type'}, $$entry{'check'})) |
|
384
|
0 |
0 |
if ($$entry{'check'}{'is_class'}) { } |
|
415
|
0 |
27 |
if (@forbidden_keys) |
|
430
|
0 |
27 |
if $$REGISTER{$identifier} |
|
442
|
0 |
13 |
unless $def |
|
449
|
13 |
0 |
if $given_length >= $needed_length |
|
461
|
0 |
10 |
unless $def |
|
465
|
2 |
8 |
if ($list_context and scalar @{$$def{'array_result'};}) { } |
|
478
|
2 |
8 |
if $given_length > $needed_length |
|
495
|
1 |
21 |
unless (ref $pdef) |
|
497
|
0 |
1 |
unless (defined $entry) |
|
509
|
1 |
20 |
unless ($is_ok) |
|
511
|
0 |
1 |
if (not defined $old_entry && defined $entry) { } |
|
|
0 |
1 |
elsif (ref $entry eq 'ARRAY') { } |
|
512
|
0 |
0 |
unless defined $old_entry |
|
520
|
0 |
1 |
$$pdef{'check'}{'is_class'} ? : |
|
521
|
0 |
1 |
if $$pdef{'type'} eq 'class' |
|
522
|
0 |
1 |
defined $error_msg ? : |
|
529
|
2 |
21 |
if @$errors |
|
538
|
0 |
13 |
unless $def |
|
540
|
0 |
13 |
if ($$def{'type'} eq 'abstract') |
|
554
|
0 |
14 |
unless $def |
|
556
|
10 |
4 |
if $$def{'access_level'} eq 'public' |
|
560
|
1 |
3 |
if ($$def{'access_level'} eq 'protected') { } |
|
|
3 |
0 |
elsif ($$def{'access_level'} eq 'private') { } |
|
561
|
1 |
0 |
if UNIVERSAL::isa($caller_package, $$def{'sub_data'}{'class'}) or UNIVERSAL::isa($$def{'sub_data'}{'class'}, $caller_package) |
|
564
|
2 |
1 |
if $caller_package eq $$def{'sub_data'}{'class'} |
|
599
|
0 |
19 |
unless $def |
|
604
|
2 |
17 |
if (not defined $is_class && defined $should_class) { } |
|
|
15 |
2 |
elsif (UNIVERSAL::isa($is_class, $should_class) or UNIVERSAL::isa($should_class, $is_class)) { } |
|
607
|
12 |
3 |
if $$def{'static'} eq 'static' |
|
609
|
2 |
1 |
if ref $class_param |