| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | package Apache::Session::Serialize::PHP; | 
| 2 |  |  |  |  |  |  |  | 
| 3 | 4 |  |  | 4 |  | 26 | use strict; | 
|  | 4 |  |  |  |  | 9 |  | 
|  | 4 |  |  |  |  | 154 |  | 
| 4 | 4 |  |  | 4 |  | 22 | use vars qw($VERSION); | 
|  | 4 |  |  |  |  | 5 |  | 
|  | 4 |  |  |  |  | 204 |  | 
| 5 |  |  |  |  |  |  | $VERSION = 0.03; | 
| 6 |  |  |  |  |  |  |  | 
| 7 | 4 |  |  | 4 |  | 4001 | use PHP::Session::Serializer::PHP; | 
|  | 4 |  |  |  |  | 11240 |  | 
|  | 4 |  |  |  |  | 465 |  | 
| 8 |  |  |  |  |  |  |  | 
| 9 |  |  |  |  |  |  | sub serialize { | 
| 10 | 7 |  |  | 7 | 0 | 1427 | my $session = shift; | 
| 11 | 7 |  |  |  |  | 67 | my $serializer = PHP::Session::Serializer::PHP->new; | 
| 12 | 7 |  |  |  |  | 83 | $session->{serialized} = $serializer->encode($session->{data}); | 
| 13 |  |  |  |  |  |  | } | 
| 14 |  |  |  |  |  |  |  | 
| 15 |  |  |  |  |  |  | sub unserialize { | 
| 16 | 6 |  |  | 6 | 0 | 34 | my $session = shift; | 
| 17 | 6 |  |  |  |  | 39 | my $serializer = PHP::Session::Serializer::PHP->new; | 
| 18 | 6 |  |  |  |  | 72 | $session->{data} = $serializer->decode($session->{serialized}); | 
| 19 |  |  |  |  |  |  | } | 
| 20 |  |  |  |  |  |  |  | 
| 21 |  |  |  |  |  |  | 1; | 
| 22 |  |  |  |  |  |  | __END__ |