File Coverage

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

Criterion	Covered	Total	%
statement	3	33	9.0
branch	0	6	0.0
condition			n/a
subroutine	1	8	12.5
pod	0	7	0.0
total	4	54	7.4

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

use strict;

my $VERSION = '1.4.1';

sub new {
    my $class   = shift;
    my $session = shift;

    my $self = {};
    $self->{args} = $session->{args};
    bless $self, $class;
    return $self;
}

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

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};
}

sub acquire_read_lock {
    my $self    = shift;
    my $session = shift;

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

        # got session from cache, no need to ask for locks
    }
    else {
        $self->module->acquire_read_lock($session);
    }
}

sub acquire_write_lock {
    my $self    = shift;
    my $session = shift;

    $self->module->acquire_write_lock($session);
}

sub release_write_lock {
    my $self    = shift;
    my $session = shift;

    $self->module->release_write_lock($session);
}

sub release_all_locks {
    my $self    = shift;
    my $session = shift;

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

        # got session from cache, no need to ask for locks
    }
    else {
        $self->module->release_all_locks($session);
    }
}

1;