1 |
package SWE::DB::Lock; |
package SWE::DB::Lock; |
2 |
use strict; |
use strict; |
|
use warnings; |
|
3 |
|
|
4 |
my $CurrentlyLocking = {}; |
my $CurrentlyLocking = {}; |
5 |
my $LockTypes = [qw/ |
my $LockTypes = [qw/ |
6 |
ID Name Index IDs Names Graph Weight Global |
ID Name Index IDs Names Graph Weight Global |
7 |
/]; |
/]; |
8 |
# If you are locking for Graph, then you cannot lock for Global, but |
## If you are locking for Graph, then you cannot lock for Global, but |
9 |
# still you can lock for ID. |
## still you can lock for ID. |
10 |
|
|
11 |
|
## idgen is currently controled by Names lock. |
12 |
|
|
13 |
use Fcntl ':flock'; |
use Fcntl ':flock'; |
14 |
|
|