| line |
true |
false |
branch |
|
123
|
0 |
1 |
if (exists $opts{'host'}) { } |
|
135
|
0 |
1 |
unless my $ip = gethostbyname $hostname |
|
139
|
0 |
1 |
unless defined $server and length $server |
|
140
|
0 |
1 |
unless $server = gethostbyname $server |
|
144
|
0 |
1 |
unless $port < 65536 and $port > 0 |
|
146
|
0 |
1 |
unless defined $opts{'user'} and $opts{'user'} =~ /^\w+$/ |
|
147
|
0 |
1 |
unless defined $opts{'pass'} and $opts{'pass'} =~ /^\d+$/ |
|
149
|
0 |
1 |
$opts{'verbose'} ? : |
|
176
|
1 |
1 |
$_[0] ? : |
|
|
2 |
2 |
if @_ |
|
254
|
0 |
0 |
unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1) |
|
281
|
0 |
0 |
if $self->verbose |
|
285
|
0 |
0 |
if $self->verbose |