| blib/lib/Lingua/EN/NameLookup.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 26 | 88.4 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 1 | 8 | unless $code |
| 26 | 3 | 5 | unless exists $$self{$code} |
| 28 | 0 | 22 | if $item gt $name |
| 29 | 4 | 18 | if $item eq $name |
| 37 | 1 | 5 | unless $code |
| 38 | 1 | 4 | unless exists $$self{$code} |
| 40 | 4 | 4 | if $item =~ /$name/i |
| 48 | 2 | 0 | if (not exists $$self{$code}) { } |
| 59 | 1 | 1 | unless (open _DICT, ">$filename") |
| 73 | 1 | 6 | unless (open _DICT, "$filename") |
| 79 | 0 | 11928 | unless s/^([A-Z]\d{3})\s*// |
| 89 | 1 | 1 | unless (open _DICT, "$filename") |
| 119 | 8 | 1980 | if $array_length > $longest_array |