File Coverage

blib/lib/Catmandu/Serializer/storable.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 22 72.7


line stmt bran cond sub pod time code
1             package Catmandu::Serializer::storable;
2              
3 1     1   30214 use Catmandu::Sane;
  1         121662  
  1         8  
4 1     1   1074 use MIME::Base64 ();
  1         777  
  1         23  
5 1     1   954 use Storable ();
  1         3624  
  1         22  
6 1     1   8 use Moo;
  1         2  
  1         9  
7              
8             =head1 NAME
9              
10             Catmandu::Serializer::storable - A Catmandu::Serializer backend using Storable
11              
12             =head1 VERSION
13              
14             Version 0.0102
15              
16             =cut
17              
18             our $VERSION = '0.0102';
19              
20             sub serialize {
21 0     0 0   MIME::Base64::encode(Storable::nfreeze($_[1]));
22             }
23              
24             sub deserialize {
25 0     0 0   Storable::thaw(MIME::Base64::decode($_[1]));
26             }
27              
28             1;
29