| lib/Data/Hash/DotNotation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 1 | 3 | unless my $name = shift() |
| 47 | 1 | 4 | unless my $name = shift() |
| 65 | 0 | 0 | if (ref $$data{$section} eq 'HASH') { } |
| 85 | 2 | 0 | if (ref $$data{$section} eq 'HASH') { } |
| 92 | 2 | 1 | if ($data and exists $$data{$node}) |
| 104 | 0 | 4 | unless ($self->data) |
| 117 | 3 | 1 | if (defined $value) { } |