blib/lib/IsUTF8.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 10 | 14 | 71.4 |
line | true | false | branch |
---|---|---|---|
58 | 4 | 4 | @_ ? : |
60 | 0 | 8 | if $debug |
61 | 0 | 8 | if $debug > 2 |
63 | 4 | 4 | if ($data =~ /( [\xc0-\xdf][\x80-\xbf] | [\xe0-\xef][\x80-\xbf]{2} | [\xf0-\xf7][\x80-\xbf]{3} ) /x) |
68 | 0 | 4 | if ($debug) |
78 | 2 | 2 | if ($data =~ /([\x80-\xff])/) |
79 | 0 | 2 | if ($debug) |