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