| 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 |
| 305 | 50 | T | F | unless (defined $params) |
| 313 | 100 | T | F | if (not defined $location or length $location == 0) |
| 319 | 100 | T | F | unless ($params->{'location'} =~ /\D/) |
| 329 | 100 | T | F | if $self->{'debug'} |
| 340 | 100 | T | F | if (defined $cached) |
| 342 | 100 | T | F | ref $cached eq 'ARRAY' ? : |
| 348 | 50 | T | F | unless ref $r |
| 349 | 100 | T | F | if ref $r eq "HASH" |
| 354 | 100 | T | F | unless (wantarray) |
| 364 | 50 | T | F | if $self->{'debug'} |
| 377 | 50 | T | F | if $self->{'debug'} |
| 382 | 100 | T | F | if (ref $r eq 'HASH') { } |
| 50 | T | F | elsif (ref $r eq 'Geo::Location::Point') { } |
| 383 | 100 | T | F | if defined $r->{'geometry'}{'location'}{'lat'} |
| 388 | 100 | T | F | if $allempty |
| 394 | 100 | T | F | if (exists $self->{'locations'}{$location}) |
| 396 | 50 | T | F | if (ref $stored and ref $stored eq "Geo::Coder::List::_NotFound") |
| 397 | 50 | T | F | if $self->{'debug'} |
| 398 | 100 | T | F | wantarray ? : |
| 408 | 100 | T | F | if (ref $geocoder eq "HASH") |
| 410 | 100 | T | F | if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
| 411 | 50 | T | F | if $self->{'debug'} |
| 412 | 100 | T | F | if ($limit <= 0) |
| 419 | 100 | T | F | if (my $regex = $geocoder->{'regex'}) |
| 421 | 50 | T | F | if $self->{'debug'} |
| 422 | 100 | T | F | unless ($location =~ /$regex/) |
| 437 | 100 | T | F | if $self->{'debug'} |
| 438 | 100 | T | F | if (ref $geocoder eq 'Geo::GeoNames') { } |
| 440 | 50 | T | F | if $self->{'debug'} |
| 441 | 100 | T | F | unless defined $geocoder->username |
| 448 | 100 | T | F | if ($@) |
| 466 | 100 | T | F | if (ref $geocoder eq "Geo::Coder::US::Census" and not defined $rc[0]{'result'}{'addressMatches'}[0]{'coordinates'}{'y'}) |
| 481 | 100 | T | F | if (scalar @rc == 0 or ref $rc[0] eq "HASH" and scalar keys %{$rc[0];} == 0 or 0) |
| 509 | 100 | T | F | if (ref $l eq "ARRAY") |
| 515 | 100 | T | F | if (not defined $l or $l eq "") |
| 530 | 100 | T | F | unless ref $l |
| 536 | 100 | T | F | if $self->{'debug'} >= 2 |
| 541 | 100 | T | F | if (ref $l eq "Geo::Location::Point") |
| 545 | 100 | T | F | if (not defined $l->{'geometry'}{'location'}{'lat'} and defined $l->{'lat'}) |
| 568 | 50 | T | F | if ref $l ne "HASH" |
| 570 | 100 | T | F | if ($l->{'error'}) { } |
| 584 | 100 | T | F | unless (defined $l->{'geometry'}{'location'}{'lat'}) |
| 587 | 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'}) { } |
| 611 | 100 | T | F | if (my $type = $l->{'local_type'}) |
| 622 | 100 | T | F | if ($l->{'results'}[0]{'geometry'}{'location'}) { } |
| 649 | 100 | T | F | if ($l->{'features'}[0]{'center'}) { } |
| 100 | T | F | elsif ($l->{'features'}[0]{'geometry'}{'coordinates'}) { } |
| 667 | 100 | T | F | if (defined $lat and defined $long) { } |
| 682 | 100 | T | F | if ($l->{'standard'}{'countryname'}) |
| 687 | 100 | T | F | if (defined $l->{'geometry'}{'location'}{'lat'}) |
| 690 | 100 | T | F | if $self->{'debug'} |
| 716 | 100 | T | F | unless defined $good_result |
| 719 | 100 | T | F | if $self->{'debug'} |
| 721 | 100 | T | F | if ($self->{'debug'} >= 2) |
| 733 | 50 | T | F | if (defined $rc[0]) |
| 735 | 100 | T | F | if (defined $rc[0]{'long'} and not defined $rc[0]{'lng'}) |
| 738 | 100 | T | F | if (defined $rc[0]{'long'} and not defined $rc[0]{'lon'}) |
| 743 | 100 | T | F | unless (defined $good_result->{'lat'} and defined $good_result->{'lng'}) |
| 748 | 100 | T | F | if (wantarray) |
| 760 | 50 | T | F | if $self->{'debug'} |
| 765 | 100 | T | F | wantarray ? : |
| 808 | 100 | T | F | unless $ua |
| 812 | 100 | T | F | ref $g eq 'HASH' ? : |
| 814 | 100 | T | F | unless defined $geocoder |
| 823 | 100 | T | F | if ($ua->can('clone') and $ua->can('agent')) { } |
| 827 | 100 | T | F | $version ? : |
| 881 | 100 | T | F | unless my $latlng = $params->{'latlng'} |
| 889 | 100 | T | F | if (my $rc = $self->_cache($latlng)) |
| 899 | 100 | T | F | if (ref $geocoder eq "HASH") |
| 900 | 100 | T | F | if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
| 901 | 50 | T | F | if $self->{'debug'} |
| 902 | 100 | T | F | if ($limit <= 0) |
| 910 | 100 | T | F | if $self->{'debug'} |
| 912 | 100 | T | F | if (wantarray) { } |
| 923 | 100 | T | F | if ($@ =~ /Unknown parameter.*latlng|latlng.*[Uu]nknown/s) |
| 930 | 100 | T | F | if ($@) |
| 943 | 50 | T | F | if $self->{'debug'} >= 2 |
| 946 | 100 | T | F | if (my $name = $loc->{'display_name'}) { } |
| 100 | T | F | elsif ($loc->{'city'}) { } |
| 50 | T | F | elsif ($loc->{'features'}) { } |
| 978 | 100 | T | F | if ($@ =~ /Unknown parameter.*latlng|latlng.*[Uu]nknown/s) |
| 985 | 100 | T | F | if ($@) |
| 999 | 100 | T | F | unless defined $rc |
| 1000 | 100 | T | F | unless (ref $rc) |
| 1012 | 100 | T | F | if $self->{'debug'} >= 2 |
| 1014 | 100 | T | F | if (my $name = $rc->{'display_name'}) |
| 1027 | 100 | T | F | if ($rc->{'city'}) |
| 1041 | 50 | T | F | if ($rc->{'features'}) |
| 1161 | 100 | T | F | if (my $usa = $loc->{'usa'}) { } |
| 1165 | 100 | T | F | $name ? : |
| 100 | T | F | if $usa->{'usstaddress'} |
| 1167 | 100 | T | F | $name ? : |
| 100 | T | F | if $usa->{'uscity'} |
| 1168 | 50 | T | F | $name ? : |
| 100 | T | F | if $usa->{'state'} |
| 1170 | 50 | T | F | $name ? : |
| 1175 | 100 | T | F | $name ? : |
| 100 | T | F | if $loc->{'staddress'} |
| 1176 | 100 | T | F | $name ? : |
| 100 | T | F | if $loc->{'city'} |
| 1177 | 50 | T | F | $name ? : |
| 100 | T | F | if $loc->{'prov'} |
| 1219 | 100 | T | F | if (scalar @_) |
| 1223 | 100 | T | F | defined $value ? : |
| 1228 | 100 | T | F | if ($self->{'cache'}) |
| 1231 | 100 | T | F | if (ref $value eq 'ARRAY') { } |
| 100 | T | F | elsif (ref $value eq 'HASH') { } |
| 1235 | 100 | T | F | if (&blessed($item) and ref $item->{'geocoder'}) |
| 1239 | 100 | T | F | unless ref $item eq "HASH" |
| 1245 | 100 | T | F | unless ($self->{'debug'}) |
| 1247 | 100 | T | F | unless $k eq "geometry" |
| 1251 | 100 | T | F | unless (defined $item->{'geometry'}{'location'}{'lat'}) |
| 1271 | 100 | T | F | unless ($self->{'debug'}) |
| 1273 | 100 | T | F | unless $k eq "geometry" |
| 1277 | 100 | T | F | if (defined $value->{'geometry'}{'location'}{'lat'}) { } |
| 50 | T | F | elsif (defined $value->{'geometry'}) { } |
| 1298 | 50 | T | F | if (ref $value and ref $value->{'geocoder'}) |
| 1304 | 100 | T | F | if $self->{'debug'} |
| 1307 | 100 | T | F | if (not defined $value) { } |
| 100 | T | F | elsif (ref $self->{'cache'} eq 'HASH') { } |
| 1325 | 100 | T | F | if (not defined $rc and $self->{'cache'}) |
| 1326 | 100 | T | F | if (ref $self->{'cache'} eq 'HASH') { } |
| 1333 | 100 | T | F | unless defined $rc |
| 1336 | 100 | T | F | if ref $rc and ref $rc eq "Geo::Coder::List::_NotFound" |
| 1339 | 100 | T | F | if (ref $rc eq "HASH") |
| 1340 | 100 | T | F | unless defined $rc->{'geometry'}{'location'}{'lat'} |
| 1353 | 0 | T | F | if (my $logger = $self->{'logger'}) |
| 1356 | 0 | T | F | if ($self->{'debug'}) |
| 1365 | 50 | T | F | if (my $logger = $self->{'logger'}) { } |
| 1376 | 50 | T | F | if (my $logger = $self->{'logger'}) { } |