| lib/Lingua/Names.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 3 | 0 | unless $Lingua::Names::DEBUG |
| 19 | 3 | 11 | unless my $arg = _basic_word_validation($_[0]) |
| 20 | 10 | 1 | exists $Lingua::Names::NAMES{lc $arg} ? : |
| 24 | 3 | 11 | unless $_[0] and $_[0] =~ /^[a-zA-Z]+$/ |