| line |
true |
false |
branch |
|
58
|
0 |
4 |
unless my $share = 'IPC::ShareLite'->new(-'key', $cache_key, -'create', 1) |
|
72
|
1 |
3 |
unless ($frozen_data) |
|
91
|
0 |
3 |
unless $identifier |
|
94
|
0 |
3 |
unless my $namespace = $$self{'_namespace'} |
|
104
|
2 |
1 |
if (defined $expires_in) { } |
|
|
0 |
1 |
elsif ($$self{'_expires_in'} ne $sEXPIRES_NEVER) { } |
|
139
|
0 |
6 |
unless $identifier |
|
142
|
0 |
6 |
unless my $namespace = $$self{'_namespace'} |
|
155
|
5 |
1 |
if (exists $data{$namespace}{$identifier}) |
|
163
|
2 |
3 |
if (_s_should_expire($expires_at)) { } |
|
167
|
0 |
3 |
ref $object ? : |
|
287
|
1 |
0 |
if (_s_should_expire($expires_at, $time)) |
|
306
|
0 |
6 |
if ($expires_at == $sEXPIRES_NOW) { } |
|
|
2 |
4 |
elsif ($expires_at == $sEXPIRES_NEVER) { } |
|
|
3 |
1 |
elsif ($time >= $expires_at) { } |
|
341
|
0 |
7 |
unless my $share = $$self{'_share'} |
|
356
|
0 |
17 |
unless my $share = $$self{'_share'} |
|
369
|
0 |
17 |
unless my $share = $$self{'_share'} |
|
372
|
0 |
17 |
unless $share->lock(2) |
|
385
|
0 |
17 |
unless my $share = $$self{'_share'} |
|
388
|
0 |
17 |
unless $share->unlock |
|
404
|
0 |
1 |
unless my $tmp_share = 'IPC::ShareLite'->new(-'key', $cache_key, -'create', 1, -'destroy', 1) |
|
422
|
0 |
1 |
unless my $tmp_cache = 'IPC::Cache'->new({'cache_key', $cache_key}) |
|
439
|
0 |
1 |
unless my $tmp_cache = 'IPC::Cache'->new({'cache_key', $cache_key}) |