Apache-Session
view release on metacpan or search on metacpan
lib/Apache/Session/Lock/Sybase.pm view on Meta::CPAN
{ RaiseError => 1, AutoCommit => 1 }
);
$self->{mine} = 1;
}
}
local $self->{dbh}->{RaiseError} = 1;
$self->{lockid} = "Apache-Session-$session->{data}->{_session_id}";
my $sth = $self->{dbh}->prepare(q{sp_getapplock @Resource = '}.$self->{lockid}.q{',@LockMode='Exclusive',@LockOwner='Session',@LockTimeout = '3600000'});
$sth->execute() || die $DBI::errstr;
$self->{lock} = 1;
}
sub acquire_write_lock {
$_[0]->acquire_read_lock($_[1]);
}
sub release_read_lock {
( run in 0.227 second using v1.01-cache-2.11-cpan-4d50c553e7e )