| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Geo::JSON::Point; |
|
2
|
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $VERSION = '0.006'; # VERSION |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
# ABSTRACT: object representing a geojson Point |
|
6
|
|
|
|
|
|
|
|
|
7
|
5
|
|
|
5
|
|
4027
|
use Moo; |
|
|
5
|
|
|
|
|
11410
|
|
|
|
5
|
|
|
|
|
40
|
|
|
8
|
|
|
|
|
|
|
extends 'Geo::JSON::Base'; |
|
9
|
|
|
|
|
|
|
with 'Geo::JSON::Role::Geometry'; |
|
10
|
|
|
|
|
|
|
|
|
11
|
5
|
|
|
5
|
|
3336
|
use Carp; |
|
|
5
|
|
|
|
|
10
|
|
|
|
5
|
|
|
|
|
425
|
|
|
12
|
|
|
|
|
|
|
|
|
13
|
5
|
|
|
5
|
|
592
|
use Geo::JSON::Types -types; |
|
|
5
|
|
|
|
|
11
|
|
|
|
5
|
|
|
|
|
67
|
|
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
has '+coordinates' => ( isa => Position ); |
|
16
|
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
before compute_bbox => sub { |
|
18
|
|
|
|
|
|
|
croak "Can't compute_bbox with a single position"; |
|
19
|
|
|
|
|
|
|
}; |
|
20
|
|
|
|
|
|
|
|
|
21
|
1
|
|
|
1
|
1
|
9
|
sub all_positions { [ shift->coordinates ] } |
|
22
|
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |
|
25
|
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
__END__ |