view release on metacpan or  search on metacpan

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

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    $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;