| blib/lib/Unicode/Escape.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 14 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 11 | 14 | if (ref $self) { } |
| 47 | 125 | 516 | $utf8 =~ /[\x80-\xff]/ ? : |
| 56 | 14 | 16 | ref $self ? : |
| 61 | 162 | 504 | if ($char eq '\\') { } |
| 62 | 150 | 12 | if (($char = shift @chars) eq 'u') { } |
| 65 | 4 | 596 | unless ($chars[$i] =~ /[0-9a-fA-F]/) |
| 69 | 146 | 4 | if ($i == 4) { } |