line |
true |
false |
branch |
149
|
0 |
1 |
if $App::DEBUG |
151
|
1 |
0 |
unless defined $ref |
152
|
1 |
0 |
if ($property_name =~ /^(.*)([\.\{\[])([^\.\[\]\{\}]+)([\]\}]?)$/) { } |
157
|
0 |
1 |
ref $ref eq 'ARRAY' ? : |
158
|
0 |
1 |
unless defined $branch |
159
|
0 |
1 |
if not defined $branch or ref $branch eq '' |
160
|
0 |
1 |
if ref $branch eq 'ARRAY' |
195
|
0 |
88 |
if $App::DEBUG |
198
|
3 |
85 |
unless defined $ref |
202
|
4 |
84 |
if $cache_ok |
203
|
1 |
87 |
if defined $branch |
214
|
80 |
86 |
$3 eq '.' ? : |
216
|
0 |
166 |
if (ref $branch eq 'ARRAY') { } |
217
|
0 |
0 |
if (not defined $$branch[$branch_piece]) { } |
218
|
0 |
0 |
if ($create) { } |
219
|
0 |
0 |
$type eq ']' ? : |
221
|
0 |
0 |
if $cache_ok |
233
|
74 |
92 |
if (not defined $$branch{$branch_piece}) { } |
234
|
73 |
1 |
if ($create) { } |
235
|
0 |
73 |
$type eq ']' ? : |
237
|
5 |
68 |
if $cache_ok |
247
|
79 |
86 |
if $type eq '.' |
273
|
0 |
85 |
if $App::DEBUG |
275
|
1 |
84 |
unless defined $ref |
278
|
85 |
0 |
if ($property_name =~ /^(.*)([\.\{\[])([^\.\[\]\{\}]+)([\]\}]?)$/) { } |
283
|
1 |
84 |
if $cache_ok |
284
|
85 |
0 |
unless defined $branch |
291
|
0 |
85 |
if (ref $branch eq 'ARRAY') { } |
329
|
0 |
6 |
if $App::trace |
331
|
0 |
6 |
unless (defined $ref2) |
337
|
0 |
6 |
if ($ref1type eq '' or $ref2type eq '') { } |
|
0 |
6 |
elsif ($ref1type eq 'ARRAY' or $ref2type eq 'ARRAY') { } |
345
|
5 |
3 |
if (not exists $$ref1{$key}) { } |
350
|
2 |
1 |
if ($ref1type and $ref1type ne 'ARRAY') |
352
|
2 |
0 |
if ($ref2type and $ref2type ne 'ARRAY') |
359
|
0 |
6 |
if $App::trace |
408
|
0 |
0 |
unless $ref |
434
|
0 |
0 |
unless $ref |
476
|
0 |
5 |
if $App::DEBUG |
477
|
5 |
0 |
if $#_ == -1 |
478
|
0 |
0 |
if (ref $_[0] ne '') |
479
|
0 |
0 |
if $#_ == 0 |
480
|
0 |
0 |
if ref $_[0] eq 'ARRAY' |
490
|
0 |
0 |
if ($_[0] eq 'array') { } |
|
0 |
0 |
elsif ($#_ % 2 == 0) { } |