line |
true |
false |
branch |
53
|
0 |
115 |
if $constname eq 'constant' |
55
|
0 |
115 |
if ($error) |
81
|
0 |
8 |
unless $self |
82
|
3 |
5 |
unless ref $eflags |
84
|
0 |
8 |
if $eflags->{'mapsize'} and $self->set_mapsize($eflags->{'mapsize'}) |
86
|
0 |
8 |
if $eflags->{'maxdbs'} and $self->set_maxdbs($eflags->{'maxdbs'}) |
88
|
0 |
8 |
if $eflags->{'maxreaders'} and $self->set_maxreaders($eflags->{'maxreaders'}) |
89
|
0 |
8 |
if ($^O =~ /openbsd/) |
93
|
0 |
0 |
unless $eflags->{'flags'} & LMDB_File::MDB_RDONLY() |
95
|
0 |
6 |
if $self->open($path, $eflags->{'flags'}, $eflags->{'mode'} || 384) |
97
|
0 |
6 |
if $LMDB_File::DEBUG |
103
|
0 |
0 |
unless my $txl = $Envs{$$self}[0] |
104
|
0 |
0 |
if (@$txl) |
114
|
0 |
6 |
if ($txl and @$txl and my $topTxn = $$txl[$#$txl]) |
117
|
0 |
0 |
if $LMDB_File::DEBUG |
121
|
0 |
8 |
if $LMDB_File::DEBUG |
130
|
0 |
20 |
if $LMDB_File::DEBUG |
131
|
1 |
19 |
if @$txl |
150
|
0 |
20 |
if not ref $parent and @$txl |
153
|
0 |
20 |
unless $self |
161
|
0 |
20 |
if $LMDB_File::DEBUG |
167
|
0 |
1 |
if ($^O =~ /openbsd/) |
177
|
5 |
15 |
unless my $td = $Txns{$$self} |
178
|
3 |
12 |
if ($td->{'Active'} and not $td->{'RO'} and $td->{'AC'}) { } |
179
|
1 |
2 |
if $LMDB_File::DEBUG |
183
|
0 |
12 |
if $LMDB_File::DEBUG |
192
|
20 |
0 |
if (my $txl = $LMDB::Env::Envs{$eid} && $LMDB::Env::Envs{$eid}[0]) |
196
|
20 |
0 |
if $$rel == $$self |
198
|
0 |
20 |
if $LMDB_File::DEBUG > 2 |
200
|
0 |
20 |
if $LMDB_File::DEBUG > 1 |
206
|
1 |
12 |
unless ($Txns{$$self}) |
212
|
0 |
12 |
if $LMDB_File::DEBUG |
218
|
1 |
8 |
unless my $td = $Txns{$$self} |
219
|
0 |
8 |
unless $td->{'Active'} |
222
|
1 |
7 |
if $LMDB_File::DEBUG |
228
|
0 |
0 |
unless my $td = $Txns{$$self} |
229
|
0 |
0 |
unless $td->{'Active'} |
233
|
0 |
0 |
unless $$ntxn == $$self |
239
|
0 |
0 |
unless my $td = $Txns{$$self} |
240
|
0 |
0 |
unless $td->{'RO'} |
241
|
0 |
0 |
if $td->{'Active'} |
247
|
0 |
0 |
unless my $td = $Txns{$$self} |
248
|
0 |
0 |
if $td->{'Active'} |
255
|
3 |
15 |
ref $name eq 'HASH' ? : |
261
|
3 |
0 |
if $Txns{$$self} |
266
|
0 |
3 |
unless my $td = $Txns{$$self} |
268
|
3 |
0 |
if @_ |
276
|
1 |
21 |
unless $Txns{$$txn} |
278
|
0 |
21 |
unless ${$LMDB::Env::Envs{$txn->_env}[0][0];} == $$txn |
280
|
0 |
17 |
if $dbi and $LMDB_File::DEBUG |
311
|
0 |
6 |
unless $Cursors{$$self} |
326
|
0 |
4 |
unless $txn->isa('LMDB::Txn') |
333
|
2 |
19 |
$class ? : |
334
|
0 |
21 |
unless $txn->isa('LMDB::Txn') |
335
|
0 |
16 |
unless my $dbi = $txn->open(@_) |
347
|
0 |
100281 |
unless $txn and $LMDB::Txn::Txns{$$txn} || undef $self->[0] and $LMDB::Txn::Txns{$$txn}{'Active'} |
351
|
0 |
100281 |
unless ${$LMDB::Env::Envs{$txn->_env}[0][0];} == $$txn |
358
|
7 |
0 |
if $txn |
369
|
0 |
91 |
if $DEBUG > 2 |
375
|
0 |
100034 |
if $DEBUG > 2 |
377
|
100006 |
27 |
if @_ > 2 |
383
|
0 |
27 |
if $res and $die_on_err and $res != MDB_NOTFOUND() or undef $@ |
388
|
0 |
2 |
if $DEBUG > 2 |
419
|
0 |
6 |
unless $cursor |
422
|
0 |
6 |
if $DEBUG |
436
|
2 |
1 |
if ref $proto and _chkalive($proto) |
439
|
0 |
1 |
unless ref $options |
441
|
0 |
1 |
if (ref $mux eq 'LMDB::Txn') { } |
|
0 |
1 |
elsif (ref $mux eq 'LMDB::Env') { } |
447
|
0 |
1 |
if @_ |
461
|
0 |
7 |
if $res and $die_on_err and $res != MDB_NOTFOUND() or undef $@ |
471
|
0 |
3 |
unless $txn and $LMDB::Txn::Txns{$$txn} || undef $self->[0] |
490
|
1 |
0 |
if (_get(@self, $key, $data) != MDB_NOTFOUND()) |
505
|
81 |
4 |
defined $key ? : |
508
|
4 |
81 |
if ($res == MDB_NOTFOUND()) |
511
|
0 |
81 |
wantarray ? : |
518
|
3 |
4 |
if (@_ > 3) |
519
|
3 |
0 |
$_[3] ? : |