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.006'; # VERSION
4              
5             # ABSTRACT: object representing a geojson Feature
6              
7 4     4   163150 use Moo;
  4         28209  
  4         32  
8             extends 'Geo::JSON::Base';
9              
10 4     4   6056 use Carp;
  4         11  
  4         352  
11 4     4   5631 use Type::Utils qw( class_type );
  4         46790  
  4         53  
12 4     4   3389 use Types::Standard qw/ Str Maybe HashRef /;
  4         53009  
  4         45  
13              
14 4     4   6006 use Geo::JSON::Types -types;
  4         14  
  4         57  
15 4     4   6916 use Geo::JSON::Utils;
  4         12  
  4         755  
16              
17             has id => ( is => 'ro', isa => Maybe [Str] );
18              
19             has geometry => (
20             is => 'ro',
21             isa => Geometry,
22             coerce => Geometry->coercion,
23             required => 1
24             );
25              
26             has properties => ( is => 'ro', isa => Maybe [HashRef] );
27              
28             sub all_positions {
29 6     6 1 76 return shift->geometry->all_positions;
30             }
31              
32              
33             1;
34              
35             __END__