File Coverage

blib/lib/Data/Serializer/Data/Dump.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 30 31 96.7


line stmt bran cond sub pod time code
1             package Data::Serializer::Data::Dump;
2              
3             our $DATE = '2015-11-01'; # DATE
4             our $VERSION = '0.01'; # VERSION
5              
6 1     1   681 use 5.010001;
  1         3  
7 1     1   6 use strict;
  1         1  
  1         21  
8 1     1   5 use warnings;
  1         2  
  1         30  
9              
10 1     1   740 use parent 'Data::Serializer';
  1         274  
  1         7  
11 1     1   778 use Data::Dump qw(dump);
  1         5676  
  1         156  
12              
13             sub serialize {
14 1     1 1 98 my ($self, $val) = @_;
15 1         4 dump($val);
16             }
17              
18             sub deserialize {
19 1     1 1 501 my ($self, $val) = @_;
20              
21 1         86 my $res = eval $val;
22 1 50       7 die "Data::Serializer error: $@\twhile evaluating:\n $val" if $@;
23 1         5 $res;
24             }
25              
26             1;
27             # ABSTRACT: Bridge between Data::Serializer and Data::Dump
28              
29             __END__