package Data::Conveyor::Lock::Dispatcher; # $Id: Dispatcher.pm 8417 2005-02-16 16:57:57Z gr $ # this is the lockhandler for reg_dispatch.pl use warnings; use strict; our $VERSION = '0.10'; use base 'Data::Conveyor::Lock'; use constant DEFAULTS => ( lockname => 'dispatcher', maxlocks => 25 ); sub init { my $self = shift; $self->SUPER::init(+DEFAULTS, @_); } 1; __END__ =head1 NAME Data::Conveyor::Lock::Dispatcher - stage-based conveyor-belt-like ticket handling system =head1 SYNOPSIS Data::Conveyor::Lock::Dispatcher->new; =head1 DESCRIPTION None yet. This is an early release; fully functional, but undocumented. The next release will have more documentation. =head1 METHODS =over 4 =back Data::Conveyor::Lock::Dispatcher inherits from L. The superclass L defines these methods and functions: new(), administrate_locks(), get_lock(), lockfile(), lockname(), lockpath(), lockstate(), maxlocks(), numlocks(), release_lock() =head1 BUGS AND LIMITATIONS No bugs have been reported. Please report any bugs or feature requests through the web interface at L. =head1 INSTALLATION See perlmodinstall for information and options on installing Perl modules. =head1 AVAILABILITY The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit to find a CPAN site near you. Or see . =head1 AUTHORS Florian Helmberger C<< >> Achim Adam C<< >> Mark Hofstetter C<< >> Heinz Ekker C<< >> Marcel GrEnauer, C<< >> =head1 COPYRIGHT AND LICENSE Copyright 2004-2009 by the authors. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut