line |
true |
false |
branch |
117
|
0 |
0 |
unless ($self->errorblank) |
138
|
0 |
0 |
unless ($self->errorblank) |
162
|
0 |
0 |
unless ($self->errorblank) |
185
|
0 |
0 |
unless ($self->errorblank) |
204
|
0 |
20 |
unless ($self->errorblank) |
209
|
0 |
20 |
if (ref $res ne 'ARRAY' or not defined $res->[2] or not defined $res->[2]{'active_conns'}) |
230
|
6 |
14 |
if (defined $self->{'cidrs'}[0]) |
233
|
4 |
16 |
if (defined((keys %{$$self{'ports'};})[0])) |
236
|
3 |
17 |
if (defined((keys %{$$self{'protocols'};})[0])) |
239
|
4 |
16 |
if (defined((keys %{$$self{'states'};})[0])) |
246
|
140 |
20 |
if (defined $res->[2]{'active_conns'}[$res_int]{'proto'} and $res->[2]{'active_conns'}[$res_int]{'proto'} ne 'unix') |
264
|
20 |
120 |
if ($local_host =~ /[0123456789AaBbCcDdEeFf]\:$/) |
267
|
0 |
140 |
if ($foreign_host =~ /[0123456789AaBbCcDdEeFf]\:$/) |
273
|
0 |
140 |
unless (defined $foreign_host) |
276
|
0 |
60 |
if ($foreign_host eq '*' and $protocol =~ /^[Uu][Dd][Pp]/ and not defined $state) |
283
|
0 |
140 |
if (not defined $state and $protocol =~ /^[Uu][Dd][Pp]/) |
299
|
28 |
112 |
if ($port_require) |
302
|
42 |
98 |
if ($cidr_require) |
305
|
21 |
119 |
if ($protocol_require) |
308
|
28 |
112 |
if ($state_require) |
314
|
42 |
98 |
if ($cidr_require) |
322
|
14 |
40 |
if ($foreign_host ne '*' and eval {
do {
Net::CIDR::cidrlookup($foreign_host, $cidr)
}
} or $local_host ne '*' and eval {
do {
Net::CIDR::cidrlookup($local_host, $cidr)
}
}) |
339
|
20 |
8 |
if ($port_require and defined $self->{'ports'}{$foreign_port} || defined $self->{'ports'}{$local_port}) |
350
|
11 |
129 |
if ($protocol_require and defined $self->{'protocols'}{$protocol_search}) |
358
|
8 |
132 |
if ($state_require and defined $self->{'states'}{$state_search}) |
366
|
81 |
41 |
if ($port_meet and $protocol_meet and $cidr_meet and $state_meet) |
418
|
6 |
2 |
if (defined $_[1]) |
422
|
0 |
8 |
unless ($self->errorblank) |
427
|
2 |
6 |
unless (defined $cidrs[0]) |
435
|
0 |
8 |
unless (Net::CIDR::cidrvalidate($cidr)) |
474
|
3 |
1 |
if (defined $_[1]) |
478
|
0 |
4 |
unless ($self->errorblank) |
482
|
1 |
3 |
unless (defined $ports[0]) |
490
|
2 |
2 |
unless ($port =~ /^\d+$/) |
497
|
0 |
2 |
unless (defined $port_number) |
544
|
2 |
1 |
if (defined $_[1]) |
548
|
0 |
3 |
unless ($self->errorblank) |
552
|
1 |
2 |
unless (defined $protocols[0]) |
602
|
4 |
4 |
if (defined $_[1]) |
606
|
0 |
8 |
unless ($self->errorblank) |
610
|
4 |
4 |
unless (defined $states[0]) |