package CGI::Armature::Serializer; use strict; use vars '@ISA'; BEGIN { require CGI::Armature::Bridge; @ISA = 'CGI::Armature::Bridge'; } sub serialize { my $self = shift; my $hash = shift; my $method = $self->{serialize}; return $self->{object}->$method($hash); } sub deserialize { my $self = shift; my $data = shift; my $method = $self->{deserialize}; return $self->{object}->$method($data); } 1;