| 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') |