| blib/lib/OpenOffice/Wordlist.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 22 | 63.6 |
| line | true | false | branch |
|---|---|---|---|
| 95 | 0 | 3 | unless open my $dict, '<:raw', $file |
| 99 | 0 | 3 | unless substr($data, 0, 8, '') =~ /\x06\x00(WBSWG[256])/ |
| 104 | 3 | 0 | unless defined $$self{'language'} |
| 108 | 3 | 0 | unless defined $$self{'neg'} |
| 118 | 3 | 0 | if $type |
| 126 | 7 | 6 | $$self{'type'} eq 'WBSWG6' ? : |
| 143 | 0 | 18 | if (UNIVERSAL::isa($word, 'ARRAY')) { } |
| 180 | 1 | 5 | if $type |
| 182 | 0 | 6 | unless open my $dict, '>:raw', $file |
| 194 | 0 | 6 | unless close $dict |
| 196 | 1 | 5 | if $type |