releasing/cbrtools/perl/MLDBM/Serializer/FreezeThaw.pm
author jjkang
Wed, 30 Jun 2010 11:35:58 +0800
changeset 607 378360dbbdba
parent 602 3145852acc89
permissions -rw-r--r--
Merge missed changeset 11 (raptor v2.14 and helium 10.0)

# 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