| line | % | coverage | branch |
|---|
| 113 | 50 | T | F | ref $_[0] eq 'HASH' ? : |
| 115 | 50 | T | F | if (not defined $class) { } |
| 50 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 130 | 50 | T | F | unless (-d $directory) |
| 170 | 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) { } |
| 171 | 0 | T | F | if (scalar @_) { } |
| 0 | T | F | elsif (not defined $self) { } |
| 0 | T | F | elsif ($self eq __PACKAGE__) { } |
| 194 | 50 | T | F | unless my $location = $params{"location"} |
| 197 | 50 | T | F | unless ($location =~ /\D/) |
| 202 | 50 | T | F | if ($location =~ /^(.+),\s*Washington\s*DC,(.+)$/) |
| 206 | 50 | T | F | if (my $rc = $known_locations{$location}) |
| 219 | 50 | T | F | unless $location =~ /,/ or $params{"region"} |
| 223 | 0 | T | F | if $cached_result |
| 232 | 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+)$/) { } |
| 242 | 0 | T | F | if ($location =~ /^St\.? (.+)/) |
| 245 | 0 | T | F | if ($country =~ /^(Canada|United States|USA|US)$/) |
| 282 | 0 | T | F | if ($country) |
| 283 | 0 | T | F | if (defined $country and $country eq 'UK' || $country eq 'United Kingdom' || $country eq 'England') |
| 293 | 0 | T | F | if ($state and $admin1cache{$state}) { } |
| 0 | T | F | elsif ($admin1cache{$country} and not defined $state) { } |
| 298 | 0 | T | F | unless $$self{"admin1"} //= "Geo::Coder::Free::DB::MaxMind::admin1"->new("no_entry", 1) |
| 300 | 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)) { } |
| 305 | 0 | T | F | if ($state =~ /^[A-Z]{2}$/) { } |
| 311 | 0 | T | F | if ($$admin1{"concatenated_codes"} =~ /^$concatenated_codes\./i) |
| 327 | 0 | T | F | unless defined $concatenated_codes |
| 334 | 0 | T | F | if ($country =~ /^(United States|USA|US)$/) { } |
| 0 | T | F | elsif ($country eq 'Canada' and $state and length $state > 2) { } |
| 335 | 0 | T | F | if ($county and length $county > 2) |
| 336 | 0 | T | F | if (my $twoletterstate = "Locale::US"->new->{"state2code"}{uc $county}) |
| 341 | 0 | T | F | if ($state and length $state > 2) |
| 342 | 0 | T | F | if (my $twoletterstate = "Locale::US"->new->{"state2code"}{uc $state}) |
| 349 | 0 | T | F | if ("Locale::CA"->new->{"province2code"}{uc $state}) |
| 351 | 0 | T | F | unless defined $location |
| 355 | 0 | T | F | unless $$self{"admin2"} //= "Geo::Coder::Free::DB::MaxMind::admin2"->new("no_entry", 1) |
| 357 | 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) { } |
| 371 | 0 | T | F | if (defined $county and $county eq 'London') { } |
| 0 | T | F | elsif (defined $county) { } |
| 380 | 0 | T | F | if ($$admin2{"concatenated_codes"} =~ /$concatenated_codes/) |
| 382 | 0 | T | F | if ($region =~ /^[A-Z]{2}\.([A-Z]{2})\./) { } |
| 384 | 0 | T | F | if (defined $state and $state =~ /^[A-Z]{2}$/) { } |
| 385 | 0 | T | F | if ($state eq $rc) |
| 399 | 0 | T | F | if ($state and not defined $region) |
| 400 | 0 | T | F | if ($state =~ /^[A-Z]{2}$/) { } |
| 406 | 0 | T | F | if ($$admin2{"concatenated_codes"} =~ /$concatenated_codes/) |
| 415 | 0 | T | F | if (scalar @regions == 0 and not defined $region) |
| 420 | 0 | T | F | if (scalar @admin2s == 0 and $country =~ /^(Canada|United States|USA|US)$/ and not $location =~ /\sCounty/i) |
| 425 | 0 | T | F | if (scalar @admin2s and defined $admin2s[0]{'concatenated_codes'}) { } |
| 0 | T | F | elsif (defined $county) { } |
| 428 | 0 | T | F | if ($concat =~ /^CA\.(\d\d)\./) { } |
| 0 | T | F | elsif ($concat =~ /$concatenated_codes/) { } |
| 440 | 0 | T | F | unless (defined $$self{"admin1"}) |
| 441 | 0 | T | F | unless $$self{"admin1"} = "Geo::Coder::Free::DB::MaxMind::admin1"->new("no_entry", 1) |
| 446 | 0 | T | F | if ($$admin1{"concatenated_codes"} =~ /^$concatenated_codes\./i) |
| 448 | 0 | T | F | if (scalar @admin1s == 1) |
| 457 | 0 | T | F | unless (defined $$self{"cities"}) |
| 465 | 0 | T | F | if (defined $county and $county =~ /^[A-Z]{2}$/ and $country =~ /^(United States|USA|US)$/) { } |
| 468 | 0 | T | F | if ($region_only) { } |
| 475 | 0 | T | F | if ($region) |
| 476 | 0 | T | F | if ($region =~ /^.+\.(.+)$/) |
| 480 | 0 | T | F | if ($country_code) |
| 485 | 0 | T | F | if (scalar @admin2s == 1) |
| 486 | 0 | T | F | if ($state) { } |
| 0 | T | F | elsif ($county) { } |
| 495 | 0 | T | F | if (my $c = $params{'region'}) { } |
| 0 | T | F | elsif ($countrycode) { } |
| 581 | 0 | T | F | unless (defined $city) |
| 584 | 0 | T | F | if ($region =~ /^.+\.(.+)$/) |
| 587 | 0 | T | F | if ($country =~ /^(United States|USA|US)$/) |
| 588 | 0 | T | F | unless $region =~ /^[A-Z]{2}$/ |
| 592 | 0 | T | F | if defined $city |
| 597 | 0 | T | F | if (defined $city and defined $$city{"Latitude"}) |
| 599 | 0 | T | F | if defined $$city{"Region"} and $$city{"Region"} =~ /^[A-Z]\d$/ |
| 600 | 0 | T | F | if defined $$city{"Population"} and length $$city{"Population"} == 0 |
| 626 | 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) { } |
| 627 | 0 | T | F | if (scalar @_) { } |
| 0 | T | F | elsif (not defined $self) { } |
| 0 | T | F | elsif ($self eq __PACKAGE__) { } |
| 654 | 0 | T | F | if ($latlng) { } |
| 662 | 0 | T | F | unless (defined $latitude and defined $longitude) |
| 666 | 0 | T | F | unless (defined $$self{"cities"}) |
| 673 | 0 | T | F | if (wantarray) |
| 682 | 0 | T | F | if (my $rc = $$self{"cities"}->execute("SELECT * FROM cities WHERE ((ABS(Latitude - $latitude)) < $radius) AND ((ABS(Longitude - $longitude)) < $radius) LIMIT 1")) |
| 694 | 0 | T | F | if (my $region = $$loc{"Region"}) |
| 699 | 0 | T | F | if ($value eq $region) |
| 704 | 0 | T | F | if ($county) { } |
| 708 | 0 | T | F | unless $$self{"admin2"} //= "Geo::Coder::Free::DB::MaxMind::admin2"->new("no_entry", 1) |
| 713 | 0 | T | F | if (ref $row and $$row{"name"}) |