602
|
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
|