The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Log-Log4perl-1.30
River stage four • 376 direct dependents • 1144 total dependents
108 ++
/ Log::Log4perl::Util::Semaphore

NAME

Log::Log4perl::Util::Semaphore - Easy to use semaphores

SYNOPSIS

    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
                );

DESCRIPTION

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 AND LICENSE

Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.