lib/Data/Hash/DotNotation.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 7 | 13 | 53.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
77 | 0 | 2 | 0 | $data and my $section = shift @parts |
97 | 0 | 3 | 2 | $data and my $section = shift @parts |
105 | 0 | 1 | 2 | $data and exists $$data{$node} |
line | l | !l | condition |
---|---|---|---|
39 | 0 | 1 | $args || {} |
126 | 0 | 2 | $$current_location{$section} //= {} |