Branch Coverage

lib/App/Reference.pm
Criterion Covered Total %
branch 46 90 51.1


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) { }