| line |
true |
false |
branch |
|
29
|
107 |
1085 |
if ($c ne '\\') |
|
35
|
892 |
193 |
if ($c ne 'x') |
|
36
|
4 |
888 |
if (exists $ESCAPES{$c}) { } |
|
46
|
185 |
8 |
if (substr($$str_ref, 0, 1) =~ /[a-f0-9]/) |
|
49
|
8 |
0 |
if (length $c == 1 and $bytes and substr($bytes, -2) ne '\\0') |
|
63
|
0 |
2 |
unless open my $fh, '<', $file |
|
68
|
0 |
2 |
unless (substr($data, 0, 70, '') eq 'cookies="@Variant(\\0\\0\\0\\x7f\\0\\0\\0\\x16QList\\0\\0\\0\\0\\x1') |
|
87
|
0 |
296 |
if ($additional = $cookie_str =~ s/\\\\/\\/g) |
|
92
|
0 |
296 |
unless ($cookie_str) |
|
102
|
269 |
27 |
substr($tmp, length $key_val, 1) eq ';' ? : |
|
107
|
0 |
861 |
if $path and $domain |
|
108
|
296 |
565 |
if (not $domain and ($domain) = $cookie_parts[$i] =~ /domain=(.+)/) |
|
111
|
565 |
0 |
unless ($path) |
|
117
|
252 |
44 |
substr($domain, 0, 1) eq '.' ? : |
|
132
|
3 |
149 |
if length $str != 2 |
|
141
|
152 |
444 |
length $hex ? : |
|
150
|
0 |
1 |
unless open my $fh, '>', $file |
|
159
|
0 |
148 |
if $discard and not $self->{'ignore_discard'} |
|
162
|
1 |
147 |
$val =~ /^"/ ? : |
|
163
|
0 |
148 |
if $secure |
|
165
|
128 |
20 |
if $expires |