| blib/lib/Parse/Win32Registry.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 0 | 0 | if (defined $codepage) |
| 55 | 1 | 53 | unless my $filename = shift() |
| 57 | 0 | 53 | unless open my $regfile, '<', $filename |
| 59 | 0 | 53 | if (not defined $sig or length $sig != 4) |
| 65 | 16 | 37 | if ($sig eq 'CREG') { } |
| 35 | 2 | elsif ($sig eq 'regf') { } |