File Coverage

blib/lib/CGI/Session/Serialize/Base64.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	26	46	56.5

package CGI::Session::Serialize::Base64;

use strict;
use warnings;
use Safe;
use MIME::Base64;
use Data::Dumper;

use vars qw($VERSION);

($VERSION) = '$Revision: 0.1 $' =~ m/Revision:\s*(\S+)/;


sub freeze {
    my ($self, $data) = @_;

    local $Data::Dumper::Indent   = 0;
    local $Data::Dumper::Purity   = 0;
    local $Data::Dumper::Useqq    = 1;
    local $Data::Dumper::Deepcopy = 0;

    my $d = new Data::Dumper([$data], ["D"]);
    return encode_base64($d->Dump());
}



sub thaw {
    my ($self, $Estring) = @_;

    my $string = decode_base64($Estring);

    # To make -T happy
    my ($safe_string) = $string =~ m/^(.*)$/;

    my $D = undef;
    my $cpt = new Safe();
    $D = $cpt->reval ($safe_string );
    if ( $@ ) {
        die $@;
    }

    return $D;
}


1;

__END__