| line |
true |
false |
branch |
|
65
|
0 |
4 |
ref $_[0] eq 'HASH' ? : |
|
67
|
1 |
3 |
if (not defined $class) { } |
|
|
0 |
3 |
elsif (ref $class) { } |
|
137
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
150
|
0 |
0 |
if (not defined $location or length $location == 0) |
|
157
|
0 |
0 |
if $self->{'debug'} |
|
160
|
0 |
0 |
if (not wantarray and my $rc = $self->_cache($location)) |
|
161
|
0 |
0 |
if (ref $rc eq "ARRAY") |
|
164
|
0 |
0 |
if (ref $rc eq "HASH") |
|
174
|
0 |
0 |
if $self->{'debug'} |
|
178
|
0 |
0 |
if (defined $self->_cache($location) and ref $self->_cache($location) eq "ARRAY" and my(@rc) = @{$self->_cache($location);}) |
|
179
|
0 |
0 |
if (scalar @rc) |
|
182
|
0 |
0 |
if (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'Geo::Location::Point') { } |
|
183
|
0 |
0 |
if (defined $_->{'geometry'}{'location'}{'lat'}) { } |
|
202
|
0 |
0 |
if $self->{'debug'} |
|
203
|
0 |
0 |
if ($allempty) |
|
206
|
0 |
0 |
wantarray ? : |
|
214
|
0 |
0 |
if (ref $geocoder eq "HASH") |
|
215
|
0 |
0 |
if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
|
216
|
0 |
0 |
if $self->{'debug'} |
|
217
|
0 |
0 |
if ($limit <= 0) |
|
222
|
0 |
0 |
if (my $regex = $geocoder->{'regex'}) |
|
223
|
0 |
0 |
if $self->{'debug'} |
|
224
|
0 |
0 |
unless ($location =~ /$regex/) |
|
235
|
0 |
0 |
if $self->{'debug'} |
|
236
|
0 |
0 |
if (ref $geocoder eq 'Geo::GeoNames') { } |
|
237
|
0 |
0 |
if $self->{'debug'} |
|
238
|
0 |
0 |
unless defined $geocoder->username |
|
244
|
0 |
0 |
if ($@) |
|
259
|
0 |
0 |
if (scalar @rc == 0 or ref $rc[0] eq "HASH" and scalar keys %{$rc[0];} == 0 or ref $rc[0] eq "ARRAY" and scalar keys %{$rc[0][0];} == 0) |
|
274
|
0 |
0 |
if (ref $l eq "ARRAY") |
|
279
|
0 |
0 |
unless (defined $l) |
|
292
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
293
|
0 |
0 |
if ref $l eq "Geo::Location::Point" |
|
294
|
0 |
0 |
if ref $l ne "HASH" |
|
295
|
0 |
0 |
if ($l->{'error'}) { } |
|
308
|
0 |
0 |
unless (defined $l->{'geometry'}{'location'}{'lat'}) |
|
310
|
0 |
0 |
if ($l->{'lat'} and defined $l->{'lon'}) { } |
|
|
0 |
0 |
elsif ($l->{'BestLocation'}) { } |
|
|
0 |
0 |
elsif ($l->{'point'}) { } |
|
|
0 |
0 |
elsif ($l->{'latt'}) { } |
|
|
0 |
0 |
elsif ($l->{'latitude'}) { } |
|
|
0 |
0 |
elsif ($l->{'properties'}{'geoLatitude'}) { } |
|
|
0 |
0 |
elsif ($l->{'results'}[0]{'geometry'}) { } |
|
|
0 |
0 |
elsif ($l->{'RESULTS'}) { } |
|
|
0 |
0 |
elsif (defined $l->{'result'}{'addressMatches'}[0]{'coordinates'}{'y'}) { } |
|
|
0 |
0 |
elsif ($l->{'lat'}) { } |
|
|
0 |
0 |
elsif ($l->{'features'}) { } |
|
333
|
0 |
0 |
if (my $type = $l->{'local_type'}) |
|
341
|
0 |
0 |
if ($l->{'results'}[0]{'geometry'}{'location'}) { } |
|
370
|
0 |
0 |
if (defined $lat and defined $long) { } |
|
377
|
0 |
0 |
if ($l->{'standard'}{'countryname'}) |
|
382
|
0 |
0 |
if (defined $l->{'geometry'}{'location'}{'lat'}) |
|
383
|
0 |
0 |
if $self->{'debug'} |
|
401
|
0 |
0 |
if (scalar @rc) |
|
402
|
0 |
0 |
if $self->{'debug'} |
|
403
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
404
|
0 |
0 |
if (defined $rc[0]) |
|
405
|
0 |
0 |
if (wantarray) |
|
418
|
0 |
0 |
if $self->{'debug'} |
|
419
|
0 |
0 |
if (wantarray) |
|
445
|
0 |
0 |
if (my $ua = shift()) |
|
448
|
0 |
0 |
if (ref $g eq "HASH") |
|
450
|
0 |
0 |
unless (defined $geocoder) |
|
472
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
482
|
0 |
0 |
unless my $latlng = $params{'latlng'} |
|
488
|
0 |
0 |
if ($latlng) { } |
|
496
|
0 |
0 |
if (my $rc = $self->_cache($latlng)) |
|
502
|
0 |
0 |
if (ref $geocoder eq "HASH") |
|
503
|
0 |
0 |
if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
|
504
|
0 |
0 |
if $self->{'debug'} |
|
505
|
0 |
0 |
if ($limit <= 0) |
|
512
|
0 |
0 |
if $self->{'debug'} |
|
513
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (my $rc = $self->_cache($latlng) // $geocoder->reverse_geocode(%params)) { } |
|
515
|
0 |
0 |
if (my(@locs) = $geocoder->reverse_geocode(%params)) |
|
516
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
518
|
0 |
0 |
if (my $name = $loc->{'display_name'}) { } |
|
|
0 |
0 |
elsif ($loc->{'city'}) { } |
|
524
|
0 |
0 |
if (my $usa = $loc->{'usa'}) { } |
|
526
|
0 |
0 |
if (my $staddress = $usa->{'usstaddress'}) |
|
527
|
0 |
0 |
if $name |
|
530
|
0 |
0 |
if (my $city = $usa->{'uscity'}) |
|
531
|
0 |
0 |
if $name |
|
534
|
0 |
0 |
if (my $state = $usa->{'state'}) |
|
535
|
0 |
0 |
if $name |
|
538
|
0 |
0 |
if $name |
|
542
|
0 |
0 |
if (my $staddress = $loc->{'staddress'}) |
|
543
|
0 |
0 |
if $name |
|
546
|
0 |
0 |
if (my $city = $loc->{'city'}) |
|
547
|
0 |
0 |
if $name |
|
550
|
0 |
0 |
if (my $state = $loc->{'prov'}) |
|
551
|
0 |
0 |
if $name |
|
559
|
0 |
0 |
if (wantarray) |
|
563
|
0 |
0 |
if (scalar $rc[0]) |
|
568
|
0 |
0 |
unless ref $rc |
|
569
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
570
|
0 |
0 |
if (my $name = $rc->{'display_name'}) { } |
|
|
0 |
0 |
elsif ($rc->{'city'}) { } |
|
576
|
0 |
0 |
if (my $usa = $rc->{'usa'}) { } |
|
579
|
0 |
0 |
if (my $staddress = $usa->{'usstaddress'}) |
|
580
|
0 |
0 |
if $name |
|
583
|
0 |
0 |
if (my $city = $usa->{'uscity'}) |
|
584
|
0 |
0 |
if $name |
|
587
|
0 |
0 |
if (my $state = $usa->{'state'}) |
|
588
|
0 |
0 |
if $name |
|
595
|
0 |
0 |
if (my $staddress = $rc->{'staddress'}) |
|
596
|
0 |
0 |
if $name |
|
599
|
0 |
0 |
if (my $city = $rc->{'city'}) |
|
600
|
0 |
0 |
if $name |
|
603
|
0 |
0 |
if (my $state = $rc->{'prov'}) |
|
604
|
0 |
0 |
if $name |
|
646
|
0 |
0 |
if (my $value = shift()) |
|
650
|
0 |
0 |
if ($self->{'cache'}) |
|
652
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $value eq 'HASH') { } |
|
654
|
0 |
0 |
if (ref $item eq "HASH") |
|
656
|
0 |
0 |
unless ($self->{'debug'}) |
|
658
|
0 |
0 |
unless $k eq "geometry" |
|
661
|
0 |
0 |
unless (defined $item->{'geometry'}{'location'}{'lat'}) |
|
662
|
0 |
0 |
if (defined $item->{'geometry'}) { } |
|
674
|
0 |
0 |
unless (defined $duration) |
|
680
|
0 |
0 |
unless ($self->{'debug'}) |
|
682
|
0 |
0 |
unless $k eq "geometry" |
|
685
|
0 |
0 |
if (defined $value->{'geometry'}{'location'}{'lat'}) { } |
|
|
0 |
0 |
elsif (defined $value->{'geometry'}) { } |
|
700
|
0 |
0 |
if $self->{'debug'} |
|
708
|
0 |
0 |
if (not defined $rc and $self->{'cache'}) |
|
711
|
0 |
0 |
if (defined $rc) |
|
712
|
0 |
0 |
if (ref $rc eq "HASH") |
|
713
|
0 |
0 |
unless (defined $rc->{'geometry'}{'location'}{'lat'}) |