File Coverage

blib/lib/Test/DBChanges/Role/JSON.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Test::DBChanges::Role::JSON;
2 2     2   1040 use Moo::Role;
  2         5  
  2         11  
3 2     2   1442 use JSON::MaybeXS ();
  2         10547  
  2         46  
4 2     2   12 use namespace::autoclean;
  2         4  
  2         12  
5              
6             our $VERSION = '1.0.1'; # VERSION
7             # ABSTRACT: decode data that's recorded as JSON
8              
9              
10             sub decode_recorded_data {
11 0     0 0   my ($self, $recoded_data) = @_;
12              
13 0           return JSON::MaybeXS::decode_json($recoded_data);
14             }
15              
16             1;
17              
18             __END__