File Coverage

blib/lib/Bubblegum/Wrapper/Dumper.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 Data Dumping
2             package Bubblegum::Wrapper::Dumper;
3              
4 1     1   390 use 5.10.0;
  1         3  
  1         36  
5 1     1   301 use Bubblegum::Class;
  0            
  0            
6              
7             use Data::Dumper ();
8              
9             extends 'Bubblegum::Object::Instance';
10              
11             our $VERSION = '0.44'; # VERSION
12              
13             sub decode {
14             my $self = shift;
15             return eval $self->data;
16             }
17              
18             sub encode {
19             my $self = shift;
20             return Data::Dumper->new([$self->data])
21             ->Indent(0)->Sortkeys(1)->Terse(1)->Dump;
22             }
23              
24             1;
25              
26             __END__