Branch Coverage

blib/lib/HTTP/Cookies/Opera.pm
Criterion Covered Total %
branch 52 68 76.4


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