File Coverage

blib/lib/Data/Serializer/Data/Dmp.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

package Data::Serializer::Data::Dmp;

our $DATE = '2015-11-01'; # DATE
our $VERSION = '0.02'; # VERSION

use 5.010001;
use strict;
use warnings;

use parent 'Data::Serializer';
use Data::Dmp;

sub serialize {
    my ($self, $val) = @_;
    dmp($val);
}

sub deserialize {
    my ($self, $val) = @_;

    my $res = eval $val;
    die "Data::Serializer error: $@\twhile evaluating:\n $val" if $@;
    $res;
}

1;
# ABSTRACT: Bridge between Data::Serializer and Data::Dmp

__END__