File Coverage

blib/lib/Geo/JSON/FeatureCollection.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Geo::JSON::FeatureCollection;
2              
3             our $VERSION = '0.007';
4              
5 2     2   99389 use Moo;
  2         8407  
  2         13  
6             extends 'Geo::JSON::Base';
7              
8 2     2   1703 use Carp;
  2         4  
  2         185  
9 2     2   535 use Types::Standard qw/ ArrayRef HashRef /;
  2         67807  
  2         36  
10              
11 2     2   2484 use Geo::JSON::Types -types;
  2         5  
  2         29  
12 2     2   3598 use Geo::JSON::Utils;
  2         7  
  2         357  
13              
14             has features => (
15             is => 'ro',
16             isa => Features,
17             coerce => Features->coercion,
18             required => 1
19             );
20              
21             sub all_positions {
22 1     1 1 3 my $self = shift;
23              
24 1         2 return [ map { @{ $_->all_positions } } @{ $self->features } ];
  6         6  
  6         13  
  1         8  
25             }
26              
27             1;
28              
29             __END__