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) |