| line |
true |
false |
branch |
|
74
|
48 |
0 |
if ($base_config and $base_config->can("get")) |
|
75
|
25 |
23 |
if (my $cookie_config = $base_config->get("/xao/cookie")) |
|
76
|
7 |
18 |
exists $cookie_config->{$cookie_name} ? : |
|
77
|
0 |
32 |
unless $cf |
|
80
|
1 |
105 |
$n =~ /^-/ ? : |
|
153
|
15 |
26 |
@_ == 1 ? : |
|
158
|
4 |
37 |
unless (ref $cookie) |
|
169
|
4 |
0 |
if ($nv =~ /^\s*(.+)\s*=\s*(.*?)\s*$/) { } |
|
172
|
4 |
0 |
if @$value == 1 |
|
185
|
0 |
8 |
unless $p =~ /^\s*(.+)\s*=\s*(.*?)\s*$/ |
|
187
|
0 |
8 |
if ($pn eq 'domain') { } |
|
|
4 |
4 |
elsif ($pn eq 'path') { } |
|
|
4 |
0 |
elsif ($pn eq 'expires') { } |
|
|
0 |
0 |
elsif ($pn eq 'max-age') { } |
|
|
0 |
0 |
elsif ($pn eq 'secure') { } |
|
|
0 |
0 |
elsif ($pn eq 'httponly') { } |
|
|
0 |
0 |
elsif ($pn eq 'samesite') { } |
|
199
|
0 |
41 |
unless ($cookie->{'-name'}) |
|
207
|
21 |
20 |
if $defaults |
|
213
|
5 |
0 |
if ($cookie->{'-sscompat'} and $cookie->{'-samesite'}) |
|
223
|
2 |
39 |
if ($cookie->{'-domain'} and ref $cookie->{'-domain'}) |
|
235
|
27 |
12 |
if ($self->{'cookies'}) |
|
241
|
0 |
96 |
unless ref $c and ref $c eq "HASH" |
|
251
|
4 |
1 |
unless $cnew->name eq $cstored->name and $cnew->path eq $cstored->path and !(defined $dnew || defined $dstored) || defined $dnew && defined $dstored && $dnew eq $dstored |
|
294
|
212 |
140 |
unless $newcgi |
|
296
|
140 |
0 |
if ($self->{'special_access'}) |
|
336
|
146 |
959 |
unless $self->{'clipboard'} |
|
353
|
30 |
0 |
if (ref $c and ref $c eq 'HASH') { } |
|
429
|
33 |
86 |
if (defined $value) |
|
458
|
0 |
11 |
if $self->{'header_printed'} |
|
460
|
0 |
11 |
if @_ |
|
539
|
1 |
314 |
if @todrop |
|
592
|
0 |
54 |
unless (defined $name and length $name) |
|
595
|
0 |
0 |
defined $_ ? : |
|
602
|
40 |
14 |
unless ($original) |
|
603
|
3 |
37 |
unless $self->{'cookies'} |
|
606
|
26 |
79 |
if ($cookie->name eq $name) |
|
611
|
26 |
0 |
if ($expires_text =~ /(\d{2})\W+([a-z]{3})\W+(\d{4})\W+(\d{2})\W+(\d{2})\W+(\d{2})/i) { } |
|
613
|
26 |
0 |
if ($midx >= 0) { } |
|
617
|
4 |
22 |
if ($expires <= time) |
|
636
|
0 |
28 |
unless ($cgi) |
|
650
|
7 |
21 |
unless (defined $value) |
|
652
|
2 |
5 |
if ($defaults->{'-sscompat'}) |