home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / FreezeThaw.pm < prev    next >
Encoding:
Perl POD Document  |  1998-05-10  |  335 b   |  17 lines
  1. ####################################################################
  2. package MLDBM::Serializer::FreezeThaw;
  3. BEGIN { @MLDBM::Serializer::FreezeThaw::ISA = qw(MLDBM::Serializer) }
  4.  
  5. use FreezeThaw;
  6.  
  7. sub serialize {
  8.     return FreezeThaw::freeze($_[1]);
  9. }
  10.  
  11. sub deserialize {
  12.     my ($obj) = FreezeThaw::thaw($_[1]);
  13.     return $obj;
  14. }
  15.  
  16. 1;
  17.