| line |
true |
false |
branch |
|
527
|
0 |
25 |
ref $_[0] eq 'HASH' ? : |
|
534
|
25 |
0 |
unless ($share_file) |
|
537
|
0 |
25 |
$^O eq 'MSWin32' ? : |
|
540
|
0 |
25 |
if ref $share_file |
|
543
|
24 |
1 |
$Args{'init_file'} ? : |
|
544
|
0 |
25 |
$Args{'test_file'} ? : |
|
545
|
1 |
24 |
$Args{'enable_stats'} ? : |
|
546
|
0 |
25 |
$Args{'catch_deadlocks'} ? : |
|
549
|
25 |
0 |
unless (exists $Args{'unlink_on_exit'}) |
|
550
|
0 |
25 |
-f $share_file ? : |
|
557
|
5 |
20 |
unless ($raw_values) |
|
558
|
0 |
5 |
unless eval 'use Storable qw(freeze thaw); 1;' |
|
566
|
3 |
21 |
$Args{'compress'} ? : |
|
574
|
4 |
21 |
if ($compressor) |
|
575
|
0 |
4 |
unless ($known_compressors{$compressor}) |
|
580
|
0 |
4 |
if (not eval "require $compressor;") { } |
|
584
|
0 |
4 |
if ($compressor eq 'Compress::LZ4' or $compressor eq 'Compress::Snappy') { } |
|
|
4 |
0 |
elsif ($compressor eq 'Compress::Zlib') { } |
|
600
|
1 |
24 |
if ($empty_on_exit) |
|
601
|
0 |
1 |
unless eval 'use Scalar::Util qw(weaken); 1;' |
|
615
|
0 |
25 |
if ($cache_size = $Args{'cache_size'}) { } |
|
616
|
0 |
0 |
if $cache_size =~ s/([km])$//i |
|
618
|
0 |
0 |
if ($num_pages = $Args{'num_pages'}) { } |
|
620
|
0 |
0 |
if $page_size < 4096 |
|
624
|
0 |
0 |
if $page_size =~ s/([km])$//i |
|
625
|
0 |
0 |
if $page_size < 4096 |
|
629
|
0 |
0 |
if ($num_pages * $page_size <= $cache_size) { } |
|
646
|
0 |
25 |
if $page_size =~ s/([km])$//i |
|
690
|
1 |
24 |
if $empty_on_exit |
|
718
|
12723 |
153054 |
if (not $Found and my $read_cb = $Self->{'read_cb'}) |
|
722
|
1 |
12722 |
if $Self->{'allow_recursive'} |
|
725
|
1 |
12722 |
if $Self->{'allow_recursive'} |
|
728
|
1 |
12722 |
if ($Err) |
|
733
|
12722 |
0 |
if (defined $Val or $Self->{'cache_not_found'}) |
|
739
|
2 |
12720 |
unless $Self->{'raw_values'} |
|
740
|
0 |
12722 |
if $Self->{'compress'} |
|
744
|
12721 |
1 |
defined $Val ? : |
|
754
|
145770 |
20006 |
unless $SkipUnlock |
|
757
|
2 |
149787 |
if defined $Val and $Self->{'compress'} |
|
758
|
99309 |
66467 |
if defined $Val and not $Self->{'raw_values'} |
|
761
|
20006 |
145770 |
if $SkipUnlock |
|
783
|
37375 |
3507 |
$Self->{'raw_values'} ? : |
|
784
|
2 |
40880 |
if $Self->{'compress'} |
|
787
|
15006 |
17 |
ref $_[3] ? : |
|
|
15023 |
25859 |
defined $_[3] ? : |
|
788
|
17 |
40865 |
defined($Opts && $Opts->{'expire_time'}) ? : |
|
797
|
15006 |
25876 |
if ($Unlock) { } |
|
808
|
40881 |
1 |
defined $Val ? : |
|
812
|
6106 |
34776 |
$write_back ? : |
|
819
|
3000 |
37882 |
if (not $write_back && $DidStore and my $write_cb = $Self->{'write_cb'}) |
|
883
|
15006 |
0 |
if (@NewValue) |
|
888
|
0 |
15006 |
wantarray ? : |
|
910
|
5000 |
6301 |
if ($Unlock) { } |
|
921
|
299 |
11002 |
if (!$DidDel || $DidDel && !($Flags & 1) and my $delete_cb = $Self->{'delete_cb'}) |
|
943
|
5000 |
0 |
wantarray ? : |
|
987
|
0 |
5 |
$_[0] ? : |
|
1009
|
11 |
1 |
if $Mode <= 1 or $Mode == 2 and $RawValues and not $Compress |
|
1017
|
2 |
0 |
if (defined $Val) |
|
1018
|
0 |
2 |
if $Compress |
|
1019
|
2 |
0 |
unless ($RawValues) |
|
1021
|
2 |
0 |
if ref $Val |
|
1055
|
178 |
89 |
if $Clear |
|
1114
|
0 |
4 |
unless $Found |
|
1117
|
0 |
4 |
if defined $Val and $Self->{'compress'} |
|
1118
|
0 |
4 |
if defined $Val and not $Self->{'raw_values'} |
|
1139
|
0 |
0 |
ref $_[3] ? : |
|
|
0 |
2 |
defined $_[3] ? : |
|
1140
|
0 |
2 |
defined($Opts && $Opts->{'expire_time'}) ? : |
|
1151
|
0 |
4 |
unless $Self->{'raw_values'} |
|
1152
|
0 |
4 |
if $Self->{'compress'} |
|
1214
|
14732 |
39416 |
$Self->{'write_back'} && $WB ? : |
|
1216
|
14732 |
39416 |
$write_cb ? : |
|
1221
|
8045 |
6102 |
unless $_->{'flags'} & 1 |
|
1224
|
6101 |
1 |
if (defined $Val) |
|
1225
|
0 |
6101 |
if $Compress |
|
1226
|
2 |
6099 |
unless ($RawValues) |
|
1228
|
2 |
0 |
if ref $Val |
|
1244
|
198766 |
1 |
if &fc_is_locked($Cache) |
|
1252
|
2 |
40 |
if $expire_time eq 'now' |
|
1253
|
2 |
38 |
if $expire_time eq 'never' |
|
1255
|
11 |
27 |
$expire_time =~ /^(\d+)\s*([mhdws]?)/i ? : |
|
1262
|
0 |
23 |
if $Self->{'cleaned'} |
|
1266
|
1 |
0 |
if ($Self->{'empty_on_exit'} and $Cache and $Self->{'pid'} == $$) |
|
1270
|
23 |
0 |
if ($Cache) |
|
1277
|
21 |
2 |
if $Self->{'unlink_on_exit'} and $Self->{'pid'} == $$ |
|
1284
|
1 |
22 |
if $Self->{'empty_on_exit'} |
|
1290
|
0 |
0 |
if $Self |
|
1320
|
198767 |
0 |
if $$Ref |