| line |
true |
false |
branch |
|
26
|
0 |
48 |
unless my $file = $init{'file'} |
|
27
|
48 |
0 |
exists $init{'can_create'} ? : |
|
28
|
48 |
0 |
$init{'max_size'} ? : |
|
|
0 |
48 |
exists $init{'time_renewal'} ? : |
|
48
|
2071 |
2193 |
unless $$self{'perl_data'} |
|
67
|
824 |
2598 |
unless $$self{'perl_data'} |
|
118
|
359 |
232 |
unless $keys{$key} |
|
136
|
1154 |
990 |
$index_entry ? : |
|
138
|
1154 |
990 |
if (defined $value and $$self{'time_renewal'}) |
|
157
|
0 |
4264 |
if $seen{$key} |
|
159
|
1294 |
2970 |
$old_entry ? : |
|
161
|
0 |
4264 |
unless defined $new_token |
|
164
|
1294 |
2970 |
if (defined $old_entry) { } |
|
176
|
0 |
4 |
ref $_[0] eq 'ARRAY' ? : |
|
189
|
0 |
4 |
$single_ref ? : |
|
196
|
4 |
0 |
wantarray ? : |
|
|
0 |
4 |
$single_ref ? : |
|
202
|
0 |
30 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
30 |
ref $_[0] eq 'HASH' ? : |
|
217
|
0 |
20 |
$single_ref ? : |
|
225
|
990 |
990 |
defined $$values[$run_idx] ? : |
|
228
|
0 |
20 |
if ($ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000") |
|
229
|
0 |
0 |
@new_keys == @$keys ? : |
|
|
0 |
0 |
@new_keys ? : |
|
232
|
0 |
0 |
if length $keystr > 60 |
|
235
|
10 |
10 |
unless @new_keys |
|
237
|
0 |
990 |
ref $code ne 'CODE' ? : |
|
240
|
0 |
10 |
if $num_stored < @new_keys |
|
245
|
20 |
0 |
wantarray ? : |
|
|
0 |
20 |
$single_ref ? : |
|
256
|
4 |
0 |
wantarray ? : |
|
267
|
4 |
0 |
wantarray ? : |
|
278
|
0 |
0 |
wantarray ? : |
|
290
|
0 |
0 |
wantarray ? : |
|
304
|
4 |
0 |
wantarray ? : |
|
319
|
0 |
4 |
wantarray ? : |
|
326
|
0 |
22 |
unless defined $code |
|
331
|
91 |
213 |
ref $code ne 'CODE' ? : |
|
332
|
1478 |
0 |
$grep_code ? : |
|
347
|
30 |
66 |
if (not -f $file and $$self{'can_create'}) |
|
348
|
0 |
30 |
unless open FH, ">$file" |
|
351
|
0 |
96 |
unless -f $file |
|
353
|
0 |
96 |
unless open FH, "+<$file" |
|
359
|
4740 |
0 |
/^(\d+)\t(.+?)\t(.*)/ ? : |
|
364
|
0 |
96 |
if ($$self{'expiration'}) |
|
369
|
0 |
0 |
if @expired_keys |
|
375
|
0 |
96 |
if ($$self{'max_size'} and @$index_list > $$self{'max_size'}) |
|
384
|
58 |
38 |
if ($is_changed) |