| blib/lib/Geography/States.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 26 | 92.3 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 16 | 238 | lc $_[0] eq 'australia' ? : |
| 19 | 131 | 123 | if (_c_length $country >= length $str) { } |
| 24 | 60 | 63 | if $country eq 'usa' |
| 25 | 28 | 95 | if $country eq 'brazil' |
| 54 | 0 | 7 | unless @_ > 1 |
| 62 | 0 | 7 | unless $states{$country} |
| 69 | 193 | 195 | unless $cs eq $$info[0] |
| 70 | 11 | 184 | if $strict and $$info[2] |
| 73 | 367 | 1 | unless exists $$self{'cs'}{$$info[$i]} |
| 85 | 2 | 12 | unless (@_) |
| 90 | 2 | 10 | unless my $answer = $$self{'cs'}{$query} |
| 91 | 1 | 9 | if wantarray |
| 92 | 7 | 2 | $$answer[0] eq $query ? : |