line |
true |
false |
branch |
120
|
2 |
7 |
if (ref $_[0] eq 'ARRAY') { } |
|
6 |
1 |
elsif (ref $_[0] eq 'HASH') { } |
121
|
1 |
1 |
unless @{$_[0];} |
123
|
1 |
5 |
if exists $_[0]{'R'} and @{$_[0]{'R'};} |
124
|
1 |
4 |
unless exists $_[0]{'K'} |
125
|
1 |
3 |
unless @{$_[0]{'K'};} |
157
|
4 |
3 |
defined $opts{'depth'} ? : |
160
|
18 |
48 |
if (ref ${$ref;} eq 'HASH' and @{$path;} != $depth and keys %{${$ref;};}) { } |
|
9 |
39 |
elsif (ref ${$ref;} eq 'ARRAY' and @{$path;} != $depth and @{${$ref;};}) { } |
222
|
1 |
72 |
unless ref $path eq 'ARRAY' |
224
|
1 |
71 |
if $opts{'delete'} and not @{$path;} |
232
|
1 |
164 |
unless ref $refs->[-1] |
235
|
72 |
92 |
if (($step_type = ref $step) eq 'ARRAY') { } |
|
81 |
11 |
elsif ($step_type eq 'HASH') { } |
|
10 |
1 |
elsif ($step_type eq 'CODE') { } |
236
|
17 |
55 |
if (ref ${$refs->[-1];} ne 'ARRAY') |
238
|
2 |
15 |
if $opts{'strict'} |
239
|
8 |
7 |
unless $opts{'expand'} |
243
|
51 |
11 |
@{$step;} ? : |
245
|
68 |
5 |
$_ >= 0 ? : |
|
7 |
80 |
unless ($opts{'expand'} or @{${$refs->[-1];};} > ($_ >= 0 ? $_ : abs $_ + 1)) |
249
|
2 |
5 |
if $opts{'strict'} |
253
|
6 |
74 |
if ($_ < 0) |
254
|
3 |
3 |
if (@{${$refs->[-1];};} < abs $_) { } |
265
|
9 |
51 |
if ($opts{'delete'} and $sc == $#{$path;}) |
266
|
13 |
2 |
if $_ < @{${$refs->[-1];};} |
270
|
9 |
72 |
if (ref ${$refs->[-1];} ne 'HASH') |
272
|
2 |
7 |
if $opts{'strict'} |
273
|
3 |
4 |
unless $opts{'expand'} |
278
|
1 |
75 |
if @types != keys %{$step;} |
282
|
2 |
66 |
unless (ref $step->{$t} eq 'ARRAY') |
283
|
1 |
1 |
$t eq 'K' ? : |
287
|
58 |
8 |
if ($t eq 'K') { } |
289
|
4 |
59 |
if (ref $i eq 'Regexp') { } |
293
|
6 |
39 |
unless ($opts{'expand'} or exists ${$$refs[-1];}->{$i}) |
294
|
1 |
5 |
if $opts{'strict'} |
307
|
64 |
8 |
@types ? : |
309
|
8 |
78 |
if $opts{'delete'} and $sc == $#{$path;} |
314
|
7 |
3 |
if &$step($steps, $refs) |
326
|
7 |
72 |
if exists $opts{'assign'} |
328
|
2 |
77 |
if ($opts{'stack'}) { } |
329
|
1 |
1 |
if $opts{'deref'} |
331
|
5 |
72 |
$opts{'deref'} ? : |
334
|
8 |
71 |
$opts{'paths'} ? : |
352
|
1 |
15 |
unless ref $scnd eq 'ARRAY' |
353
|
1 |
14 |
unless defined $frst |
354
|
1 |
13 |
unless ref $frst eq 'ARRAY' |
362
|
10 |
21 |
if (ref $frst->[$i] eq 'ARRAY') { } |
|
18 |
3 |
elsif (ref $frst->[$i] eq 'HASH') { } |
|
2 |
1 |
elsif (ref $frst->[$i] eq 'CODE') { } |
363
|
2 |
8 |
unless @{$frst->[$i];} == @{$scnd->[$i];} |
365
|
1 |
14 |
unless $frst->[$i][$_] == $scnd->[$i][$_] |
368
|
2 |
16 |
unless @{$frst->[$i]{'K'};} == @{$scnd->[$i]{'K'};} |
372
|
2 |
19 |
unless $frst->[$i]{'K'}[$_] eq $scnd->[$i]{'K'}[$_] |
377
|
1 |
1 |
unless $deparse->coderef2text($frst->[$i]) eq $deparse->coderef2text($scnd->[$i]) |