| lib/Sub/IsEqual.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 11 | 90.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 97 | 1 | 3 | 9 | @$left == @$right && !defined(first sub { not is_equal($$left[$_], $$right[$_], $recursion_check); } , 0 .. $#$left) |
| line | l | !l | condition |
|---|---|---|---|
| 78 | 8 | 17 | $recursion_check ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 90 | 2 | 0 | 18 | $left_ref eq 'SCALAR' or $left_ref eq 'REF' |
| 103 | 1 | 1 | 3 | symmetric_difference([keys %$left], [keys %$right]) || defined first(sub { not is_equal($$left{$_}, $$right{$_}, $recursion_check); } , keys %$left) |