| 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]) |