Serialize/Deserialize Perl Class Objects

cyc1111

Today in a small project I need to serialize a perl class object to string in order to cache it. And when getting back the value from the cache I need to deserialize it to original class objects.

There are good articles on the solutions:

http://www.ohmpie.com/serialization/

http://www.onperl.net/Serializing-and-Deserializing-using-Data-Serializer-pm

http://www.perlmonks.org/?node_id=8070

http://my.safaribooksonline.com/book/programming/perl/0596004567/objects-databases-and-applications/advperl2-chp-4-sect-2


First, I tried Data::Dumper which is quite simple. But if you class object has nested reference, when deserializing you will get 'undef' for the reference. E.g., if a part of the dumped sting is like this:

                      bless( {
                               'id' => '1',
                               'date' => '20130618',
                               'date_range' => $VAR1->{'logs'}[0]{'date_range'},
                             }, 'SiteLog::Entity::Log' ),


the data_range you get will be undef.


Finally I tried FreezeThaw, it works fine!