selfforum-cgi/shared/Lock/Handle.pm

   1 package Lock::Handle;
   2
   3 ################################################################################
   4 #                                                                              #
   5 # File:        shared/Lock/Handle.pm                                           #
   6 #                                                                              #
   7 # Authors:     Andre Malo       <nd@o3media.de>, 2001-05-30                    #
   8 #                                                                              #
   9 # Description: belongs to Locking and Filehandle class                         #
  10 #              NOT FOR PUBLIC USE                                              #
  11 #                                                                              #
  12 ################################################################################
  13
  14 use strict;
  15 use vars qw(
  16   $VERSION
  17 );
  18
  19 use base   qw(Lock::_static);
  20
  21 use Symbol qw(gensym);
  22
  23 ################################################################################
  24 #
  25 # Version check
  26 #
  27 $VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
  28
  29 ### sub new ####################################################################
  30 #
  31 # constructor
  32 #
  33 # Params: $file - filename
  34 #
  35 # Return: Lock object
  36 #
  37 sub new {
  38   my ($instance, $file) = @_;
  39   my $class = ref($instance) || $instance;
  40   my $self  = bless $class -> _create_handle => $class;
  41
  42   $self -> set_static (filename => $file);
  43
  44   $self;
  45 }
  46
  47 ### sub _create_handle #########################################################
  48 #
  49 # create a globref
  50 #
  51 # Params: ~none~
  52 #
  53 # Return: globref
  54 #
  55 sub _create_handle {gensym}
  56
  57 # keep 'require' happy
  58 1;
  59
  60 #
  61 #
  62 ### end of Lock::Handle ########################################################