| blib/lib/Sub/Data/Recursive.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 14 | 29 | if (my $ref = ref $arg) { } |
| 24 | 0 | 14 | if (defined($proto = $$seen{$refaddr})) { } |
| 3 | 11 | elsif ($ref eq 'ARRAY') { } | |
| 11 | 0 | elsif ($ref eq 'HASH') { } | |
| 0 | 0 | elsif ($ref eq 'REF' or $ref eq 'SCALAR') { } | |
| 46 | 29 | 0 | defined $arg ? : |
| 50 | 14 | 6 | wantarray ? : |