File Coverage

blib/lib/TM/Serializable/Dumper.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package TM::Serializable::Dumper;

use Class::Trait 'base';
use Class::Trait 'TM::Serializable';

use Data::Dumper;

sub serialize {
    my $self = shift;
    use Data::Dumper;

    my $s;
    {
	local $Data::Dumper::Purity = 1;
	$s = Data::Dumper->Dump ([$self], ['tm']);         # NB: we have recursive data structures
    }
    return $s;
}

sub deserialize {
    my $self = shift;
    my $s    = shift;
    my $tm;
    eval $s;
    $self->melt ($tm);
}

1;