lib/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 #   Sherlock::Filelock::fcntllock($handle, $type, $whence, $start, $len)
  12 #
  13
  14 package Sherlock::Filelock;
  15
  16 use 5.006;
  17 use strict;
  18 use warnings;
  19
  20 require Exporter;
  21 require DynaLoader;
  22
  23 our @ISA = qw(Exporter DynaLoader);
  24 unshift @DynaLoader::dl_library_path, "lib";
  25
  26 # This allows declaration       use Filelock ':all';
  27 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  28 # will save memory.
  29 our %EXPORT_TAGS = ( 'all' => [ qw(
  30
  31 ) ] );
  32
  33 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  34
  35 our @EXPORT = qw(
  36 );
  37 our $VERSION = '0.01';
  38
  39 bootstrap Sherlock::Filelock $VERSION;
  40
  41 # Preloaded methods go here.
  42
  43 1;
  44 __END__