File Coverage

blib/lib/Bubblegum/Wrapper/Json.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             # ABSTRACT: Bubblegum Wrapper around JSON Serialization
2             package Bubblegum::Wrapper::Json;
3              
4 1     1   332 use 5.10.0;
  1         3  
  1         41  
5 1     1   822 use namespace::autoclean;
  0            
  0            
6             use Bubblegum::Class;
7              
8             use Class::Load 'load_class';
9              
10             extends 'Bubblegum::Object::Instance';
11              
12             our $VERSION = '0.44'; # VERSION
13              
14             sub decode {
15             my $self = shift;
16             my $json = load_class('JSON::Tiny', {-version => 0.45})->new;
17             return $json->decode($self->data);
18             }
19              
20             sub encode {
21             my $self = shift;
22             my $json = load_class('JSON::Tiny', {-version => 0.45})->new;
23             return $json->encode($self->data);
24             }
25              
26             1;
27              
28             __END__