| line |
true |
false |
branch |
|
313
|
0 |
2 |
if ref $class |
|
319
|
0 |
2 |
unless $type == CACHE_LRU() or $type == CACHE_TIMED() |
|
341
|
0 |
1 |
unless ref $self or $$self{'Err'} |
|
344
|
0 |
1 |
unless ($what or ref $what ne 'HASH') |
|
351
|
1 |
0 |
unless (eval {
do {
$ctie = tie(%cache, 'IPC::Shareable', $$self{'ShMem'}, {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', 65536})
}
}) |
|
361
|
0 |
0 |
unless (exists $cache{$k}) |
|
367
|
0 |
0 |
if $xtie |
|
368
|
0 |
0 |
if tied $idx |
|
369
|
0 |
0 |
unless (eval {
do {
$xtie = tie($idx, 'IPC::Shareable', $key[2], {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', $key[3] * 1024})
}
}) |
|
377
|
0 |
0 |
unless ref $$what{$k} eq 'ARRAY' |
|
383
|
0 |
0 |
unless ($& or $1) |
|
391
|
0 |
0 |
unless eval {
do {
$stats = stat $rdpath
}
} |
|
394
|
0 |
0 |
if ($$self{'Type'} == CACHE_TIMED() and $stats->atime < time - $key[0]) |
|
402
|
0 |
0 |
unless (sysopen $hdl, $rdpath, 0, 420) |
|
412
|
0 |
0 |
if $item |
|
414
|
0 |
0 |
$item ? : |
|
433
|
0 |
1 |
if $$self{'Err'} |
|
434
|
0 |
1 |
unless (ref $self) |
|
440
|
0 |
1 |
unless ($what or ref $what eq 'HASH') |
|
446
|
1 |
0 |
unless (eval {
do {
$ctie = tie(%cache, 'IPC::Shareable', $$self{'ShMem'}, {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', 65536})
}
}) |
|
456
|
0 |
0 |
unless exists $cache{$k} |
|
459
|
0 |
0 |
if defined $xtie |
|
460
|
0 |
0 |
if tied $idx |
|
461
|
0 |
0 |
unless (eval {
do {
$xtie = tie($idx, 'IPC::Shareable', $key[2], {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', $key[3] * 1024})
}
}) |
|
472
|
0 |
0 |
unless ref $$what{$k}{$id} |
|
474
|
0 |
0 |
if ($$self{'Type'} == CACHE_LRU()) |
|
487
|
0 |
0 |
if $idx |
|
493
|
0 |
0 |
if ($rdpath) |
|
504
|
0 |
0 |
if $$df{'favail'} and $$df{'bavail'} >= ceil($l / $cache{'__BSize__'}) |
|
506
|
0 |
0 |
if ($rd > $cache{'__Disks__'} + $cache{'__DStart__'}) |
|
520
|
0 |
0 |
unless (sysopen $hdl, $rdpath, 66, 420) |
|
549
|
0 |
1 |
unless ref $self or $$self{'Err'} |
|
552
|
0 |
1 |
unless ($what or ref $what eq 'HASH') |
|
558
|
1 |
0 |
unless (eval {
do {
$ctie = tie(%cache, 'IPC::Shareable', $$self{'ShMem'}, {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', 65536})
}
}) |
|
568
|
0 |
0 |
unless exists $cache{$k} |
|
571
|
0 |
0 |
if $xtie |
|
572
|
0 |
0 |
if tied $idx |
|
573
|
0 |
0 |
unless (eval {
do {
$xtie = tie($idx, 'IPC::Shareable', $key[2], {'create', 0, 'destroy', 0, 'exclusive', 0, 'mode', 438, 'size', $key[3] * 1024})
}
}) |
|
581
|
0 |
0 |
unless ref $$what{$k} eq 'ARRAY' |
|
585
|
0 |
0 |
unless $rdpath = $& |
|
610
|
0 |
6 |
unless ref $self |
|
611
|
6 |
0 |
unless $$self{'Err'} |
|
625
|
0 |
0 |
$ENV{'MOD_PERL'} ? : |