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   327 use 5.10.0;
  1         2  
  1         59  
5 1     1   278 use Bubblegum::Class;
  0            
  0            
6             use Data::Dumper ();
7              
8             extends 'Bubblegum::Object::Instance';
9              
10             our $VERSION = '0.40'; # VERSION
11              
12             sub decode {
13             my $self = shift;
14             return eval $self->data;
15             }
16              
17             sub encode {
18             my $self = shift;
19             return Data::Dumper->new([$self->data])
20             ->Indent(0)->Sortkeys(1)->Terse(1)->Dump;
21             }
22              
23             1;
24              
25             __END__