| lib/Sub/IsEqual.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 65 | 2 | 72 | if defined $left ^ defined $right |
| 67 | 1 | 71 | unless defined $left |
| 69 | 38 | 33 | if $left eq $right |
| 74 | 3 | 30 | if $left_ref ne $right_ref |
| 76 | 5 | 25 | if $left_ref eq '' |
| 82 | 1 | 24 | if exists $$recursion_check{$left_refaddr} ^ exists $$recursion_check{$right_refaddr} |
| 84 | 4 | 20 | if exists $$recursion_check{$left_refaddr} |
| 90 | 2 | 18 | if ($left_ref eq 'SCALAR' or $left_ref eq 'REF') { } |
| 13 | 5 | elsif ($left_ref eq 'ARRAY') { } | |
| 5 | 0 | elsif ($left_ref eq 'HASH') { } |