| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless (ref $self) |
|
49
|
0 |
0 |
$class->can($_[0]) ? : |
|
52
|
0 |
0 |
ref $params eq 'ARRAY' ? : |
|
55
|
0 |
0 |
if not $self->SSL and grep /^SSL_/, keys %$self |
|
63
|
0 |
0 |
@_ ? : |
|
66
|
0 |
0 |
(shift())->SSL ? : |
|
77
|
0 |
0 |
unless $select->can_write($timeout) |
|
81
|
0 |
0 |
if (defined $wc) { } |
|
|
0 |
0 |
elsif (not IO::SessionData::WOULDBLOCK($!)) { } |
|
99
|
0 |
0 |
unless $select->can_read($timeout) |
|
101
|
0 |
0 |
if ($rc) { } |
|
|
0 |
0 |
elsif (defined $rc) { } |
|
|
0 |
0 |
elsif (not IO::SessionData::WOULDBLOCK($!)) { } |
|
117
|
0 |
0 |
if $endpoint =~ s[^tcp:(//)?][tcp://]i and not $1 |
|
123
|
0 |
0 |
unless UNIVERSAL::can($socket, 'new') |
|
132
|
0 |
0 |
if not $SOAP::Constants::DO_NOT_USE_LWP_LENGTH_HACK and length $envelope != $bytelength |
|
136
|
0 |
0 |
if ($sock) |
|
138
|
0 |
0 |
if $self->syswrite($sock, $envelope) and $sock->shutdown(1) |
|
172
|
0 |
0 |
unless (ref $self) |
|
176
|
0 |
0 |
$class->can($_[0]) ? : |
|
180
|
0 |
0 |
if not $self->SSL and grep /^SSL_/, @params |
|
183
|
0 |
0 |
unless UNIVERSAL::can($socket, 'new') |
|
184
|
0 |
0 |
unless $$self{'_socket'} = $socket->new('Proto', 'tcp', @params) |
|
194
|
0 |
0 |
@_ ? : |
|
197
|
0 |
0 |
(shift())->SSL ? : |
|
201
|
0 |
0 |
if $method eq 'DESTROY' |
|
217
|
0 |
0 |
if (my $rc = $session->read($data, 4096)) { } |
|
218
|
0 |
0 |
if $rc > 0 |