File Coverage

blib/lib/Apache/Session/Serialize/SOAPEnvelope.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Apache::Session::Serialize::SOAPEnvelope;

use strict;
use vars qw($VERSION);
$VERSION = '0.01';
use SOAP::Lite ();

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__