| line |
true |
false |
branch |
|
33
|
0 |
22 |
unless (exists $PROTOS{$self->{'proto'}}) |
|
45
|
0 |
0 |
$Test::Net::SSLeay::Socket::EVAL_ERROR ? : |
|
|
0 |
22 |
unless my $addr = eval {
do {
inet_aton($self->{'addr'})
}
} |
|
49
|
0 |
0 |
$Test::Net::SSLeay::Socket::EVAL_ERROR ? : |
|
|
0 |
22 |
unless my $sockaddr = eval {
do {
pack_sockaddr_in($self->{'port'}, $addr)
}
} |
|
53
|
0 |
22 |
unless socket $self->{'sock'}, 2, $PROTOS{$self->{'proto'}}, 0 |
|
56
|
22 |
0 |
if ($self->{'proto'} eq "tcp") |
|
57
|
0 |
22 |
unless bind $self->{'sock'}, $sockaddr |
|
61
|
0 |
22 |
unless listen $self->{'sock'}, $self->{'queue'} |
|
86
|
0 |
29 |
if (defined $sock and &reftype($sock) ne "GLOB") |
|
91
|
0 |
29 |
unless CORE::accept $sock, $self->{'sock'} |
|
102
|
0 |
0 |
$Test::Net::SSLeay::Socket::EVAL_ERROR ? : |
|
|
0 |
29 |
unless my $addr = eval {
do {
inet_aton($self->{'saddr'})
}
} |
|
106
|
0 |
0 |
$Test::Net::SSLeay::Socket::EVAL_ERROR ? : |
|
|
0 |
29 |
unless my $sockaddr = eval {
do {
pack_sockaddr_in($self->{'sport'}, $addr)
}
} |
|
110
|
0 |
29 |
unless socket my $sock, 2, $PROTOS{$self->{'proto'}}, 0 |
|
112
|
0 |
29 |
unless CORE::connect $sock, $sockaddr |