| line |
true |
false |
branch |
|
92
|
3 |
1 |
if (defined $_[1]) |
|
97
|
1 |
0 |
unless (defined $args{'ports'} or defined $args{'fports'} or defined $args{'lports'}) |
|
104
|
0 |
0 |
if (defined $args{'ports'} and not defined $args{'ports'}[0] and (defined $args{'lports'} and not defined $args{'lports'}[0]) and (defined $args{'fports'} and not defined $args{'fports'}[0])) |
|
130
|
3 |
0 |
if (defined $args{'ports'}) |
|
132
|
3 |
0 |
if ($args{'ports'}[$ports_int] =~ /^[0-9\*]+$/) { } |
|
137
|
0 |
0 |
unless (defined $port_number) |
|
150
|
3 |
0 |
if (defined $args{'lports'}) |
|
152
|
3 |
0 |
if ($args{'lports'}[$ports_int] =~ /^[0-9]+$/) { } |
|
|
0 |
0 |
elsif ($args{'lports'}[$ports_int] =~ /^\*$/) { } |
|
159
|
0 |
0 |
unless (defined $port_number) |
|
172
|
3 |
0 |
if (defined $args{'fports'}) |
|
174
|
3 |
0 |
if ($args{'fports'}[$ports_int] =~ /^[0-9]+$/) { } |
|
|
0 |
0 |
elsif ($args{'fports'}[$ports_int] =~ /^\*$/) { } |
|
181
|
0 |
0 |
unless (defined $port_number) |
|
213
|
1 |
7 |
unless (defined $object) |
|
217
|
1 |
6 |
if (ref $object ne 'Net::Connection') |
|
225
|
0 |
6 |
unless ($lport =~ /^[0-9\*]+$/) |
|
227
|
0 |
0 |
if (defined $lport_number) |
|
231
|
0 |
6 |
unless ($fport =~ /^[0-9\*]+$/) |
|
233
|
0 |
0 |
if (defined $fport_number) |
|
239
|
1 |
1 |
if (defined $self->{'ports'}{$lport} or defined $self->{'ports'}{$fport} or defined $self->{'lports'}{$lport} or defined $self->{'fports'}{$fport}) |