FCL/sftools/dev/build: releasing/cbrtools/perl/MLDBM/Serializer/FreezeThaw.pm@378360dbbdba (annotated)

602 3145852acc89 add releasing to new structure jjkang parents: diff changeset	1	# Copyright (c) 1995-98 Gurusamy Sarathy. All rights reserved.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	2	#
3145852acc89 add releasing to new structure jjkang parents: diff changeset	3	# Copyright (c) 1998 Raphael Manfredi.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	4	#
3145852acc89 add releasing to new structure jjkang parents: diff changeset	5	# This program is free software; you can redistribute it and/or
3145852acc89 add releasing to new structure jjkang parents: diff changeset	6	# modify it under the same terms as Perl itself.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	7
3145852acc89 add releasing to new structure jjkang parents: diff changeset	8	package MLDBM::Serializer::FreezeThaw;
3145852acc89 add releasing to new structure jjkang parents: diff changeset	9	BEGIN { @MLDBM::Serializer::FreezeThaw::ISA = qw(MLDBM::Serializer) }
3145852acc89 add releasing to new structure jjkang parents: diff changeset	10
3145852acc89 add releasing to new structure jjkang parents: diff changeset	11	use FreezeThaw;
3145852acc89 add releasing to new structure jjkang parents: diff changeset	12
3145852acc89 add releasing to new structure jjkang parents: diff changeset	13	sub serialize {
3145852acc89 add releasing to new structure jjkang parents: diff changeset	14	return FreezeThaw::freeze($_[1]);
3145852acc89 add releasing to new structure jjkang parents: diff changeset	15	}
3145852acc89 add releasing to new structure jjkang parents: diff changeset	16
3145852acc89 add releasing to new structure jjkang parents: diff changeset	17	sub deserialize {
3145852acc89 add releasing to new structure jjkang parents: diff changeset	18	my ($obj) = FreezeThaw::thaw($_[1]);
3145852acc89 add releasing to new structure jjkang parents: diff changeset	19	return $obj;
3145852acc89 add releasing to new structure jjkang parents: diff changeset	20	}
3145852acc89 add releasing to new structure jjkang parents: diff changeset	21
3145852acc89 add releasing to new structure jjkang parents: diff changeset	22	1;
3145852acc89 add releasing to new structure jjkang parents: diff changeset	23	__END__
3145852acc89 add releasing to new structure jjkang parents: diff changeset	24
3145852acc89 add releasing to new structure jjkang parents: diff changeset	25	=head1 COPYRIGHT
3145852acc89 add releasing to new structure jjkang parents: diff changeset	26
3145852acc89 add releasing to new structure jjkang parents: diff changeset	27	Gurusamy Sarathy <F<gsar@umich.edu>>.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	28
3145852acc89 add releasing to new structure jjkang parents: diff changeset	29	Support for multiple serializing packages by
3145852acc89 add releasing to new structure jjkang parents: diff changeset	30	Raphael Manfredi <F<Raphael_Manfredi@grenoble.hp.com>>.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	31
3145852acc89 add releasing to new structure jjkang parents: diff changeset	32	Copyright (c) 1995-98 Gurusamy Sarathy. All rights reserved.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	33
3145852acc89 add releasing to new structure jjkang parents: diff changeset	34	Copyright (c) 1998 Raphael Manfredi.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	35
3145852acc89 add releasing to new structure jjkang parents: diff changeset	36	This program is free software; you can redistribute it and/or
3145852acc89 add releasing to new structure jjkang parents: diff changeset	37	modify it under the same terms as Perl itself.
3145852acc89 add releasing to new structure jjkang parents: diff changeset	38
3145852acc89 add releasing to new structure jjkang parents: diff changeset	39	=cut

author	jjkang
	Wed, 30 Jun 2010 11:35:58 +0800
changeset 607	378360dbbdba
parent 602	3145852acc89
permissions	-rw-r--r--