| line | % | coverage | branch |
|---|
| 125 | 50 | T | F | if (not defined $class) { } |
| 50 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 140 | 50 | T | F | unless (-d $directory) |
| 180 | 50 | T | F | if (not ref $self) { } |
| 50 | T | F | elsif (ref $self eq 'HASH') { } |
| 50 | T | F | elsif (ref $_[0] eq 'HASH') { } |
| 0 | T | F | elsif (ref $_[0]) { } |
| 0 | T | F | elsif (scalar @_ and scalar(@_) % 2 == 0) { } |
| 181 | 0 | T | F | if (scalar @_) { } |
| 0 | T | F | elsif (not defined $self) { } |
| 0 | T | F | elsif ($self eq __PACKAGE__) { } |
| 204 | 50 | T | F | unless my $location = $params{"location"} |
| 207 | 50 | T | F | unless ($location =~ /\D/) |
| 212 | 50 | T | F | if ($location =~ /^(.+),\s*Washington\s*DC,(.+)$/) |
| 216 | 50 | T | F | if (my $rc = $known_locations{$location}) |
| 228 | 50 | T | F | unless $location =~ /,/ or $params{"region"} |
| 232 | 0 | T | F | if $cached_result |
| 241 | 0 | T | F | if ($location =~ /^([\w\s\-]+),([\w\s]+),([\w\s]+)?$/) { } |
| 0 | T | F | elsif ($location =~ /^([\w\s\-]+),([\w\s]+),([\w\s]+),\s*(Canada|United States|USA|US)?$/) { } |
| 0 | T | F | elsif ($location =~ /^[\w\s-],[\w\s-]/) { } |
| 0 | T | F | elsif ($location =~ /^[\w\s-]+$/ and my $region = $params{'region'}) { } |
| 0 | T | F | elsif ($location =~ /^([\w\s-]+),\s*(\w+)$/) { } |
| 251 | 0 | T | F | if ($location =~ /^St\.? (.+)/) |
| 254 | 0 | T | F | if ($country =~ /^(Canada|United States|USA|US)$/) |
| 290 | 0 | T | F | if ($country) |
| 291 | 0 | T | F | if (defined $country and $country eq 'UK' || $country eq 'United Kingdom' || $country eq 'England') |
| 299 | 0 | T | F | if ($state and $admin1cache{$state}) { } |
| 0 | T | F | elsif ($admin1cache{$country} and not defined $state) { } |
| 304 | 0 | T | F | unless $$self{"admin1"} //= "Geo::Coder::Free::DB::MaxMind::admin1"->new("no_entry", 1) |
| 306 | 0 | T | F | if (my $admin1 = $$self{'admin1'}->fetchrow_hashref('asciiname', $country)) { } |
| 0 | T | F | elsif ($state) { } |
| 0 | T | F | elsif ($countrycode) { } |
| 0 | T | F | elsif (Locale::Country::code2country($country)) { } |
| 311 | 0 | T | F | if ($state =~ /^[A-Z]{2}$/) { } |
| 317 | 0 | T | F | if ($$admin1{"concatenated_codes"} =~ /^\Q$concatenated_codes\E\./i) |
| 333 | 0 | T | F | unless defined $concatenated_codes |
| 338 | 0 | T | F | if ($country =~ /^(United States|USA|US)$/) { } |
| 0 | T | F | elsif ($country eq 'Canada' and $state and length $state > 2) { } |
| 339 | 0 | T | F | if ($county and length $county > 2) |
| 340 | 0 | T | F | if (my $twoletterstate = ($_locale_us //= "Locale::US"->new)->{"state2code"}{uc $county}) |
| 344 | 0 | T | F | if ($state and length $state > 2) |
| 345 | 0 | T | F | if (my $twoletterstate = ($_locale_us //= "Locale::US"->new)->{"state2code"}{uc $state}) |
| 350 | 0 | T | F | if (($_locale_ca //= "Locale::CA"->new)->{"province2code"}{uc $state}) |
| 352 | 0 | T | F | unless defined $location |
| 356 | 0 | T | F | unless $$self{"admin2"} //= "Geo::Coder::Free::DB::MaxMind::admin2"->new("no_entry", 1) |
| 358 | 0 | T | F | if (defined $county and $county =~ /^[A-Z]{2}$/ and $country =~ /^(United States|USA|US)$/) { } |
| 0 | T | F | elsif ($county and $admin1cache{$county}) { } |
| 0 | T | F | elsif ($county and $admin2cache{$county}) { } |
| 0 | T | F | elsif (defined $state and $admin2cache{$state} and not defined $county) { } |
| 368 | 0 | T | F | if (defined $county and $county eq 'London') { } |
| 0 | T | F | elsif (defined $county) { } |
| 374 | 0 | T | F | if ($$admin2{"concatenated_codes"} =~ /$concatenated_codes/) |
| 376 | 0 | T | F | if ($region =~ /^[A-Z]{2}\.([A-Z]{2})\./) { } |
| 378 | 0 | T | F | if (defined $state and $state =~ /^[A-Z]{2}$/) { } |
| 379 | 0 | T | F | if ($state eq $rc) |
| 393 | 0 | T | F | if ($state and not defined $region) |
| 394 | 0 | T | F | if ($state =~ /^[A-Z]{2}$/) { } |
| 400 | 0 | T | F | if ($$admin2{"concatenated_codes"} =~ /$concatenated_codes/) |
| 409 | 0 | T | F | if (scalar @regions == 0 and not defined $region) |
| 413 | 0 | T | F | if (scalar @admin2s == 0 and $country =~ /^(Canada|United States|USA|US)$/ and not $location =~ /\sCounty/i) |
| 417 | 0 | T | F | if (scalar @admin2s and defined $admin2s[0]{'concatenated_codes'}) { } |
| 0 | T | F | elsif (defined $county) { } |
| 420 | 0 | T | F | if ($concat =~ /^CA\.(\d\d)\./) { } |
| 0 | T | F | elsif ($concat =~ /$concatenated_codes/) { } |
| 431 | 0 | T | F | unless (defined $$self{"admin1"}) |
| 432 | 0 | T | F | unless $$self{"admin1"} = "Geo::Coder::Free::DB::MaxMind::admin1"->new("no_entry", 1) |
| 436 | 0 | T | F | if ($$admin1{"concatenated_codes"} =~ /^\Q$concatenated_codes\E\./i) |
| 438 | 0 | T | F | if (scalar @admin1s == 1) |
| 447 | 0 | T | F | unless (defined $$self{"cities"}) |
| 455 | 0 | T | F | if (defined $county and $county =~ /^[A-Z]{2}$/ and $country =~ /^(United States|USA|US)$/) { } |
| 458 | 0 | T | F | if ($region_only) { } |
| 465 | 0 | T | F | if ($region) |
| 468 | 0 | T | F | if ($country_code) |
| 473 | 0 | T | F | if (scalar @admin2s == 1) |
| 474 | 0 | T | F | if ($state) { } |
| 0 | T | F | elsif ($county) { } |
| 485 | 0 | T | F | if (my $c = $params{'region'}) { } |
| 0 | T | F | elsif ($countrycode) { } |
| 565 | 0 | T | F | unless (defined $city) |
| 568 | 0 | T | F | if ($country =~ /^(United States|USA|US)$/) |
| 569 | 0 | T | F | unless $region =~ /^[A-Z]{2}$/ |
| 573 | 0 | T | F | if defined $city |
| 577 | 0 | T | F | if (defined $city and defined $$city{"Latitude"}) |
| 579 | 0 | T | F | if defined $$city{"Region"} and $$city{"Region"} =~ /^[A-Z]\d$/ |
| 580 | 0 | T | F | if defined $$city{"Population"} and length $$city{"Population"} == 0 |
| 606 | 0 | T | F | if (not ref $self) { } |
| 0 | T | F | elsif (ref $self eq 'HASH') { } |
| 0 | T | F | elsif (ref $_[0] eq 'HASH') { } |
| 0 | T | F | elsif (ref $_[0]) { } |
| 0 | T | F | elsif (scalar @_ and scalar(@_) % 2 == 0) { } |
| 607 | 0 | T | F | if (scalar @_) { } |
| 0 | T | F | elsif (not defined $self) { } |
| 0 | T | F | elsif ($self eq __PACKAGE__) { } |
| 634 | 0 | T | F | if ($latlng) { } |
| 642 | 0 | T | F | unless (defined $latitude and defined $longitude) |
| 646 | 0 | T | F | unless (defined $$self{"cities"}) |
| 656 | 0 | T | F | unless defined $c and $c =~ /^-?\d+\.?\d*$/ |
| 660 | 0 | T | F | if (wantarray) |
| 678 | 0 | T | F | if ($rc) |
| 689 | 0 | T | F | if (my $region = $$loc{"Region"}) |
| 694 | 0 | T | F | if ($county) { } |
| 697 | 0 | T | F | unless $$self{"admin2"} //= "Geo::Coder::Free::DB::MaxMind::admin2"->new("no_entry", 1) |
| 706 | 0 | T | F | if ($_country =~ /^[A-Z]{2}$/ and $_reg =~ /^[A-Z0-9]{1,10}$/) |
| 709 | 0 | T | F | if (ref $row and $$row{"name"}) |