view release on metacpan or  search on metacpan

lib/Apache/Session/Serialize/SOAPEnvelope.pm  view on Meta::CPAN

sub serialize {
    my $session = shift;
    my $serializer = SOAP::Serializer->new();
    $session->{serialized} = $serializer->serialize($session->{data});
}

sub unserialize {
    my $session = shift;
    my $deserializer = SOAP::Deserializer->new();
    my $decoded = $deserializer->decode($session->{serialized});
    $session->{data} = $deserializer->decode_object($decoded);
}

1;

__END__

=head1 NAME

Apache::Session::Serialize::SOAPEnvelope - serialize as SOAPEnvelope