| line |
true |
false |
branch |
|
22
|
2 |
1 |
$age <= 0 ? : |
|
|
3 |
155 |
if &looks_like_number($age) |
|
25
|
1 |
157 |
if length($cookie->value // "") > $size |
|
28
|
1 |
156 |
unless my $domain = lc($cookie->domain // "") |
|
29
|
2 |
154 |
unless my $path = $cookie->path |
|
30
|
1 |
153 |
unless length(my $name = $cookie->name // "") |
|
51
|
127 |
17 |
unless $cookie->domain |
|
53
|
9 |
41 |
if &$cb($cookie) |
|
|
50 |
94 |
if (my $cb = $self->ignore) |
|
54
|
7 |
3 |
if $host ne $domain and !($host =~ /\Q.$domain\E$/u) || $host =~ /\.\d+$/u |
|
59
|
3 |
125 |
unless _path($path, $url->path->to_abs_string) |
|
77
|
533 |
201 |
unless my $old = $self->{'jar'}{$domain} |
|
82
|
1 |
501 |
if $cookie->host_only and $host ne $cookie->domain |
|
85
|
4 |
271 |
if time > $expires |
|
|
275 |
226 |
if (defined(my $expires = $cookie->expires)) |
|
89
|
1 |
496 |
if $cookie->secure and $url->protocol ne "https" |
|
90
|
134 |
362 |
unless _path($cookie->path, $path) |
|
107
|
2 |
4 |
unless $file and -r $file |
|
112
|
2 |
18 |
$line =~ s/^#HttpOnly_//u ? : |
|
113
|
9 |
11 |
if $line =~ /^#/u |
|
116
|
3 |
8 |
if @values != 7 |
|
118
|
1 |
7 |
$values[1] eq 'FALSE' ? : |
|
|
3 |
5 |
$values[3] eq 'FALSE' ? : |
|
|
4 |
4 |
$values[4] eq '0' ? : |
|
135
|
860 |
177 |
unless keys %{$$self{"jar"};} |
|
142
|
1 |
3 |
unless my $file = $self->file |
|
156
|
1 |
4 |
$cookie->host_only ? : |
|
|
1 |
4 |
$cookie->secure ? : |
|
173
|
167 |
457 |
unless $_[0] eq "/" or $_[0] eq $_[1] |