Branch Coverage

blib/lib/Perlbal/Plugin/SessionAffinity.pm
Criterion Covered Total %
branch 0 60 0.0


line true false branch
24 0 0 ref $req eq 'Perlbal::XS::HTTPHeaders' ? :
34 0 0 $use_dynamic_cookie ? :
41 0 0 if (defined $cookie)
44 0 0 if (defined $cookies{$cookie_hdr})
48 0 0 if ref $backend
64 0 0 $use_salt ? :
71 0 0 $use_salt ? :
99 0 0 if ($backendid eq $id)
114 0 0 if ($backendid eq $id)
152 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
170 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
188 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
208 0 0 unless my $req = $client->{'req_headers'}
218 0 0 if exists $Perlbal::pool{$poolid}
226 0 0 if exists $Perlbal::service{$serviceid}
237 0 0 if $tunable_name eq 'role'
242 0 0 if $tunable_name eq 'persist_client_timeout'
245 0 0 if $tunable_name eq 'pool'
248 0 0 unless defined $svc->{$tunable_name}
253 0 0 if ($role eq '*' or $role eq $svc_role)
278 0 0 unless ($ip_port)
279 0 0 unless $use_domain
305 0 0 unless defined $backend
312 0 0 $use_dynamic_cookie ? :
317 0 0 if (my $cookie = $req->header('Cookie'))
321 0 0 if (not defined $cookies{$cookie_hdr} or $cookies{$cookie_hdr}->value ne $backend_id)
329 0 0 if (defined $res->header('set-cookie')) { }