| line |
true |
false |
branch |
|
29
|
29 |
75 |
unless ($self->{'__CAP__SESSION_OBJ'}) |
|
31
|
1 |
28 |
unless $self->{'__CAP__SESSION_CONFIG'} |
|
36
|
28 |
1 |
$self->{'__CAP__SESSION_CONFIG'}{'CGI_SESSION_OPTIONS'} ? : |
|
42
|
0 |
29 |
if (builtin::blessed($params[1]) and not $params[1]->isa("CGI")) |
|
50
|
1 |
28 |
unless ($self->{'__CAP__SESSION_OBJ'}) |
|
56
|
11 |
17 |
if ($self->{'__CAP__SESSION_CONFIG'}{'DEFAULT_EXPIRY'} and $self->{'__CAP__SESSION_OBJ'}->is_new) |
|
65
|
26 |
2 |
if (not defined $self->{'__CAP__SESSION_CONFIG'}{'SEND_COOKIE'} or $self->{'__CAP__SESSION_CONFIG'}{'SEND_COOKIE'}) |
|
69
|
7 |
3 |
if (not $cid or $cid ne $self->{'__CAP__SESSION_OBJ'}->id or $self->{'__CAP__SESSION_OBJ'}->expire) |
|
81
|
33 |
1 |
if (@_) |
|
82
|
2 |
31 |
if defined $self->{'__CAP__SESSION_OBJ'} |
|
84
|
10 |
21 |
if (ref $_[0] eq 'HASH') { } |
|
91
|
29 |
2 |
if ($props->{'CGI_SESSION_OPTIONS'}) |
|
92
|
1 |
28 |
if ref $props->{'CGI_SESSION_OPTIONS'} ne "ARRAY" |
|
97
|
12 |
18 |
if ($props->{'COOKIE_PARAMS'}) |
|
98
|
1 |
11 |
if ref $props->{'COOKIE_PARAMS'} ne "HASH" |
|
103
|
12 |
17 |
if (defined $props->{'SEND_COOKIE'}) |
|
104
|
10 |
2 |
delete $props->{'SEND_COOKIE'} ? : |
|
108
|
13 |
16 |
if (defined $props->{'DEFAULT_EXPIRY'}) |
|
113
|
1 |
28 |
if %$props |
|
124
|
11 |
13 |
if ($self->{'__CAP__SESSION_CONFIG'}{'COOKIE_PARAMS'}) |
|
128
|
1 |
23 |
unless ($self->{'__CAP__SESSION_OBJ'}) |
|
135
|
1 |
23 |
if (exists $options{'-name'} and $options{'-name'} ne $self->session->name) |
|
144
|
5 |
19 |
if (defined $self->session->expires and not defined $options{'-expires'}) |
|
152
|
4 |
20 |
if (my $cookies = $headers{'-cookie'}) |
|
153
|
2 |
2 |
if (ref $cookies eq 'ARRAY') { } |
|
|
1 |
1 |
elsif (substr($cookies, 0, length $options{'-name'}) eq $options{'-name'}) { } |
|
157
|
1 |
3 |
if (substr($cookies->[$i], 0, length $options{'-name'}) eq $options{'-name'}) |
|
169
|
22 |
2 |
unless $cookie_set |
|
176
|
0 |
5 |
unless defined $secs_until_expiry |
|
179
|
4 |
1 |
$secs_until_expiry >= 0 ? : |
|
188
|
3 |
0 |
if (my $session = $self->session) |
|
191
|
3 |
0 |
if ($self->{'__CAP__SESSION_CONFIG'}{'SEND_COOKIE'}) |
|
193
|
3 |
0 |
if ($self->{'__CAP__SESSION_CONFIG'}{'COOKIE_PARAMS'}) |
|
208
|
1 |
2 |
unless ref $cookies eq "ARRAY" |
|
210
|
3 |
2 |
if (ref $cookie ne "CGI::Cookie" or $cookie->name ne $session->name) |
|
223
|
2 |
1 |
if @keep |
|
238
|
0 |
0 |
if (session_loaded($self)) |
|
250
|
0 |
0 |
if index($k, "_SESSION_") == 0 |
|
265
|
0 |
0 |
if ($sess_opts and $sess_opts->[4] and ref $sess_opts->[4] eq "HASH" and exists $sess_opts->[4]{'name'}) |