| blib/lib/Data/Recursive/Encode.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 27 | 47 | if (my $ref = ref $arg) { } |
| 22 | 1 | 26 | if (defined($proto = $$seen{$refaddr})) { } |
| 8 | 18 | elsif ($ref eq 'ARRAY') { } | |
| 6 | 12 | elsif ($ref eq 'HASH') { } | |
| 4 | 8 | elsif ($ref eq 'REF' or $ref eq 'SCALAR') { } | |
| 44 | 47 | 0 | defined $arg ? : |
| 48 | 50 | 6 | wantarray ? : |
| 79 | 0 | 1 | unless @_ >= 4 |