| 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") |
|
175
|
0 |
0 |
if $self->{'debug'} |
|
179
|
0 |
0 |
if (defined $self->_cache($location) and ref $self->_cache($location) eq "ARRAY" and my(@rc) = @{$self->_cache($location);}) |
|
180
|
0 |
0 |
if (scalar @rc) |
|
183
|
0 |
0 |
if (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'Geo::Location::Point') { } |
|
184
|
0 |
0 |
if (defined $_->{'geometry'}{'location'}{'lat'}) { } |
|
204
|
0 |
0 |
if $self->{'debug'} |
|
205
|
0 |
0 |
if ($allempty) |
|
208
|
0 |
0 |
wantarray ? : |
|
216
|
0 |
0 |
if (ref $geocoder eq "HASH") |
|
217
|
0 |
0 |
if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
|
218
|
0 |
0 |
if $self->{'debug'} |
|
219
|
0 |
0 |
if ($limit <= 0) |
|
224
|
0 |
0 |
if (my $regex = $geocoder->{'regex'}) |
|
225
|
0 |
0 |
if $self->{'debug'} |
|
226
|
0 |
0 |
unless ($location =~ /$regex/) |
|
237
|
0 |
0 |
if $self->{'debug'} |
|
238
|
0 |
0 |
if (ref $geocoder eq 'Geo::GeoNames') { } |
|
239
|
0 |
0 |
if $self->{'debug'} |
|
240
|
0 |
0 |
unless defined $geocoder->username |
|
246
|
0 |
0 |
if ($@) |
|
261
|
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) |
|
276
|
0 |
0 |
if (ref $l eq "ARRAY") |
|
281
|
0 |
0 |
unless (defined $l) |
|
294
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
295
|
0 |
0 |
if ref $l eq "Geo::Location::Point" |
|
296
|
0 |
0 |
if ref $l ne "HASH" |
|
297
|
0 |
0 |
if ($l->{'error'}) { } |
|
310
|
0 |
0 |
unless (defined $l->{'geometry'}{'location'}{'lat'}) |
|
312
|
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'}) { } |
|
335
|
0 |
0 |
if (my $type = $l->{'local_type'}) |
|
343
|
0 |
0 |
if ($l->{'results'}[0]{'geometry'}{'location'}) { } |
|
372
|
0 |
0 |
if (defined $lat and defined $long) { } |
|
379
|
0 |
0 |
if ($l->{'standard'}{'countryname'}) |
|
384
|
0 |
0 |
if (defined $l->{'geometry'}{'location'}{'lat'}) |
|
385
|
0 |
0 |
if $self->{'debug'} |
|
403
|
0 |
0 |
if (scalar @rc) |
|
404
|
0 |
0 |
if $self->{'debug'} |
|
405
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
406
|
0 |
0 |
if (defined $rc[0]) |
|
407
|
0 |
0 |
if (wantarray) |
|
420
|
0 |
0 |
if $self->{'debug'} |
|
421
|
0 |
0 |
if (wantarray) |
|
447
|
0 |
0 |
if (my $ua = shift()) |
|
450
|
0 |
0 |
if (ref $g eq "HASH") |
|
452
|
0 |
0 |
unless (defined $geocoder) |
|
474
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
484
|
0 |
0 |
unless my $latlng = $params{'latlng'} |
|
490
|
0 |
0 |
if ($latlng) { } |
|
498
|
0 |
0 |
if (my $rc = $self->_cache($latlng)) |
|
504
|
0 |
0 |
if (ref $geocoder eq "HASH") |
|
505
|
0 |
0 |
if (exists $geocoder->{'limit'} and defined(my $limit = $geocoder->{'limit'})) |
|
506
|
0 |
0 |
if $self->{'debug'} |
|
507
|
0 |
0 |
if ($limit <= 0) |
|
514
|
0 |
0 |
if $self->{'debug'} |
|
515
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (my $rc = $self->_cache($latlng) // $geocoder->reverse_geocode(%params)) { } |
|
517
|
0 |
0 |
if (my(@locs) = $geocoder->reverse_geocode(%params)) |
|
518
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
520
|
0 |
0 |
if (my $name = $loc->{'display_name'}) { } |
|
|
0 |
0 |
elsif ($loc->{'city'}) { } |
|
526
|
0 |
0 |
if (my $usa = $loc->{'usa'}) { } |
|
528
|
0 |
0 |
if (my $staddress = $usa->{'usstaddress'}) |
|
529
|
0 |
0 |
if $name |
|
532
|
0 |
0 |
if (my $city = $usa->{'uscity'}) |
|
533
|
0 |
0 |
if $name |
|
536
|
0 |
0 |
if (my $state = $usa->{'state'}) |
|
537
|
0 |
0 |
if $name |
|
540
|
0 |
0 |
if $name |
|
544
|
0 |
0 |
if (my $staddress = $loc->{'staddress'}) |
|
545
|
0 |
0 |
if $name |
|
548
|
0 |
0 |
if (my $city = $loc->{'city'}) |
|
549
|
0 |
0 |
if $name |
|
552
|
0 |
0 |
if (my $state = $loc->{'prov'}) |
|
553
|
0 |
0 |
if $name |
|
561
|
0 |
0 |
if (wantarray) |
|
565
|
0 |
0 |
if (scalar $rc[0]) |
|
570
|
0 |
0 |
unless ref $rc |
|
571
|
0 |
0 |
if $self->{'debug'} >= 2 |
|
572
|
0 |
0 |
if (my $name = $rc->{'display_name'}) { } |
|
|
0 |
0 |
elsif ($rc->{'city'}) { } |
|
578
|
0 |
0 |
if (my $usa = $rc->{'usa'}) { } |
|
581
|
0 |
0 |
if (my $staddress = $usa->{'usstaddress'}) |
|
582
|
0 |
0 |
if $name |
|
585
|
0 |
0 |
if (my $city = $usa->{'uscity'}) |
|
586
|
0 |
0 |
if $name |
|
589
|
0 |
0 |
if (my $state = $usa->{'state'}) |
|
590
|
0 |
0 |
if $name |
|
597
|
0 |
0 |
if (my $staddress = $rc->{'staddress'}) |
|
598
|
0 |
0 |
if $name |
|
601
|
0 |
0 |
if (my $city = $rc->{'city'}) |
|
602
|
0 |
0 |
if $name |
|
605
|
0 |
0 |
if (my $state = $rc->{'prov'}) |
|
606
|
0 |
0 |
if $name |
|
648
|
0 |
0 |
if (my $value = shift()) |
|
652
|
0 |
0 |
if ($self->{'cache'}) |
|
654
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $value eq 'HASH') { } |
|
656
|
0 |
0 |
if (ref $item eq "HASH") |
|
658
|
0 |
0 |
unless ($self->{'debug'}) |
|
660
|
0 |
0 |
unless $k eq "geometry" |
|
663
|
0 |
0 |
unless (defined $item->{'geometry'}{'location'}{'lat'}) |
|
664
|
0 |
0 |
if (defined $item->{'geometry'}) { } |
|
676
|
0 |
0 |
unless (defined $duration) |
|
682
|
0 |
0 |
unless ($self->{'debug'}) |
|
684
|
0 |
0 |
unless $k eq "geometry" |
|
687
|
0 |
0 |
if (defined $value->{'geometry'}{'location'}{'lat'}) { } |
|
|
0 |
0 |
elsif (defined $value->{'geometry'}) { } |
|
702
|
0 |
0 |
if $self->{'debug'} |
|
710
|
0 |
0 |
if (not defined $rc and $self->{'cache'}) |
|
713
|
0 |
0 |
if (defined $rc) |
|
714
|
0 |
0 |
if (ref $rc eq "HASH") |
|
715
|
0 |
0 |
unless (defined $rc->{'geometry'}{'location'}{'lat'}) |