File Coverage

blib/lib/Geo/JSON/CRS.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Geo::JSON::CRS;
2              
3             our $VERSION = '0.007';
4              
5 3     3   68010 use Moo;
  3         27456  
  3         21  
6             with 'Geo::JSON::Role::ToJson';
7              
8 3     3   5877 use Types::Standard qw/ HashRef /;
  3         144918  
  3         52  
9              
10 3     3   3018 use Geo::JSON;
  3         10  
  3         395  
11              
12             has type => (
13             is => 'ro',
14             required => 1,
15             isa => sub {
16             die "CRS type must be either 'name' or 'link'"
17             unless $_[0] && ( $_[0] eq 'name' || $_[0] eq 'link' );
18             },
19             );
20              
21             has properties => ( is => 'ro', isa => HashRef, required => 1 );
22              
23             1;
24              
25             __END__