--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/releasing/cbrtools/perl/MLDBM/Serializer/FreezeThaw.pm Wed Jun 30 11:35:58 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 <F<gsar@umich.edu>>.
+
+Support for multiple serializing packages by
+Raphael Manfredi <F<Raphael_Manfredi@grenoble.hp.com>>.
+
+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