line |
true |
false |
branch |
32
|
0 |
1 |
if @_ % 2 |
47
|
0 |
1 |
unless exists $$self{lc $_[$x]} |
52
|
0 |
1 |
unless (defined $self->{'db'} or defined $self->{'file'}) |
56
|
0 |
1 |
if ($self->{'db'}) |
60
|
1 |
0 |
if ($self->{'file'}) |
65
|
0 |
1 |
if ($self->{'shm_key'}) |
70
|
0 |
1 |
if $self->{'db'} |
71
|
1 |
0 |
if $self->{'file'} |
72
|
0 |
0 |
if $self->{'shm_key'} |
89
|
0 |
0 |
unless $db->exists_statement('DeltaX_Session_INS') |
92
|
0 |
0 |
unless $result > 0 |
95
|
0 |
0 |
unless $db->exists_statement('DeltaX_Session_UPD') |
98
|
0 |
0 |
unless $result > 0 |
101
|
0 |
0 |
unless $db->exists_statement('DeltaX_Session_DEL') |
104
|
0 |
0 |
unless $result > 0 |
107
|
0 |
0 |
unless $db->exists_statement('DeltaX_Session_TCH') |
110
|
0 |
0 |
unless $result > 0 |
113
|
0 |
0 |
unless $db->exists_statement('DeltaX_Session_SEL') |
116
|
0 |
0 |
unless $result > 0 |
144
|
0 |
0 |
if (not tie(%{$$self{'dbf'};}, $self->{'db_file'}, $self->{'file'}, 2, 384)) |
158
|
0 |
0 |
if (not tie(%{$$self{'cache'};}, 'IPC::SharedCache', 'ipc_key', $self->{'shm_key'}, 'load_callback', \&DeltaX::Session::_shm_load, 'validate_callback', \&DeltaX::Session::_shm_validate, 'ipc_segment_size', $self->{'shm_segment'}, 'max_size', $self->{'shm_max'})) |
178
|
0 |
0 |
if ($DeltaX::Session::gs->{'db'}) |
179
|
0 |
0 |
if ($DeltaX::Session::gs->{'file'}) |
182
|
0 |
0 |
unless $#tmp > -1 |
197
|
0 |
0 |
if (time - $ltime > $DeltaX::Session::gs->{'shm_timeout'}) |
211
|
0 |
0 |
unless defined $sid |
212
|
0 |
0 |
if $self->exist($sid, 1) |
214
|
0 |
0 |
if @_ % 2 |
222
|
0 |
0 |
if ($self->{'file'}) |
225
|
0 |
0 |
if ($self->{'db'}) |
228
|
0 |
0 |
unless $result > 0 |
243
|
0 |
0 |
unless defined $sid |
247
|
0 |
0 |
if ($self->{'shm_key'} and not $from_put) |
251
|
0 |
0 |
if ($self->{'file'}) |
254
|
0 |
0 |
if ($self->{'db'}) |
256
|
0 |
0 |
if $result > 0 |
269
|
0 |
0 |
unless defined $sid |
271
|
0 |
0 |
if ($self->{'shm_key'}) |
278
|
0 |
0 |
if ($self->{'db'}) |
281
|
0 |
0 |
if ($self->{'file'}) |
299
|
0 |
0 |
unless $result > 0 |
307
|
0 |
0 |
if $key |
321
|
0 |
0 |
unless exists $self->{'dbf'}{$sid} |
343
|
0 |
0 |
if ($self->{'file'}) |
344
|
0 |
0 |
if ($self->{'shm_key'}) |
345
|
0 |
0 |
if ($self->{'db'}) |