blib/lib/Test/utf8.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 12 | 100.0 |
line | true | false | branch |
---|---|---|---|
103 | 5 | 7 | unless (&Encode::is_utf8($string)) |
109 | 4 | 3 | if (_ok(!defined($pos), $name)) |
128 | 4 | 3 | if $pos == length $string |
210 | 1 | 1 | if (&Encode::is_utf8($string)) { } |
253 | 2 | 1 | unless $string =~ /([^\x{00}-\x{7f}])/ |
277 | 3 | 1 | unless $string =~ /([^\x{00}-\x{ff}])/ |