blib/lib/Struct/Path.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 32 | 32 | 100.0 |
line | l | !l | condition |
---|---|---|---|
126 | 2 | 2 | ref $_ eq 'Regexp' and return 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
160 | 42 | 5 | 19 | ref ${$ref;} eq 'HASH' and @{$path;} != $depth |
47 | 1 | 18 | ref ${$ref;} eq 'HASH' and @{$path;} != $depth and keys %{${$ref;};} | |
36 | 1 | 11 | ref ${$ref;} eq 'ARRAY' and @{$path;} != $depth | |
37 | 2 | 9 | ref ${$ref;} eq 'ARRAY' and @{$path;} != $depth and @{${$ref;};} | |
224 | 54 | 15 | 1 | $opts{'delete'} and not @{$init_path;} |
290 | 55 | 16 | 8 | $opts{'delete'} and not @{$rest;} |
325 | 42 | 7 | 9 | $opts{'delete'} and not @{$rest;} |
366 | 2 | 2 | 31 | $i < @{$frst;} and ref $frst->[$i] eq ref $scnd->[$i] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
270 | 14 | 38 | 6 | $opts{'expand'} or exists ${$$refs[-1];}->{$i} |
302 | 14 | 64 | 7 | $opts{'expand'} or @{${$refs->[-1];};} > ($_ >= 0 ? $_ : abs $_ + 1) |