| line |
true |
false |
branch |
|
21
|
3 |
372 |
unless $ATTRS{my $attr = lc $name} |
|
22
|
33 |
339 |
if $attr eq "domain" and defined $value |
|
23
|
118 |
254 |
if $attr eq "expires" |
|
24
|
69 |
303 |
if $attr eq "secure" or $attr eq "httponly" |
|
25
|
17 |
355 |
$attr eq 'max-age' ? : |
|
36
|
1 |
154 |
unless length(my $name = $self->name // "") |
|
38
|
6 |
148 |
$value =~ /[,;" ]/u ? : |
|
42
|
85 |
69 |
if defined $expires |
|
45
|
24 |
130 |
if (my $domain = $self->domain) |
|
48
|
74 |
80 |
if (my $path = $self->path) |
|
51
|
7 |
147 |
if $self->secure |
|
54
|
46 |
108 |
if $self->httponly |
|
57
|
32 |
122 |
if (my $samesite = $self->samesite) |
|
60
|
10 |
144 |
if (defined(my $max = $self->max_age)) |