SWE/DB/IDLocks.pm

package SWE::DB::IDLocks;
use strict;

require SWE::DB::IDProps;
push our @ISA, 'SWE::DB::IDProps';

require SWE::DB::Lock;

sub new ($) {
  my $self = shift->SUPER::new (@_);
  $self->{leaf_suffix} = '.lock';
  return $self;
} # new

sub get_lock ($$) {
  my $self = shift;
  my $file_name = $self->_get_file_name ($_[0], 1);

  my $lock = SWE::DB::Lock->new;
  $lock->{file_name} = $file_name;
  $lock->lock_type ('ID');

  return $lock;
} # get_lock

1;
1	wakaba	1.1	package SWE::DB::IDLocks;
2			use strict;
3
4			require SWE::DB::IDProps;
5			push our @ISA, 'SWE::DB::IDProps';
6
7			require SWE::DB::Lock;
8
9			sub new ($) {
10			my $self = shift->SUPER::new (@_);
11			$self->{leaf_suffix} = '.lock';
12			return $self;
13			} # new
14
15			sub get_lock ($$) {
16			my $self = shift;
17	wakaba	1.2	my $file_name = $self->_get_file_name ($_[0], 1);
18	wakaba	1.1
19			my $lock = SWE::DB::Lock->new;
20			$lock->{file_name} = $file_name;
21	wakaba	1.3	$lock->lock_type ('ID');
22	wakaba	1.1
23			return $lock;
24			} # get_lock
25
26			1;