ucw/perl/Filelock/Filelock.pm

   1 # Perl module for setting process limits
   2 #
   3 # (c) 2007 Pavel Charvat <pchar@ucw.cz>
   4 #
   5 # This software may be freely distributed and used according to the terms
   6 # of the GNU Lesser General Public License.
   7 #
   8 #
   9 #
  10 # Interface:
  11 #   UCW::Filelock::fcntl_lock($fd, $cmd, $type, $whence, $start, $len)
  12 #
  13
  14 package UCW::Filelock;
  15
  16 use 5.006;
  17 use strict;
  18 use warnings;
  19
  20 require DynaLoader;
  21
  22 our @ISA = qw(DynaLoader);
  23 unshift @DynaLoader::dl_library_path, "lib";
  24
  25 our $VERSION = '0.01';
  26
  27 bootstrap UCW::Filelock $VERSION;
  28
  29 # Preloaded methods go here.
  30
  31 1;
  32 __END__