| blib/lib/IP/Country/Medium.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 24 | 20.8 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 2 | 0 | unless (defined $singleton) |
| 31 | 0 | 0 | defined $_[1] ? : |
| 32 | 0 | 0 | if ($bool) { } |
| 48 | 29 | 0 | if ($hostname =~ /$ip_match/) { } |
| 53 | 0 | 0 | if ($cache and exists $cache{$hostname}) { } |
| 56 | 0 | 0 | if ($hostname =~ /$tld_match/) { } |
| 60 | 0 | 0 | if $cache |
| 70 | 0 | 29 | if ($cache and exists $cache{$ip_addr}) { } |
| 74 | 0 | 29 | if $ip_dotted =~ /$private_ip/ |
| 76 | 29 | 0 | if (my $cc = IP::Country::Fast::inet_ntocc($ip_addr)) { } |
| 0 | 0 | elsif (gethostbyaddr($ip_addr, 2) =~ /$tld_match/) { } | |
| 80 | 0 | 0 | if $cache |