| line |
true |
false |
branch |
|
113
|
2 |
0 |
unless defined $self->timeout |
|
114
|
2 |
0 |
unless defined $self->port |
|
128
|
0 |
2 |
if ($self->tacacsserver) |
|
129
|
0 |
0 |
unless (CORE::close $self->tacacsserver) |
|
147
|
0 |
0 |
unless defined $remote |
|
183
|
0 |
0 |
unless defined $rem_addr |
|
184
|
0 |
0 |
unless defined $port |
|
185
|
0 |
0 |
if ($authen_type == 1) { } |
|
|
0 |
0 |
elsif ($authen_type == 2) { } |
|
187
|
0 |
0 |
defined $new_password ? : |
|
236
|
0 |
0 |
if ($status == 4) { } |
|
|
0 |
0 |
elsif ($status == 3) { } |
|
|
0 |
0 |
elsif ($status == 5) { } |
|
|
0 |
0 |
elsif ($status == 7) { } |
|
|
0 |
0 |
elsif ($status == 2 or $status == 1) { } |
|
264
|
0 |
0 |
defined $new_password ? : |
|
286
|
0 |
0 |
if ($Net::TacacsPlus::Client::EVAL_ERROR) |
|
294
|
0 |
0 |
if $status == 2 |
|
316
|
0 |
0 |
unless defined $args_response |
|
317
|
0 |
0 |
if ref $args_response ne 'ARRAY' |
|
324
|
0 |
0 |
unless defined $rem_addr |
|
325
|
0 |
0 |
unless defined $port |
|
352
|
0 |
0 |
if ($status == 17) { } |
|
|
0 |
0 |
elsif ($status == 1 or $status == 2) { } |
|
|
0 |
0 |
elsif ($status == 16) { } |
|
366
|
0 |
0 |
if ($Net::TacacsPlus::Client::EVAL_ERROR) |
|
374
|
0 |
0 |
if $status == 16 |
|
391
|
0 |
0 |
if ($arg =~ /^([^=*]+)[=*](.*)$/) { } |
|
399
|
0 |
0 |
unless $args{'service'} |
|
401
|
0 |
0 |
if $args{'service'} eq 'shell' and not exists $args{'cmd'} |
|
426
|
0 |
0 |
unless defined $rem_addr |
|
427
|
0 |
0 |
unless defined $port |
|
455
|
0 |
0 |
if ($status == 2) { } |
|
|
0 |
0 |
elsif ($status == 1) { } |
|
465
|
0 |
0 |
if ($Net::TacacsPlus::Client::EVAL_ERROR) |
|
473
|
0 |
0 |
if $status == 2 |
|
496
|
0 |
0 |
if $nfound == 0 |
|
497
|
0 |
0 |
if ($nfound == -1) |
|
499
|
0 |
0 |
if $! == 4 |
|
504
|
0 |
0 |
unless (defined $nread) |
|
506
|
0 |
0 |
if $! == 4 |
|
510
|
0 |
0 |
if (length $raw_reply >= 12) |
|
514
|
0 |
0 |
if (length $raw_body >= $header->length) |
|
525
|
0 |
0 |
unless defined $reply |