App::ResourceLocker - Interface for locking shared resources

App-Context documentation Contained in the App-Context distribution.

Index

Code Index:

NAME

Top

App::ResourceLocker - Interface for locking shared resources

SYNOPSIS

Top

    use App;

    $context = App->context();
    $srs = $context->service("ResourceLocker");  # or ...
    $srs = $context->shared_resource_set();

DESCRIPTION

Top

A ResourceLocker service represents a collection of "advisory" (or "cooperative") resource locks.

Class Group: ResourceLocker

Top

The following classes might be a part of the ResourceLocker Class Group.

* Class: App::ResourceLocker
* Class: App::ResourceLocker::IPCLocker
* Class: App::ResourceLocker::IPCSemaphore
* Class: App::ResourceLocker::BerkeleyDB

Class: App::ResourceLocker

Top

A ResourceLocker service represents a collection of "advisory" (or "cooperative") resource locks. These can be used to synchronize access to and modification of shared resources such as are stored in a SharedDatastore.

 * Throws: App::Exception::ResourceLocker
 * Since:  0.01

Constructor Methods:

Top

new()

The constructor is inherited from App::Service|App::Service/"new()".

Public Methods:

Top

lock()

    * Signature: $resource_name = $srs->lock($resource_pool);
    * Signature: $resource_name = $srs->lock($named);
    * Param:     $resource_pool          string
    * Param:     resourcePool            string
    * Param:     nonBlocking             boolean
    * Param:     nonExclusive            boolean
    * Param:     maxWaitTimeMS           integer
    * Return:    $resource_name          string
    * Throws:    App::Exception::ResourceLocker
    * Since:     0.01

    Sample Usage: 

    $context = App->context();
    $srs = $context->service("ResourceLocker");
    $srs->lock("shmem01");

The lock() method on a ResourceLocker is for the purposes of cooperative resource locking.

unlock()

    * Signature: $srs->unlock($resource_name);
    * Param:     $resource_name          string
    * Return:    void
    * Throws:    App::Exception::ResourceLocker
    * Since:     0.01

    Sample Usage: 

    $context = App->context();
    $srs = $context->service("ResourceLocker");
    $srs->unlock("shmem01");

Protected Methods:

Top

service_type()

Returns 'ResourceLocker';

    * Signature: $service_type = App::ResourceLocker->service_type();
    * Param:     void
    * Return:    $service_type  string
    * Since:     0.01

    $service_type = $rlock->service_type();

ACKNOWLEDGEMENTS

Top

 * Author:  Stephen Adkins <spadkins@gmail.com>
 * License: This is free software. It is licensed under the same terms as Perl itself.

SEE ALSO

Top

App::Context|App::Context, App::Service|App::Service

App-Context documentation Contained in the App-Context distribution. 
#############################################################################
## $Id: ResourceLocker.pm 6783 2006-08-11 17:43:28Z spadkins $
#############################################################################

package App::ResourceLocker;
$VERSION = (q$Revision: 6783 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App;
use App::Service;
@ISA = ( "App::Service" );

use strict;


#############################################################################
# CLASS GROUP
#############################################################################


#############################################################################
# CLASS
#############################################################################


#############################################################################
# CONSTRUCTOR METHODS
#############################################################################


#############################################################################
# new()
#############################################################################


#############################################################################
# PUBLIC METHODS
#############################################################################


#############################################################################
# lock()
#############################################################################


sub lock {
    my ($self, $arg) = @_;
    my ($resource_pool, $resource_name);
    if (ref($arg) eq "HASH") {
        $resource_pool = $arg->{resourcePool};
    }
    elsif (ref($arg) eq "") {
        $resource_pool = $arg;
    }
    return undef if (! $resource_pool);

    # this is a dummy implementation. it does no real locking.
    # it returns a resource name which is the same as the resource pool

    $resource_name = $resource_pool;
    return ($resource_name);
}

#############################################################################
# unlock()
#############################################################################


sub unlock {
    my ($self, $resource_name) = @_;
}

#############################################################################
# PROTECTED METHODS
#############################################################################


#############################################################################
# Method: service_type()
#############################################################################


sub service_type () { 'ResourceLocker'; }


1;