Comments on: What is the right way to serialize X object generically?

By: anonymous coward

anonymous coward — Thu, 21 Jan 2010 10:31:57 +0000

Set up a typemap to reuse the Storable hooks of a class. See KiokuDB::TypeMap::Default and KiokuDB::TypeMap::Entry::Passthrough and ack for DateTime.

By: Adam Kennedy

Adam Kennedy — Thu, 21 Jan 2010 04:00:13 +0000

Crap, broken indenting…

By: Adam Kennedy

Adam Kennedy — Thu, 21 Jan 2010 03:59:53 +0000

Don’t monkey patch…

If you have defined your own private serialisation scheme, then you can define your own set of special casing.

my @SPECIAL = (
[
'DateTime',
sub { to json },
sub { from_json } ],
],
[
...
],
);

then later…

if ( $instance->can(‘TO_JSON’) ) {
return $instance->TO_JSON;
}
my $special = first {
$instance->isa($_->[0])
} @SPECIAL;
if ( $special ) {
return $special->[1]->( $instance );
}