| blib/lib/String/BOM.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 20 | 30 | if ($_[0] =~ /^(\x00\x00\xfe\xff|\xff\xfe\x00\x00|\xfe\xff|\xff\xfe|\xef\xbb\xbf)/s) |
| 36 | 11 | 40 | unless open my $fh, '<', $_[0] |
| 38 | 0 | 40 | unless read $fh, my $buf, 4 |
| 40 | 0 | 40 | unless close $fh |
| 46 | 10 | 16 | if (file_has_bom($_[0])) { } |
| 67 | 10 | 0 | if ($. == 1) |
| 75 | 0 | 10 | if $inplace_error |
| 77 | 5 | 5 | unless $_[1] |
| 82 | 6 | 10 | if $! |
| 89 | 0 | 1 | unless @_ |
| 95 | 1 | 1 | if not defined &{$_;} or /\:\'/ |