NAME
Util::LockFile::Time - timed lock with an advisory file
VERSION
This documentation describes version 0.01
SYNOPSIS
use Util::LockFile::Time;
my $lock = '/lock/file/path';
Util::LockFile::Time->lock( $lock, epoch => 3600, duration => 1200 );
die "locked\n" if my $seconds = Util::LockFile::Time->check( $lock );
DESCRIPTION
lock( file, epoch => start, duration => seconds )
Writes time into the file.
check( file )
Returns true if time lock is active. Returns false otherwise.
AUTHOR
Kan Liu
COPYRIGHT and LICENSE
Copyright (c) 2010. Kan Liu
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.