File Coverage

blib/lib/WebService/Geocodio/JSON.pm
Criterion Covered Total %
statement 15 19 78.9
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 22 28 78.5


line stmt bran cond sub pod time code
1 6     6   4761 use strict;
  6         14  
  6         267  
2 6     6   38 use warnings;
  6         13  
  6         406  
3              
4             package WebService::Geocodio::JSON;
5             {
6             $WebService::Geocodio::JSON::VERSION = '0.04';
7             }
8              
9 6     6   35 use Moo::Role;
  6         12  
  6         45  
10 6     6   9330 use JSON;
  6         87615  
  6         37  
11 6     6   1023 use Carp qw(confess);
  6         16  
  6         1168  
12              
13              
14             has 'json' => (
15             is => 'ro',
16             lazy => 1,
17             default => sub { JSON->new() },
18             );
19              
20              
21             sub encode {
22 0     0 1   my ($self, $aref) = @_;
23              
24 0           return $self->json->encode($aref);
25             }
26              
27              
28             sub decode {
29 0     0 1   my ($self, $data) = @_;
30              
31 0           return $self->json->decode($data);
32             }
33              
34             1;
35              
36             __END__