Mysql::NameLocker - Safe way of locking and unlocking MySQL tables using named locks.
use Mysql::NameLocker; # Simulate a record lock my $tablename = 'category' my $id = 123; my $lockname = "$tablename_$id"; my $timeout = 10; my $locker = new Mysql::NameLocker($dbh,$lockname,$timeout); # Execute some tricky statements here... # Locks are automically released when $locker goes out of scope. undef($locker);
Mysql::NameLocker is a simple class for safely using MySQL named locks. A locks is created when you instantiate the class and is automatically released when the object goes out of scope (or when you call undef on the object). One situation where this class is useful is when you have persistent database connections such as in some mod_perl scripts and you want to be sure that locks are always released even when a script dies somewhere unexpectedly.
Attempts to acquire a named lock and returns a Mysql::NameLocker object that encapsulates this lock. If a timeout occurs, then undef is returned. If an error occurs (The MySQL statement GET_LOCK() returns NULL) then this constructor croaks.
Parameters:
Returns: Mysql::NameLocker object or undef if failed to acquire lock.
Destructor called implicitly by perl when object is destroyed. The acquired lock is released here if the DBI database handle is still connected.
Initial version
Craig Manley <cmanley at cpan dot org>
Copyright (C) 2001 Craig Manley. All rights reserved. This program is free software; you can redistribute it and/or modify it under under the same terms as Perl itself. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
The MySQL documentation about GET_LOCK() and RELEASE_LOCK().
To install Mysql::NameLocker, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mysql::NameLocker
CPAN shell
perl -MCPAN -e shell install Mysql::NameLocker
For more information on module installation, please visit the detailed CPAN module installation guide.