Branch Coverage

blib/lib/Net/DRI/Transport/Socket.pm
Criterion Covered Total %
branch 0 92 0.0


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