File Coverage

blib/lib/Dancer/Session/Storable.pm

Criterion	Covered	Total	%
statement	21	43	48.8
branch	0	12	0.0
condition			n/a
subroutine	7	13	53.8
pod	5	6	83.3
total	33	74	44.5

package Dancer::Session::Storable;

use strict;
use warnings;
use base 'Dancer::Session::Abstract';
use vars qw($VERSION);

use Dancer::ModuleLoader;
use Dancer::Config 'setting';
use Dancer::FileUtils 'path';

$VERSION = '0.06';

# static

sub init {
    my ($class) = @_;

    $class->SUPER::init(@_);

    die "Storable is needed and is not installed"
      unless Dancer::ModuleLoader->load('Storable');

    # default value for session_dir
    setting('session_dir' => path(setting('appdir'), 'sessions'))
      if not defined setting('session_dir');

    # make sure session_dir exists
    my $session_dir = setting('session_dir');
    if (!-d $session_dir) {
        mkdir $session_dir
          or die "session_dir $session_dir cannot be created";
    }
    Dancer::Logger::core(
        __PACKAGE__ . " using session_dir : $session_dir"
    );
}

# create a new session and return the newborn object
# representing that session
sub create {
    my ($class) = @_;

    my $self = Dancer::Session::Storable->new;
    $self->flush;
    return $self;
}

# Return the session object corresponding to the given id
sub retrieve {
    my ($class, $id) = @_;

    return undef unless -f $class->session_file($id);
    return Storable::lock_retrieve($class->session_file($id));
}

# instance

sub session_file {
    my ($class,$id) = @_;
    return path(
        setting('session_dir'),
        $class->session_name . "_$id.stor"
    );
}

sub destroy {
    my ($self) = @_;
    unlink $self->session_file($self->id)
        if -f $self->session_file($self->id);
}

sub flush {
    my $self = shift;
    Storable::lock_nstore($self, $self->session_file($self->id));
    return $self;
}

1;
__END__