| line |
true |
false |
branch |
|
76
|
1 |
1 |
if (not @_ or $self->connect(@_)) |
|
107
|
0 |
0 |
unless @_ == 2 and ref $_[0] |
|
111
|
0 |
0 |
if (eval {
do {
$self->_sendpacket($pbuf)
}
}) |
|
120
|
0 |
3 |
unless @_ >= 2 and ref $_[0] |
|
129
|
0 |
4 |
unless @_ >= 2 and ref $_[0] |
|
133
|
3 |
1 |
if (eval {
do {
$self->_sendpacket($pbuf)
}
}) |
|
142
|
0 |
0 |
unless @_ == 1 and ref $_[0] |
|
146
|
0 |
0 |
if (eval {
do {
$self->_sendpacket($pbuf)
}
}) |
|
155
|
0 |
0 |
unless @_ == 2 and ref $_[0] |
|
159
|
0 |
0 |
if (eval {
do {
$self->_sendpacket($pbuf)
}
}) |
|
169
|
0 |
30 |
unless @_ == 1 and ref $_[0] |
|
174
|
30 |
0 |
if (eval {
do {
$msg = $self->_recvpacket
}
}) |
|
180
|
0 |
30 |
if $type eq $Net::ICB::M_PING |
|
197
|
1 |
3 |
if (eval {
do {
$self->_tcpopen($hostname, $portnumber)
}
}) |
|
198
|
1 |
0 |
if (eval {
do {
$self->_sendlogin(@_)
}
}) |
|
209
|
1 |
1 |
if (defined $$self{'socket'}) |
|
234
|
1 |
0 |
if (eval {
do {
$self->_sendpacket($pbuf)
}
}) |
|
248
|
0 |
5 |
if $$self{'debug'} |
|
250
|
1 |
4 |
if ($plen > 254) |
|
265
|
0 |
4 |
if (not defined $wrotelen) { } |
|
|
0 |
4 |
elsif ($wrotelen != $plen) { } |
|
284
|
0 |
30 |
if (not defined $ret) { } |
|
|
0 |
30 |
elsif (length $slen != 1) { } |
|
291
|
0 |
30 |
if $$self{'debug'} > 1 |
|
295
|
0 |
30 |
if (not defined $ret) { } |
|
302
|
0 |
30 |
if $$self{'debug'} |
|
315
|
3 |
1 |
unless my $socket = 'IO::Socket::INET'->new('PeerAddr', $hostname, 'PeerPort', "($portnumber)", 'Proto', 'tcp') |