1 # Copyright (c) 1995-98 Gurusamy Sarathy.  All rights reserved.

     2 #

     3 # Copyright (c) 1998 Raphael Manfredi.

     4 #

     5 # This program is free software; you can redistribute it and/or

     6 # modify it under the same terms as Perl itself.

     7 

     8 package MLDBM::Serializer::FreezeThaw;

     9 BEGIN { @MLDBM::Serializer::FreezeThaw::ISA = qw(MLDBM::Serializer) }

    10 

    11 use FreezeThaw;

    12 

    13 sub serialize {

    14     return FreezeThaw::freeze($_[1]);

    15 }

    16 

    17 sub deserialize {

    18     my ($obj) = FreezeThaw::thaw($_[1]);

    19     return $obj;

    20 }

    21 

    22 1;

    23 __END__

    24 

    25 =head1 COPYRIGHT

    26 

    27 Gurusamy Sarathy <F<gsar@umich.edu>>.

    28 

    29 Support for multiple serializing packages by

    30 Raphael Manfredi <F<Raphael_Manfredi@grenoble.hp.com>>.

    31 

    32 Copyright (c) 1995-98 Gurusamy Sarathy.  All rights reserved.

    33 

    34 Copyright (c) 1998 Raphael Manfredi.

    35 

    36 This program is free software; you can redistribute it and/or

    37 modify it under the same terms as Perl itself.

    38 

    39 =cut