line |
true |
false |
branch |
133
|
0 |
0 |
unless exists $opts{'protocol_connection'} and $opts{'protocol_connection'} |
136
|
0 |
0 |
if ($t{'pc'}->can('transport_default')) |
142
|
0 |
0 |
exists $opts{'has_state'} ? : |
150
|
0 |
0 |
unless exists $opts{'socktype'} |
151
|
0 |
0 |
unless $opts{'socktype'} =~ /^(ssl|tcp|udp)$/ |
155
|
0 |
0 |
if exists $opts{'client_newpassword'} and $opts{'client_newpassword'} |
157
|
0 |
0 |
if exists $opts{'protocol_data'} and $opts{'protocol_data'} |
159
|
0 |
0 |
if grep {not $t{'pc'}->can($_);} @need |
161
|
0 |
0 |
if (exists $opts{'find_remote_server'} and defined $opts{'find_remote_server'} and $t{'pc'}->can('find_remote_server')) |
168
|
0 |
0 |
unless exists $opts{$p} and $opts{$p} |
172
|
0 |
0 |
if $opts{'close_after'} and not Net::DRI::Util::isint($opts{'close_after'}) |
175
|
0 |
0 |
if ($t{'socktype'} eq 'ssl') |
180
|
0 |
0 |
if exists $opts{'local_host'} and $opts{'local_host'} |
185
|
0 |
0 |
if ($self->defer) { } |
197
|
0 |
0 |
if defined $v |
210
|
0 |
0 |
$$t{'socktype'} eq 'udp' ? : |
216
|
0 |
0 |
if exists $$t{'local_host'} |
218
|
0 |
0 |
if ($type eq 'ssl') { } |
|
0 |
0 |
elsif ($type eq 'tcp' or $type eq 'udp') { } |
228
|
0 |
0 |
$type eq 'ssl' ? : |
|
0 |
0 |
unless defined $sock |
246
|
0 |
0 |
if ($$ctx{'protocol'}->has_action('session', 'connect')) |
253
|
0 |
0 |
unless $rs[-1]->is_success |
256
|
0 |
0 |
unless $$ctx{'protocol'}->has_action('session', 'login') |
260
|
0 |
0 |
unless exists $$t{$p} and $$t{$p} |
265
|
0 |
0 |
unless $$t{'protocol_data'} |
268
|
0 |
0 |
unless $sock->connected and $sock->print($pc->write_message($self, $login)) |
286
|
0 |
0 |
unless $$ctx{'protocol'}->has_action('session', 'logout') |
292
|
0 |
0 |
unless $sock->connected and $sock->print($pc->write_message($self, $logout)) |
299
|
0 |
0 |
unless $rc1->is_success |
318
|
0 |
0 |
unless defined $autorecon |
323
|
0 |
0 |
unless $self->has_state |
324
|
0 |
0 |
unless $$ctx{'protocol'}->has_action('session', 'noop') |
335
|
0 |
0 |
unless $sock->connected and $sock->print($pc->write_message($self, $noop)) |
342
|
0 |
0 |
unless $rc1->is_success |
348
|
0 |
0 |
if (defined $ok and $ok == 1) { } |
354
|
0 |
0 |
if defined $err and Net::DRI::Util::is_class($err, 'Net::DRI::Protocol::ResultStatus') |
355
|
0 |
0 |
if ($autorecon) |
359
|
0 |
0 |
defined $rc1 ? : |
363
|
0 |
0 |
defined $rc1 ? : |
388
|
0 |
0 |
if ($self->current_state) |
416
|
0 |
0 |
$self->transport_data('socktype') eq 'udp' ? : |
417
|
0 |
0 |
unless $m ne 'print' || $sock->connected and $sock->$m($pc->write_message($self, $tosend)) |
437
|
0 |
0 |
if ($$t{'exchanges_done'} == $$t{'close_after'} and $self->has_state and $self->current_state) |
448
|
0 |
0 |
if ($step == 0) |
456
|
0 |
0 |
if ($step == 1 and $istimeout == 1 and $self->transport_data->{'socktype'} eq 'udp') |