File Coverage

blib/lib/Data/Transit/Reader/JSON.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::Transit::Reader::JSON;
2 4     4   14 use strict;
  4         3  
  4         89  
3 4     4   10 use warnings;
  4         5  
  4         64  
4 4     4   10 no warnings 'uninitialized';
  4         5  
  4         124  
5              
6             our $VERSION = '0.8.04';
7              
8 4     4   1329 use parent 'Data::Transit::Reader';
  4         871  
  4         23  
9              
10             use JSON;
11              
12             sub _decode {
13             my ($self, $data) = @_;
14             return decode_json($data);
15             }
16              
17             1;