/usr/share/perl5/Apache/Session/Lock/Null.pm is in libapache-session-perl 1.93-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | ############################################################################
#
# Apache::Session::Lock::Null
# Pretends to provide locking for Apache::Session
# Copyright(c) 1998, 1999, 2000 Jeffrey William Baker (jwbaker@acm.org)
# Distribute under the Perl License
#
############################################################################
package Apache::Session::Lock::Null;
use strict;
use vars qw($VERSION);
$VERSION = '1.01';
#This package is fake. It fulfills the API that Apache::Session
#outlines but doesn't actually do anything, least of all provide
#serialized access to your data store.
sub new {
my $class = shift;
return bless {}, $class;
}
sub acquire_read_lock {1}
sub acquire_write_lock {1}
sub release_read_lock {1}
sub release_write_lock {1}
sub release_all_locks {1}
1;
=pod
=head1 NAME
Apache::Session::Lock::Null - Does not actually provides mutual exclusion
=head1 SYNOPSIS
use Apache::Session::Lock::Null;
my $locker = new Apache::Session::Lock::Null;
$locker->acquire_read_lock($ref);
$locker->acquire_write_lock($ref);
$locker->release_read_lock($ref);
$locker->release_write_lock($ref);
$locker->release_all_locks($ref);
=head1 DESCRIPTION
Apache::Session::Lock::Null fulfills the locking interface of
Apache::Session, without actually doing any work. This is the module to use
if you want maximum performance and don't actually need locking.
=head1 AUTHOR
This module was written by Jeffrey William Baker <jwbaker@acm.org>.
=head1 SEE ALSO
L<Apache::Session>
|