| Data-Serializer documentation | Contained in the Data-Serializer distribution. |
Data::Serializer::FreezeThaw - Creates bridge between Data::Serializer and FreezeThaw
use Data::Serializer::FreezeThaw;
Module is used internally to Data::Serializer
Neil Neely <neil@neely.cx>
Copyright 2001 by Neil Neely. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl(1), Data::Serializer(3), FreezeThaw(3).
| Data-Serializer documentation | Contained in the Data-Serializer distribution. |
package Data::Serializer::FreezeThaw; BEGIN { @Data::Serializer::FreezeThaw::ISA = qw(Data::Serializer) } use warnings; use strict; use FreezeThaw; use vars qw($VERSION @ISA); $VERSION = '0.02'; sub serialize { return FreezeThaw::freeze($_[1]); } sub deserialize { my ($obj) = FreezeThaw::thaw($_[1]); return $obj; } 1; __END__ #