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.007';
4              
5             # ABSTRACT: object representing a geojson Polygon
6              
7 5     5   3429 use Moo;
  5         11405  
  5         31  
8             extends 'Geo::JSON::Base';
9             with 'Geo::JSON::Role::Geometry';
10              
11 5     5   2970 use Geo::JSON::Types -types;
  5         10  
  5         76  
12              
13             has '+coordinates' => ( isa => Polygon );
14              
15             sub all_positions {
16 4     4 1 11 my $self = shift;
17              
18 4         8 return [ map { @{$_} } @{ $self->coordinates } ];
  6         7  
  6         35  
  4         16  
19             }
20              
21             1;
22              
23             __END__