view release on metacpan or  search on metacpan

lib/Concurrent/Data/Serializer.pm  view on Meta::CPAN

    $string =~ s/\n/\0/mg;
    return "$string\n";

}


sub deserialize {

    my ($self, $string) = @_;
    $string =~ s/\0/\n/mg;
    my $decoded = decode_base64 ($string);
    return $$self{Method} eq "Dumper" ? eval $decoded : thaw( $decoded );

}


1;