| line |
true |
false |
branch |
|
53
|
1 |
0 |
unless -r $d |
|
54
|
0 |
0 |
unless $dict = 'Net::Radius::Dictionary'->new($d) |
|
64
|
1 |
0 |
unless (defined $dict) |
|
73
|
0 |
0 |
if ($vs) { } |
|
76
|
0 |
0 |
if ($a eq 'User-Password') { } |
|
89
|
0 |
0 |
if (defined $$servers{$host}{$port}{'retries'}) { } |
|
94
|
0 |
0 |
if (defined $$servers{$host}{$port}{'timeout'}) { } |
|
103
|
0 |
0 |
if ($code eq 'Access-Request') { } |
|
109
|
0 |
0 |
if ($code eq 'Access-Request') |
|
114
|
0 |
0 |
if $debug |
|
118
|
0 |
0 |
if ($code ne 'Access-Request') |
|
131
|
0 |
0 |
if $rc != length $pack |
|
138
|
0 |
0 |
if $nfound <= 0 |
|
142
|
0 |
0 |
unless $rc |
|
151
|
0 |
0 |
if ($rsp->authenticator ne substr($p, 4, 16)) |
|
156
|
0 |
0 |
if $debug |
|
158
|
0 |
0 |
if $rsp->identifier != $ident |
|
160
|
0 |
0 |
if ($code eq 'Access-Request' and $rsp->code ne 'Access-Accept' and $rsp->code ne 'Access-Reject') |
|
165
|
0 |
0 |
if ($code eq 'Accounting-Request' and $rsp->code ne 'Accounting-Response') |
|
171
|
0 |
0 |
unless (defined $$retref{'0'}) |
|
178
|
0 |
0 |
unless (defined $$retref{$v}) |