| line |
true |
false |
branch |
|
28
|
2 |
5 |
unless (defined $dbfile) |
|
32
|
2 |
3 |
unless (defined $lockfile) |
|
36
|
2 |
1 |
unless defined $lock_timeout |
|
49
|
0 |
3 |
unless (sysopen $this->{'FH_LOCK'}, $this->{'lockfile'}, 66) |
|
56
|
0 |
3 |
unless ($this->_tie) |
|
70
|
33 |
7 |
if (defined $err) |
|
81
|
18 |
41 |
if (defined $status) |
|
92
|
21 |
22 |
if (defined $status) |
|
107
|
1 |
4 |
if ($this->LOCK != 1 and $this->LOCK != 2) |
|
114
|
2 |
2 |
if exists $this->{'hash'}{$key} |
|
115
|
1 |
3 |
if (defined $value and $value =~ /^\$\w+\s*=\s*\{.*\}\s*\;\s*$/s) |
|
132
|
1 |
2 |
if ($this->LOCK != 2) |
|
137
|
1 |
1 |
if (ref $value) |
|
154
|
1 |
1 |
if ($this->LOCK != 2) |
|
171
|
1 |
2 |
if ($this->LOCK != 1 and $this->LOCK != 2) |
|
187
|
6 |
0 |
unless $lock_type |
|
189
|
0 |
6 |
if $oldlock == $lock_type |
|
193
|
0 |
6 |
if $attempt > 1 |
|
197
|
0 |
6 |
unless ($locked) |
|
201
|
0 |
6 |
unless ($this->TIED or $this->_tie) |
|
223
|
1 |
1 |
if ($this->LOCK != 2) |
|
239
|
1 |
0 |
if defined $this->{'FH_LOCK'} |
|
246
|
0 |
10 |
$^O =~ /MSWin32/ ? : |
|
256
|
3 |
7 |
unless defined $lock_type |
|
270
|
1 |
9 |
unless flock $this->{'FH_LOCK'}, $lock_type |
|
277
|
1 |
9 |
if ($@) |
|
284
|
0 |
10 |
if (defined $oldsigalrm) { } |
|
286
|
9 |
1 |
if $result |
|
298
|
0 |
0 |
unless defined $lock_type |
|
311
|
0 |
0 |
unless ($locked) |
|
316
|
0 |
0 |
if $result |
|
326
|
10 |
0 |
defined $EMDIS::ECS::FILEMODE ? : |
|
|
0 |
10 |
unless $this->{'db_obj'} = tie(%{$$this{'hash'};}, 'SDBM_File', $this->{'dbfile'}, 66, defined $EMDIS::ECS::FILEMODE ? $EMDIS::ECS::FILEMODE : 436) |
|
329
|
10 |
0 |
if ($this->{'db_obj'}) { } |
|
353
|
10 |
1 |
if exists $this->{'hash'} |