File Coverage

blib/lib/Geo/JSON/Feature.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Geo::JSON::Feature;
2              
3             our $VERSION = '0.007';
4              
5 4     4   96876 use Moo;
  4         16851  
  4         19  
6             extends 'Geo::JSON::Base';
7              
8 4     4   3055 use Carp;
  4         6  
  4         272  
9 4     4   1150 use Type::Utils qw( class_type );
  4         29512  
  4         39  
10 4     4   2626 use Types::Standard qw/ Str Maybe HashRef /;
  4         32817  
  4         35  
11              
12 4     4   4256 use Geo::JSON::Types -types;
  4         10  
  4         73  
13 4     4   5016 use Geo::JSON::Utils;
  4         7  
  4         503  
14              
15             has id => ( is => 'ro', isa => Maybe [Str] );
16              
17             has geometry => (
18             is => 'ro',
19             isa => Geometry,
20             coerce => Geometry->coercion,
21             required => 1
22             );
23              
24             has properties => ( is => 'ro', isa => Maybe [HashRef] );
25              
26             sub all_positions {
27 6     6 1 46 return shift->geometry->all_positions;
28             }
29              
30             1;
31              
32             __END__