diff -r 6d08f4a05d93 -r 3145852acc89 releasing/cbrtools/perl/MLDBM/Serializer/FreezeThaw.pm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/releasing/cbrtools/perl/MLDBM/Serializer/FreezeThaw.pm Fri Jun 25 18:37:20 2010 +0800 @@ -0,0 +1,39 @@ +# Copyright (c) 1995-98 Gurusamy Sarathy. All rights reserved. +# +# Copyright (c) 1998 Raphael Manfredi. +# +# This program is free software; you can redistribute it and/or +# modify it under the same terms as Perl itself. + +package MLDBM::Serializer::FreezeThaw; +BEGIN { @MLDBM::Serializer::FreezeThaw::ISA = qw(MLDBM::Serializer) } + +use FreezeThaw; + +sub serialize { + return FreezeThaw::freeze($_[1]); +} + +sub deserialize { + my ($obj) = FreezeThaw::thaw($_[1]); + return $obj; +} + +1; +__END__ + +=head1 COPYRIGHT + +Gurusamy Sarathy >. + +Support for multiple serializing packages by +Raphael Manfredi >. + +Copyright (c) 1995-98 Gurusamy Sarathy. All rights reserved. + +Copyright (c) 1998 Raphael Manfredi. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +=cut