SWE/DB/Lock.pm

package SWE::DB::Lock;
use strict;

use Fcntl ':flock';

sub new ($) {
  my $self = bless {
    'file_name' => 'lock',
  }, shift;
  return $self;
} # new

sub lock ($) {
  my $self = shift;
  
  open my $file, '>', $self->{file_name} or die "$0: $self->{file_name}: $!";
  flock $file, LOCK_EX;
  $self->{lock} = $file;
} # lock

sub unlock ($) {
  close $_[0]->{lock};
} # unlock

sub DESTROY ($) {
  $_[0]->unlock;
} # DESTROY

1;
1	wakaba	1.1	package SWE::DB::Lock;
2			use strict;
3
4			use Fcntl ':flock';
5
6			sub new ($) {
7			my $self = bless {
8			'file_name' => 'lock',
9			}, shift;
10			return $self;
11			} # new
12
13			sub lock ($) {
14			my $self = shift;
15
16			open my $file, '>', $self->{file_name} or die "$0: $self->{file_name}: $!";
17			flock $file, LOCK_EX;
18			$self->{lock} = $file;
19			} # lock
20
21			sub unlock ($) {
22			close $_[0]->{lock};
23			} # unlock
24
25			sub DESTROY ($) {
26			$_[0]->unlock;
27			} # DESTROY
28
29			1;