The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Genezzo::Contrib::Clustered::GLock::GLock - Generic locking for Genezzo

SYNOPSIS

    $curLock = new GLock(lock => $lockName, block => 1);
    $curLock->lock(shared => 0);
    $curLock->promote();
    $curLock->unlock();

DESCRIPTION

Basic locking for Genezzo. Available implementations include NONE and OpenDLM.

FUNCTIONS

new (lock => NAME, block => BLOCKING)

Creates new lock with name NAME. Blocking if BLOCKING=1 (default). Depending on implementation, new or following lock() may be blocking.

lock (shared => SHARED)

Locks lock. Shared if SHARED=1, otherwise Exclusive (default). Returns undef for failure.

promote

Promotes lock from Shared to Exclusive. Returns undef for failure.

unlock

Unlocks lock.

LIMITATIONS

Edit $IMPL to choose implementation. This will eventually be configured from somewhere else.

AUTHOR

Eric Rollins, rollins@acm.org

Copyright (c) 2005 Eric Rollins. All rights reserved.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

Address bug reports and comments to rollins@acm.org

For more information, please visit the Genezzo homepage at http://www.genezzo.com