| blib/lib/Data/Recursive/Encode.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 24 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 29 | 51 | if (my $ref = ref $arg) { } |
| 25 | 1 | 28 | if (defined($proto = $seen->{$refaddr})) { } |
| 8 | 20 | elsif ($ref eq 'ARRAY') { } | |
| 8 | 12 | elsif ($ref eq 'HASH') { } | |
| 4 | 8 | elsif ($ref eq 'REF' or $ref eq 'SCALAR') { } | |
| 47 | 50 | 1 | defined $arg && !($DO_NOT_PROCESS_NUMERIC_VALUE && _is_number($arg)) ? : |
| 51 | 52 | 8 | wantarray ? : |
| 74 | 0 | 9 | @_ == 3 ? : |
| 85 | 0 | 1 | unless @_ >= 4 |
| 92 | 0 | 1 | @_ == 5 ? : |
| 99 | 1 | 13 | unless defined $value |
| 103 | 8 | 5 | $flags & 12288 && !($flags & 16384) ? : |