| blib/lib/Octets/To/Unicode.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 24 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 46 | 6 | if ($x =~ /^[\x{410}-\x{42f}\x{401}\x{430}-\x{44f}\x{451}][\x{430}-\x{44f}\x{451}]*$/) { } |
| 35 | 0 | 4 | unless length $octets |
| 37 | 1 | 3 | if utf8::is_utf8($octets) |
| 49 | 0 | 4 | if @x == 1 |
| 51 | 4 | 0 | if (@x > 1) |
| 56 | 0 | 4 | wantarray ? : |
| 71 | 0 | 0 | if (-d $file) { } |
| 83 | 0 | 0 | unless open my $f, "<", $file |
| 94 | 0 | 0 | if utf8::is_utf8($unicode) |
| 96 | 0 | 0 | unless open my $f, ">", $file |
| 113 | 0 | 0 | unless utf8::is_utf8($unicode) |
| 115 | 0 | 0 | if defined $encoding |