File Coverage

blib/lib/Data/Encoder/Data/Dumper.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	3	0.0
total	38	42	90.4

package Data::Encoder::Data::Dumper;

use strict;
use warnings;
use Carp ();
use Data::Dumper ();

sub new {
    my ($class, $args) = @_;
    $args ||= {};
    bless { %$args }, __PACKAGE__;
}

sub encode {
    my ($self, $stuff, @args) = @_;
    local $Data::Dumper::Terse  = 1;
    local $Data::Dumper::Purity = 1;
    local $Data::Dumper::Indent = 0;
    my $dumper = Data::Dumper->new([$stuff], @args);
    for my $method (keys %$self) {
        $dumper->$method($self->{$method});
    }
    return $dumper->Dump;
}

sub decode {
    my ($self, $stuff, @args) = @_;
    local $@;
    my $res = eval $stuff; ## no critic
    Carp::croak $@ if $@;
    return $res;
}

1;
__END__