Log::Log4perl::Util::Semaphore - Easy to use semaphores
use Log::Log4perl::Util::Semaphore;
my $sem = Log::Log4perl::Util::Semaphore->new( key => "abc" );
$sem->semlock();
# ... critical section
$sem->semunlock();
$sem->semset( uid => (getpwnam("hugo"))[2],
gid => 102,
mode => 0644
);
Log::Log4perl::Util::Semaphore provides the synchronisation mechanism for the Synchronized.pm appender in Log4perl, but can be used independently of Log4perl.
As a convenience, the uid field accepts user names as well, which it
translates into the corresponding uid by running getpwnam.
Copyright 2007 by Mike Schilli, all rights reserved. This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
2007, Mike Schilli <cpan@perlmeister.com>