| Data-Serializer documentation | Contained in the Data-Serializer distribution. |
Data::Serializer::Data::Taxi - Creates bridge between Data::Serializer and Data::Taxi
use Data::Serializer::Data::Taxi;
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), Data::Taxi(3).
| Data-Serializer documentation | Contained in the Data-Serializer distribution. |
package Data::Serializer::Data::Taxi; BEGIN { @Data::Serializer::Data::Taxi::ISA = qw(Data::Serializer) } use warnings; use strict; use Data::Taxi; use vars qw($VERSION @ISA); $VERSION = '0.02'; sub serialize { return Data::Taxi::freeze($_[1]); } sub deserialize { my ($obj) = Data::Taxi::thaw($_[1]); return $obj; } 1; __END__ #