<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Lock::Handle;

################################################################################
#                                                                              #
# File:        shared/Lock/Handle.pm                                           #
#                                                                              #
# Authors:     Andre Malo       &lt;nd@o3media.de&gt;, 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 -&gt; _create_handle =&gt; $class;

  $self -&gt; set_static (filename =&gt; $file);

  $self;
}

### open () ####################################################################
#
# open a file
#
# Params: $mode - open mode
#
# Return: success code (boolean)
#
sub open {
  my ($self, $mode) = @_;

  return unless defined ($mode);

  sysopen ($self, $self-&gt;filename, $mode);
}

### close () ###################################################################
#
# close a file
#
# Params: ~none~
#
# Return: success code (boolean)
#
sub close {
  my $self = shift;

  CORE::close $self;
}

### sub _create_handle #########################################################
#
# create a globref
#
# Params: ~none~
#
# Return: globref
#
sub _create_handle {gensym}

# keep 'require' happy
1;

#
#
### end of Lock::Handle ########################################################</pre></body></html>