File Coverage

blib/lib/Geo/JSON/MultiLineString.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::MultiLineString;
2              
3             our $VERSION = '0.006'; # VERSION
4              
5             # ABSTRACT: object representing a geojson MultiLineString
6              
7 4     4   3921 use Moo;
  4         9  
  4         33  
8             extends 'Geo::JSON::Base';
9             with 'Geo::JSON::Role::Geometry';
10              
11 4     4   1550 use Geo::JSON::Types -types;
  4         10  
  4         63  
12              
13             has '+coordinates' => ( isa => LineStrings );
14              
15             sub all_positions {
16 2     2 1 7 my $self = shift;
17              
18 2         6 return [ map { @{$_} } @{ $self->coordinates } ];
  4         10  
  4         22  
  2         12  
19             }
20              
21              
22             1;
23              
24             __END__