File Coverage

blib/lib/Geo/JSON/Point.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Geo::JSON::Point;
2              
3             our $VERSION = '0.007';
4              
5             # ABSTRACT: object representing a geojson Point
6              
7 5     5   2619 use Moo;
  5         7961  
  5         29  
8             extends 'Geo::JSON::Base';
9             with 'Geo::JSON::Role::Geometry';
10              
11 5     5   2713 use Carp;
  5         9  
  5         427  
12              
13 5     5   426 use Geo::JSON::Types -types;
  5         9  
  5         60  
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 5 sub all_positions { [ shift->coordinates ] }
22              
23             1;
24              
25             __END__