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.006'; # VERSION
4              
5             # ABSTRACT: object representing a geojson FeatureCollection
6              
7 2     2   201852 use Moo;
  2         14414  
  2         14  
8             extends 'Geo::JSON::Base';
9              
10 2     2   2488 use Carp;
  2         6  
  2         171  
11 2     2   1061 use Types::Standard qw/ ArrayRef HashRef /;
  2         74652  
  2         41  
12              
13 2     2   2140 use Geo::JSON::Types -types;
  2         9  
  2         33  
14 2     2   3555 use Geo::JSON::Utils;
  2         4  
  2         305  
15              
16             has features => (
17             is => 'ro',
18             isa => Features,
19             coerce => Features->coercion,
20             required => 1
21             );
22              
23             sub all_positions {
24 1     1 1 3 my $self = shift;
25              
26 1         3 return [ map { @{ $_->all_positions } } @{ $self->features } ];
  6         9  
  6         20  
  1         10  
27             }
28              
29              
30             1;
31              
32             __END__