Branch Coverage

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


line true false branch
25 0 0 ref $req eq 'Perlbal::XS::HTTPHeaders' ? :
35 0 0 $use_dynamic_cookie ? :
42 0 0 if (defined $cookie)
45 0 0 if (defined $cookies{$cookie_hdr})
49 0 0 if ref $backend
65 0 0 $use_salt ? :
72 0 0 $use_salt ? :
100 0 0 if ($backendid eq $id)
115 0 0 if ($backendid eq $id)
153 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
171 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
189 0 0 if ($res eq 'yes' or $res == 1) { }
0 0 elsif ($res eq 'no' or $res == 0) { }
209 0 0 unless my $req = $client->{'req_headers'}
219 0 0 if exists $Perlbal::pool{$poolid}
227 0 0 if exists $Perlbal::service{$serviceid}
238 0 0 if $tunable_name eq 'role'
243 0 0 if $tunable_name eq 'persist_client_timeout'
246 0 0 if $tunable_name eq 'pool'
251 0 0 unless exists $svc->{$tunable_name} and defined $svc->{$tunable_name}
257 0 0 if ($role eq '*' or $role eq $svc_role)
262 0 0 if $value eq 'ARRAY'
288 0 0 unless ($ip_port)
289 0 0 unless $use_domain
315 0 0 unless defined $backend
322 0 0 $use_dynamic_cookie ? :
327 0 0 if (my $cookie = $req->header('Cookie'))
331 0 0 if (not defined $cookies{$cookie_hdr} or $cookies{$cookie_hdr}->value ne $backend_id)
339 0 0 if (defined $res->header('set-cookie')) { }