line |
true |
false |
branch |
20
|
0 |
3 |
unless $file ||= $$self{'file'} |
22
|
0 |
3 |
unless open my $fh, '<', $file |
24
|
0 |
3 |
unless 12 == read($fh, my $header, 12) |
27
|
0 |
3 |
unless 1 == $file_ver >> 12 and 2 == $app_ver >> 12 and 1 == $tag_len and 2 == $len_len |
38
|
21 |
308 |
if (132 == $tag) { } |
|
27 |
281 |
elsif (133 == $tag) { } |
|
3 |
278 |
elsif (153 == $tag) { } |
|
35 |
243 |
elsif (3 == $tag) { } |
61
|
87 |
242 |
if 128 & $tag |
63
|
0 |
242 |
unless 2 == read($fh, my $len, 2) |
68
|
62 |
180 |
if 3 >= $tag |
72
|
0 |
180 |
unless $len == read($fh, my $payload, $len) |
74
|
18 |
162 |
if (30 == $tag) { } |
|
9 |
153 |
elsif (29 == $tag) { } |
|
35 |
118 |
elsif (16 == $tag) { } |
|
35 |
83 |
elsif (17 == $tag) { } |
|
35 |
48 |
elsif (18 == $tag) { } |
|
0 |
48 |
elsif (26 == $tag) { } |
80
|
35 |
0 |
8 == $len ? : |
99
|
6 |
56 |
unless exists $$cookie{'key'} |
109
|
0 |
1 |
unless $file ||= $$self{'file'} |
111
|
0 |
1 |
unless open my $fh, '>', $file |
119
|
0 |
5 |
/^(?:\d+\.){3}\d+$/ ? : |
136
|
5 |
1 |
$parts && length $$parts[-1] ? : |
141
|
6 |
5 |
if (length $prev and $prev ne ($$parts[$i] || '')) |
148
|
1 |
5 |
unless $domain |
154
|
6 |
0 |
if (length $curr and $curr ne ($prev_domain[$i] || '')) |
160
|
1 |
5 |
if $i < @$parts - 1 |
177
|
3 |
0 |
if (length $prev and $prev ne ($parts[$i] || '')) |
184
|
5 |
7 |
unless $path |
190
|
3 |
0 |
if (length $curr and $curr ne ($prev_path[$i] || '')) |
206
|
0 |
11 |
if $discard and not $$self{'ignore_discard'} |
207
|
0 |
11 |
if (defined $expires and time > $expires) |
218
|
1 |
10 |
if $secure |