| line |
true |
false |
branch |
|
29
|
1 |
0 |
if (not $_[0] or ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif ($_[0] and ref($_[0])->can('get')) { } |
|
47
|
0 |
0 |
if $lat < 0 |
|
49
|
0 |
0 |
if $lon < 0 |
|
80
|
0 |
0 |
if ($e->isa('Geo::SpatialDB::Location')) { } |
|
|
0 |
0 |
elsif ($e->isa('Geo::SpatialDB::RouteSegment')) { } |
|
|
0 |
0 |
elsif ($e->isa('Geo::SpatialDB::Route')) { } |
|
83
|
0 |
0 |
$rad ? : |
|
85
|
0 |
0 |
$rad ? : |
|
90
|
0 |
0 |
unless (@{$e->path;}) |
|
95
|
0 |
0 |
if not defined $lat0 or $lat0 > $pt->[0] |
|
96
|
0 |
0 |
if not defined $lat1 or $lat1 < $pt->[0] |
|
97
|
0 |
0 |
if not defined $lon0 or $lon0 > $pt->[1] |
|
98
|
0 |
0 |
if not defined $lon1 or $lon1 < $pt->[1] |
|
116
|
0 |
0 |
if $Geo::SpatialDB::log->is_debug |
|
122
|
0 |
0 |
if $tile_udeg < $min_dLat |
|
140
|
0 |
0 |
$radius ? : |
|
142
|
0 |
0 |
$radius ? : |
|
157
|
0 |
0 |
unless my $bucket = $self->storage->get($_) |