Branch Coverage

lib/Data/Hash/DotNotation.pm
Criterion Covered Total %
branch 10 14 71.4


line true false branch
44 1 3 unless my $name = shift()
54 1 4 unless my $name = shift()
75 0 0 if (ref $data->{$section} eq 'HASH') { }
94 2 0 if (ref $data->{$section} eq 'HASH') { }
101 2 1 if ($data and exists $data->{$node})
113 0 4 unless ($self->data)
126 3 1 if (defined $value) { }