Branch Coverage

lib/Config/Neat/Inheritable.pm
Criterion Covered Total %
branch 56 68 82.3


line true false branch
163 575 455 if (is_hash($node))
166 0 814 if defined $subnode
167 37 322 if is_hash($node->{$_}) and exists $node->{$_}{'@inherit'}
175 185 0 if (is_hash($node))
180 179 37 unless $subnode
184 65 114 if (exists $node->{'@inherit'})
185 0 65 unless ref $node->{'@inherit'} eq 'Config::Neat::Array'
196 31 39 if $filename eq '.'
197 0 70 unless $filename or $selector
200 37 33 $filename eq '' ? :
207 3 16 if ($from eq $_)
218 8 59 if (exists $self->{'cache'}{$from}) { }
223 31 28 if ($filename) { }
226 31 0 unless (exists $self->{'cache'}{$fullpath})
255 0 57 if $selector =~ m[/{2,}]
256 0 57 if $selector =~ m[^/]
258 23 34 if $selector eq ''
264 0 53 if $_ eq ''
265 52 1 if (is_hash($result) and exists $result->{$_}) { }
276 266 0 ref $data ? :
284 128 98 if (is_hash($data1) and is_hash($data2)) { }
10 113 elsif (is_neat_array($data1) and is_neat_array($data2)) { }
288 29 91 $key =~ /^[\+\-](.*)$/ ? :
290 11 109 if ($key =~ /^-(.*)$/)
291 0 11 unless $data1->{$key}->as_boolean
298 73 36 if (is_neat_array($data1->{$key}))
299 13 60 if ($key =~ /^\+(.*)$/) { }
300 13 0 if (not exists $data2->{$base_key} or is_neat_array($data2->{$base_key}))
305 8 3 if (is_simple_array($data1->{$key}) and exists $data2->{$base_key})
318 5 104 if (is_hash($data1->{$key}) and $key =~ /^\+(.*)$/)
323 11 98 if (is_hash($data1->{$key}) and is_hash($data2->{$key}))
331 42 21 if (exists $data2->{$key} and not exists $data1->{$key})
336 0 128 unless is_ixhash($data1)
341 8 2 if (is_simple_array($data2)) { }