File Coverage

blib/lib/Lemonldap/NG/Common/Apache/Session/Store.pm

Criterion	Covered	Total	%
statement	0	45	0.0
branch	0	8	0.0
condition			n/a
subroutine	0	8	0.0
pod	0	8	0.0
total	0	69	0.0

package Lemonldap::NG::Common::Apache::Session::Store;

our $VERSION = 1.4.0;

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub insert {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    # Store session in cache
    my $id = $session->{data}->{_session_id};
    $self->cache->set( $id, $session->{serialized} );

    # Store in session backend
    return $self->module->insert($session);
}

sub update {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    # Update session in cache
    my $id = $session->{data}->{_session_id};
    if ( $self->cache->get($id) ) {
        $self->cache->remove($id);
        $self->cache->set( $id, $session->{serialized} );
    }

    # Update session in backend
    return $self->module->update($session);
}

sub materialize {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    # Get session from cache
    my $id = $session->{data}->{_session_id};
    if ( $self->cache->get($id) ) {
        $session->{serialized} = $self->cache->get($id);
        return;
    }

    # Get session from backend
    $self->module->materialize($session);

    # Store session in cache
    $self->cache->set( $id, $session->{serialized} );

    return;
}

sub remove {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    # Remove session from cache
    my $id = $session->{data}->{_session_id};
    if ( $self->cache->get($id) ) {
        $self->cache->remove($id);
    }

    # Remove session from backend
    return $self->module->remove($session);
}

sub close {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    return $self->module->close;
}

sub module {
    my $self = shift;
    return $self->{args}->{object_store};
}

sub cache {
    my $self = shift;

    return $self->{cache} if $self->{cache};

    my $module = $self->{args}->{localStorage};
    eval "use $module;";
    $self->{cache} = $module->new( $self->{args}->{localStorageOptions} );

    return $self->{cache};
}

1;