Lock-Server
view release on metacpan or search on metacpan
lib/Lock/Server.pm view on Meta::CPAN
109110111112113114115116117118119120121122123124125126127128129=head2 Lock::Server::new( $args )
Creates a new lock server for the given optional arguments.
Arguments are :
* port - port to serve on. Defaults to 8004
* lock_timeout - low long should a lock last in seconds
* lock_attempt_timeout - how long should a requester
wait for a lock in seconds
* allow_shutdown - allows a client to shut the server down
* reconnect_attempts - if port is busy when starting the server
how many retries to connect before giving up and failing startup
* time_between_attempts - interval between reconnection attempts
=cut
sub
new {
my
(
$pkg
,
$args
) =
@_
;
my
$class
=
ref
(
$pkg
) ||
$pkg
;
bless
{
lock_timeout
=>
$args
->{lock_timeout} || 3,
lock_attempt_timeout
=>
$args
->{lock_attempt_timeout} || 4,
( run in 0.230 second using v1.01-cache-2.11-cpan-2b0bae70ee8 )