X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/85946d0838c74882bd707bd1f5dbeeb7ea80944f..4efca15bb2136c3e226eb4e372776fad95a955c9:/selfforum-cgi/shared/Lock/Handle.pm

diff --git a/selfforum-cgi/shared/Lock/Handle.pm b/selfforum-cgi/shared/Lock/Handle.pm
new file mode 100644
index 0000000..e5a749e
--- /dev/null
+++ b/selfforum-cgi/shared/Lock/Handle.pm
@@ -0,0 +1,62 @@
+package Lock::Handle;
+
+################################################################################
+#                                                                              #
+# File:        shared/Lock/Handle.pm                                           #
+#                                                                              #
+# Authors:     Andre Malo       <nd@o3media.de>, 2001-05-30                    #
+#                                                                              #
+# Description: belongs to Locking and Filehandle class                         #
+#              NOT FOR PUBLIC USE                                              #
+#                                                                              #
+################################################################################
+
+use strict;
+use vars qw(
+  $VERSION
+);
+
+use base   qw(Lock::_static);
+
+use Symbol qw(gensym);
+
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
+### sub new ####################################################################
+#
+# constructor
+#
+# Params: $file - filename
+#
+# Return: Lock object
+#
+sub new {
+  my ($instance, $file) = @_;
+  my $class = ref($instance) || $instance;
+  my $self  = bless $class -> _create_handle => $class;
+
+  $self -> set_static (filename => $file);
+
+  $self;
+}
+
+### sub _create_handle #########################################################
+#
+# create a globref
+#
+# Params: ~none~
+#
+# Return: globref
+#
+sub _create_handle {gensym}
+
+# keep 'require' happy
+1;
+
+#
+#
+### end of Lock::Handle ########################################################
\ No newline at end of file