| line |
true |
false |
branch |
|
61
|
0 |
24 |
if $$self[0] < 0 |
|
62
|
0 |
24 |
if $$self[1] < 0 |
|
65
|
5 |
19 |
if (my $init = delete $param{'init'}) { } |
|
66
|
0 |
5 |
if $storage |
|
70
|
4 |
1 |
reftype $init eq 'HASH' ? : |
|
80
|
7 |
17 |
if (my $flush = delete $param{'flush'}) |
|
81
|
0 |
7 |
if $storage |
|
87
|
8 |
16 |
if ($storage) |
|
92
|
0 |
8 |
$storage =~ /::/u ? : |
|
93
|
0 |
8 |
unless eval "use $storage_class; 1" |
|
98
|
4 |
4 |
if exists $param{$name} |
|
102
|
0 |
8 |
unless defined $tag and length $tag |
|
108
|
0 |
8 |
if ($fork) { } |
|
113
|
0 |
0 |
if $pid |
|
114
|
0 |
0 |
unless defined $pid |
|
130
|
6 |
18 |
if (my $autoflush = delete $param{'autoflush'}) |
|
133
|
0 |
6 |
if (not $$self[5]) { } |
|
|
1 |
5 |
elsif ($autoflush =~ /^([0-9]+)s$/u) { } |
|
|
5 |
0 |
elsif ($autoflush =~ /^[0-9]+$/u) { } |
|
142
|
1 |
1 |
if time >= $epoch |
|
149
|
7 |
3 |
if @{$_[0][6];} == $autoflush |
|
160
|
0 |
24 |
if (my(@huh) = sort(keys %param)) |
|
165
|
0 |
24 |
if @errors |
|
181
|
50 |
28 |
if (ref $_[0]) |
|
216
|
6 |
6 |
ref $_[1] ? : |
|
284
|
9 |
24 |
unless my $flush = $$self[5] |
|
285
|
10 |
14 |
unless my $todo = $$self[6] |
|
288
|
14 |
0 |
if my $return = &$flush($$self[3], $todo) |
|
312
|
8 |
5 |
if $#list > $$self[0] |