| blib/lib/Unicode/RecursiveDowngrade.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 20 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 87 | 0 | defined $_[0] ? : |
| 17 | 0 | 87 | if (defined $sub) |
| 18 | 0 | 0 | if (ref $sub ne 'CODE') { } |
| 32 | 8 | 96 | if ($ref eq 'ARRAY') { } |
| 7 | 89 | elsif ($ref eq 'HASH') { } | |
| 0 | 89 | elsif ($ref eq 'SCALAR') { } | |
| 0 | 89 | elsif ($ref eq 'GLOB') { } | |
| 2 | 87 | elsif ($ref ne '' and $ref ne 'CODE') { } | |
| 87 | 0 | elsif ($ref eq '') { } | |
| 51 | 2 | 0 | if (length $blessed_ref) |