| line | % | coverage | branch |
|---|
| 155 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&blessed($class)) { } |
| 156 | 100 | T | F | if (scalar keys %{$params;} > 0) |
| 232 | 100 | T | F | unless defined $geocoder |
| 309 | 100 | T | F | if (not defined $location or length $location == 0) |
| 315 | 100 | T | F | unless ($params->{'location'} =~ /\D/) |
| 325 | 100 | T | F | if $self->{'debug'} |
| 336 | 100 | T | F | if (defined $cached) |
| 338 | 100 | T | F | ref $cached eq 'ARRAY' ? : |
| 344 | 50 | T | F | unless ref $r |
| 345 | 100 | T | F | if ref $r eq "HASH" |
| 350 | 100 | T | F | unless (wantarray) |
| 360 | 50 | T | F | if $self->{'debug'} |
| 373 | 50 | T | F | if $self->{'debug'} |
| 378 | 100 | T | F | if (ref $r eq 'HASH') { } |
| 50 | T | F | elsif (ref $r eq 'Geo::Location::Point') { } |
| 379 | 100 | T | F | if defined $r->{'geometry'}{'location'}{'lat'} |
| 384 | 100 | T | F | if $allempty |
| 390 | 100 | T | F | if (exists $self->{'locations'}{$location}) |
| 392 | 50 | T | F | if (ref $stored and ref $stored eq "Geo::Coder::List::_NotFound") |
| 393 | 50 | T | F | if $self->{'debug'} |
| 394 | 100 | T | F | wantarray ? : |
| 404 | 100 | T | F | if (ref $geocoder eq "HASH") |
| 406 | 100 | T | F | if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
| 407 | 50 | T | F | if $self->{'debug'} |
| 408 | 100 | T | F | if ($limit <= 0) |
| 415 | 100 | T | F | if (my $regex = $geocoder->{'regex'}) |
| 417 | 50 | T | F | if $self->{'debug'} |
| 418 | 100 | T | F | unless ($location =~ /$regex/) |
| 433 | 100 | T | F | if $self->{'debug'} |
| 434 | 100 | T | F | if (ref $geocoder eq 'Geo::GeoNames') { } |
| 436 | 50 | T | F | if $self->{'debug'} |
| 437 | 100 | T | F | unless defined $geocoder->username |
| 444 | 100 | T | F | if ($@) |
| 462 | 100 | T | F | if (ref $geocoder eq "Geo::Coder::US::Census" and not defined $rc[0]{'result'}{'addressMatches'}[0]{'coordinates'}{'y'}) |
| 477 | 100 | T | F | if (scalar @rc == 0 or ref $rc[0] eq "HASH" and scalar keys %{$rc[0];} == 0 or 0) |
| 505 | 100 | T | F | if (ref $l eq "ARRAY") |
| 511 | 100 | T | F | if (not defined $l or $l eq "") |
| 526 | 100 | T | F | unless ref $l |
| 532 | 100 | T | F | if $self->{'debug'} >= 2 |
| 537 | 100 | T | F | if (ref $l eq "Geo::Location::Point") |
| 541 | 100 | T | F | if (not defined $l->{'geometry'}{'location'}{'lat'} and defined $l->{'lat'}) |
| 564 | 50 | T | F | if ref $l ne "HASH" |
| 566 | 100 | T | F | if ($l->{'error'}) { } |
| 580 | 100 | T | F | unless (defined $l->{'geometry'}{'location'}{'lat'}) |
| 583 | 100 | T | F | if (defined $l->{'lat'} and defined $l->{'lon'}) { } |
| 100 | T | F | elsif ($l->{'BestLocation'}) { } |
| 100 | T | F | elsif ($l->{'point'}) { } |
| 100 | T | F | elsif (defined $l->{'latt'}) { } |
| 100 | T | F | elsif (defined $l->{'latitude'}) { } |
| 100 | T | F | elsif (defined $l->{'properties'}{'geoLatitude'}) { } |
| 100 | T | F | elsif ($l->{'results'}[0]{'geometry'}) { } |
| 100 | T | F | elsif ($l->{'RESULTS'}) { } |
| 100 | T | F | elsif (defined $l->{'result'}{'addressMatches'}[0]{'coordinates'}{'y'}) { } |
| 100 | T | F | elsif (defined $l->{'lat'}) { } |
| 100 | T | F | elsif ($l->{'features'}) { } |
| 607 | 100 | T | F | if (my $type = $l->{'local_type'}) |
| 618 | 100 | T | F | if ($l->{'results'}[0]{'geometry'}{'location'}) { } |
| 645 | 100 | T | F | if ($l->{'features'}[0]{'center'}) { } |
| 100 | T | F | elsif ($l->{'features'}[0]{'geometry'}{'coordinates'}) { } |
| 663 | 100 | T | F | if (defined $lat and defined $long) { } |
| 678 | 100 | T | F | if ($l->{'standard'}{'countryname'}) |
| 683 | 100 | T | F | if (defined $l->{'geometry'}{'location'}{'lat'}) |
| 686 | 100 | T | F | if $self->{'debug'} |
| 712 | 100 | T | F | unless defined $good_result |
| 715 | 100 | T | F | if $self->{'debug'} |
| 717 | 100 | T | F | if ($self->{'debug'} >= 2) |
| 729 | 50 | T | F | if (defined $rc[0]) |
| 731 | 100 | T | F | if (defined $rc[0]{'long'} and not defined $rc[0]{'lng'}) |
| 734 | 100 | T | F | if (defined $rc[0]{'long'} and not defined $rc[0]{'lon'}) |
| 739 | 100 | T | F | unless (defined $good_result->{'lat'} and defined $good_result->{'lng'}) |
| 744 | 100 | T | F | if (wantarray) |
| 756 | 50 | T | F | if $self->{'debug'} |
| 761 | 100 | T | F | wantarray ? : |
| 804 | 100 | T | F | unless $ua |
| 808 | 100 | T | F | ref $g eq 'HASH' ? : |
| 810 | 100 | T | F | unless defined $geocoder |
| 819 | 100 | T | F | if ($ua->can('clone') and $ua->can('agent')) { } |
| 823 | 100 | T | F | $version ? : |
| 877 | 100 | T | F | unless my $latlng = $params->{'latlng'} |
| 885 | 100 | T | F | if (my $rc = $self->_cache($latlng)) |
| 895 | 100 | T | F | if (ref $geocoder eq "HASH") |
| 896 | 100 | T | F | if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
| 897 | 50 | T | F | if $self->{'debug'} |
| 898 | 100 | T | F | if ($limit <= 0) |
| 906 | 100 | T | F | if $self->{'debug'} |
| 908 | 100 | T | F | if (wantarray) { } |
| 919 | 100 | T | F | if ($@ =~ /Unknown parameter.*latlng|latlng.*[Uu]nknown/s) |
| 926 | 100 | T | F | if ($@) |
| 939 | 50 | T | F | if $self->{'debug'} >= 2 |
| 942 | 100 | T | F | if (my $name = $loc->{'display_name'}) { } |
| 100 | T | F | elsif ($loc->{'city'}) { } |
| 50 | T | F | elsif ($loc->{'features'}) { } |
| 974 | 100 | T | F | if ($@ =~ /Unknown parameter.*latlng|latlng.*[Uu]nknown/s) |
| 981 | 100 | T | F | if ($@) |
| 995 | 100 | T | F | unless defined $rc |
| 996 | 100 | T | F | unless (ref $rc) |
| 1008 | 100 | T | F | if $self->{'debug'} >= 2 |
| 1010 | 100 | T | F | if (my $name = $rc->{'display_name'}) |
| 1023 | 100 | T | F | if ($rc->{'city'}) |
| 1037 | 50 | T | F | if ($rc->{'features'}) |
| 1157 | 100 | T | F | if (my $usa = $loc->{'usa'}) { } |
| 1161 | 100 | T | F | $name ? : |
| 100 | T | F | if $usa->{'usstaddress'} |
| 1163 | 100 | T | F | $name ? : |
| 100 | T | F | if $usa->{'uscity'} |
| 1164 | 50 | T | F | $name ? : |
| 100 | T | F | if $usa->{'state'} |
| 1166 | 50 | T | F | $name ? : |
| 1171 | 100 | T | F | $name ? : |
| 100 | T | F | if $loc->{'staddress'} |
| 1172 | 100 | T | F | $name ? : |
| 100 | T | F | if $loc->{'city'} |
| 1173 | 50 | T | F | $name ? : |
| 100 | T | F | if $loc->{'prov'} |
| 1215 | 100 | T | F | if (scalar @_) |
| 1219 | 100 | T | F | defined $value ? : |
| 1224 | 100 | T | F | if ($self->{'cache'}) |
| 1227 | 100 | T | F | if (ref $value eq 'ARRAY') { } |
| 100 | T | F | elsif (ref $value eq 'HASH') { } |
| 1231 | 100 | T | F | if (&blessed($item) and ref $item->{'geocoder'}) |
| 1235 | 100 | T | F | unless ref $item eq "HASH" |
| 1241 | 100 | T | F | unless ($self->{'debug'}) |
| 1243 | 100 | T | F | unless $k eq "geometry" |
| 1247 | 100 | T | F | unless (defined $item->{'geometry'}{'location'}{'lat'}) |
| 1267 | 100 | T | F | unless ($self->{'debug'}) |
| 1269 | 100 | T | F | unless $k eq "geometry" |
| 1273 | 100 | T | F | if (defined $value->{'geometry'}{'location'}{'lat'}) { } |
| 50 | T | F | elsif (defined $value->{'geometry'}) { } |
| 1294 | 50 | T | F | if (ref $value and ref $value->{'geocoder'}) |
| 1300 | 100 | T | F | if $self->{'debug'} |
| 1303 | 100 | T | F | if (not defined $value) { } |
| 100 | T | F | elsif (ref $self->{'cache'} eq 'HASH') { } |
| 1321 | 100 | T | F | if (not defined $rc and $self->{'cache'}) |
| 1322 | 100 | T | F | if (ref $self->{'cache'} eq 'HASH') { } |
| 1329 | 100 | T | F | unless defined $rc |
| 1332 | 100 | T | F | if ref $rc and ref $rc eq "Geo::Coder::List::_NotFound" |
| 1335 | 100 | T | F | if (ref $rc eq "HASH") |
| 1336 | 100 | T | F | unless defined $rc->{'geometry'}{'location'}{'lat'} |
| 1349 | 0 | T | F | if (my $logger = $self->{'logger'}) |
| 1352 | 0 | T | F | if ($self->{'debug'}) |
| 1361 | 50 | T | F | if (my $logger = $self->{'logger'}) { } |
| 1372 | 50 | T | F | if (my $logger = $self->{'logger'}) { } |