File Coverage

blib/lib/Geo/JSON/Polygon.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Geo::JSON::Polygon;
2              
3             our $VERSION = '0.006'; # VERSION
4              
5             # ABSTRACT: object representing a geojson Polygon
6              
7 5     5   4889 use Moo;
  5         52799  
  5         40  
8             extends 'Geo::JSON::Base';
9             with 'Geo::JSON::Role::Geometry';
10              
11 5     5   10969 use Geo::JSON::Types -types;
  5         24  
  5         93  
12              
13             has '+coordinates' => ( isa => Polygon );
14              
15             sub all_positions {
16 4     4 1 9 my $self = shift;
17              
18 4         10 return [ map { @{$_} } @{ $self->coordinates } ];
  6         10  
  6         44  
  4         17  
19             }
20              
21              
22             1;
23              
24             __END__