File Coverage

blib/lib/Data/Serializer/Data/Dumper.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	7	10	70.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	46	50	92.0

package Data::Serializer::Data::Dumper;
BEGIN { @Data::Serializer::Data::Dumper::ISA = qw(Data::Serializer) }

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

use vars qw($VERSION @ISA);


$VERSION = '0.05';


#
# Create a Data::Dumper serializer object.
#

sub serialize {
    my $self = shift;
    my ($val) = @_;
    return undef unless defined $val;

    local $Data::Dumper::Indent = 0;
    local $Data::Dumper::Purity = 1;
    local $Data::Dumper::Terse = 1;
    #return Data::Dumper::Dumper($val);
    #Eval'ing this statement will leave $M defined
    return Data::Dumper->Dump([$val],['M']);
}


#
#
# Shamelessly copied from Data::Dumper::Serializer::Data::Dumper
#	With apologies to relevant parties for not getting the
#	self-referencing right the first time
#

sub deserialize {
    my $self = shift;
    my ($val) = @_;
    return undef unless defined $val;
    my $M = "";
    # Disambiguate hashref (perl may treat it as a block)
    my $N = eval($val =~ /^\{/ ? '+'.$val : $val);
    return $M ? $M : $N unless $@;
    carp "Data::Serializer error: $@\twhile evaluating:\n $val";
}

# avoid used only once warnings
{
    local $Data::Dumper::Terse;
}

1;
__END__