| line |
true |
false |
branch |
|
21
|
3 |
392 |
unless $ATTRS{my $attr = lc $name} |
|
22
|
33 |
359 |
if $attr eq "domain" and defined $value |
|
23
|
123 |
269 |
if $attr eq "expires" |
|
24
|
74 |
318 |
if $attr eq "secure" or $attr eq "httponly" |
|
25
|
17 |
375 |
$attr eq 'max-age' ? : |
|
36
|
1 |
160 |
unless length(my $name = $self->name // "") |
|
38
|
6 |
154 |
$value =~ /[,;" ]/u ? : |
|
42
|
91 |
69 |
if defined $expires |
|
45
|
24 |
136 |
if (my $domain = $self->domain) |
|
48
|
80 |
80 |
if (my $path = $self->path) |
|
51
|
7 |
153 |
if $self->secure |
|
54
|
52 |
108 |
if $self->httponly |
|
57
|
38 |
122 |
if (my $samesite = $self->samesite) |
|
60
|
10 |
150 |
if (defined(my $max = $self->max_age)) |