| blib/lib/Encode/RAD50.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 22 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 107 | 0 | 4 | if $check & 1 |
| 108 | 0 | 4 | if $check & 2 |
| 131 | 18 | 0 | length $_[1] > 1 ? : |
| 132 | 18 | 0 | if ($bits < 64000) { } |
| 138 | 0 | 54 | if $char eq "?" and _carp($check, "'${char}' is an invalid character.") |
| 145 | 0 | 0 | if _carp($check, sprintf("0x%04x is an invalid value", $bits)) |
| 177 | 0 | 18 | if length($string) % 3 |
| 183 | 52 | 2 | if (exists $irad50{$char}) { } |
| 186 | 0 | 2 | if _carp($check, "'${char}' is an invalid character") |
| 217 | 1 | 0 | $_[0] ? : |
| 1 | 0 | if @_ |