File Coverage

blib/lib/MojoX/Session/Store/File/Driver/Storable.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	3	66.6
total	23	25	92.0

package MojoX::Session::Store::File::Driver::Storable;

use base 'MojoX::Session::Store::File::Driver';

use Storable qw(store retrieve);

sub new {
    my $class = shift;

    bless $class->SUPER::new(@_), $class;
}

sub freeze {
    my $self = shift;

    my($file, $ref) = @_;
    $ref = \$ref unless ref $ref;

    store $ref, $file;
}

sub thaw {
    my $self = shift;

    my $file = shift;

    retrieve $file;
}

1;