| line |
true |
false |
branch |
|
127
|
0 |
0 |
unless ($self->errorblank) |
|
149
|
0 |
0 |
unless ($self->errorblank) |
|
170
|
0 |
0 |
unless ($self->errorblank) |
|
192
|
0 |
0 |
unless ($self->errorblank) |
|
216
|
0 |
0 |
unless ($self->errorblank) |
|
238
|
0 |
0 |
unless ($self->errorblank) |
|
261
|
0 |
0 |
unless ($self->errorblank) |
|
283
|
0 |
0 |
unless ($self->errorblank) |
|
303
|
0 |
0 |
unless ($self->errorblank) |
|
325
|
0 |
0 |
unless ($self->errorblank) |
|
345
|
0 |
0 |
unless ($self->errorblank) |
|
367
|
0 |
0 |
unless ($self->errorblank) |
|
386
|
0 |
20 |
unless ($self->errorblank) |
|
391
|
0 |
20 |
if (ref $res ne 'ARRAY' or not defined $res->[2] or not defined $res->[2]{'active_conns'}) |
|
414
|
6 |
14 |
if (defined $self->{'cidrs'}[0]) |
|
417
|
4 |
16 |
if (defined((keys %{$$self{'ports'};})[0])) |
|
420
|
3 |
17 |
if (defined((keys %{$$self{'protocols'};})[0])) |
|
423
|
4 |
16 |
if (defined((keys %{$$self{'states'};})[0])) |
|
426
|
0 |
20 |
if (defined((keys %{$$self{'ptrs'};})[0])) |
|
429
|
0 |
20 |
if (defined $self->{'ptrs_r'}[0]) |
|
436
|
140 |
20 |
if (defined $res->[2]{'active_conns'}[$res_int]{'proto'} and $res->[2]{'active_conns'}[$res_int]{'proto'} ne 'unix') |
|
454
|
20 |
120 |
if ($local_host =~ /[0123456789AaBbCcDdEeFf]\:$/) |
|
457
|
0 |
140 |
if ($foreign_host =~ /[0123456789AaBbCcDdEeFf]\:$/) |
|
463
|
0 |
140 |
unless (defined $foreign_host) |
|
466
|
0 |
60 |
if ($foreign_host eq '*' and $protocol =~ /^[Uu][Dd][Pp]/ and not defined $state) |
|
473
|
0 |
140 |
if (not defined $state and $protocol =~ /^[Uu][Dd][Pp]/) |
|
500
|
42 |
98 |
if ($cidr_require) |
|
508
|
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)
}
}) |
|
525
|
20 |
8 |
if ($port_require and defined $self->{'ports'}{$foreign_port} || defined $self->{'ports'}{$local_port}) |
|
536
|
11 |
129 |
if ($protocol_require and defined $self->{'protocols'}{$protocol_search}) |
|
544
|
8 |
132 |
if ($state_require and defined $self->{'states'}{$state_search}) |
|
552
|
0 |
140 |
if ($ptr_require) |
|
559
|
0 |
0 |
if (defined $answer_f->{'answer'}[0] and ref $answer_f->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
567
|
0 |
0 |
if (defined $answer_l->{'answer'}[0] and ref $answer_l->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
574
|
0 |
0 |
if (defined $self->{'ptrs'}{$ptr_l} or defined $self->{'ptrs'}{$ptr_f}) |
|
583
|
0 |
140 |
if ($ptr_r_require) |
|
590
|
0 |
0 |
if (defined $answer_f->{'answer'}[0] and ref $answer_f->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
598
|
0 |
0 |
if (defined $answer_l->{'answer'}[0] and ref $answer_l->{'answer'}[0] eq 'Net::DNS::RR::PTR') |
|
612
|
0 |
0 |
if ($ptr_f =~ /$ptr/ or $ptr_l =~ /$ptr/) |
|
632
|
81 |
0 |
if ($port_meet and $protocol_meet and $cidr_meet and $state_meet and $ptr_meet and $ptr_r_meet) |
|
685
|
6 |
2 |
if (defined $_[1]) |
|
689
|
0 |
8 |
unless ($self->errorblank) |
|
694
|
2 |
6 |
unless (defined $cidrs[0]) |
|
702
|
0 |
8 |
unless (Net::CIDR::cidrvalidate($cidr)) |
|
737
|
0 |
0 |
unless ($self->errorblank) |
|
741
|
0 |
0 |
if ($bool) { } |
|
773
|
3 |
1 |
if (defined $_[1]) |
|
777
|
0 |
4 |
unless ($self->errorblank) |
|
781
|
1 |
3 |
unless (defined $ports[0]) |
|
789
|
2 |
2 |
unless ($port =~ /^\d+$/) |
|
796
|
0 |
2 |
unless (defined $port_number) |
|
834
|
0 |
0 |
unless ($self->errorblank) |
|
838
|
0 |
0 |
if ($bool) { } |
|
872
|
2 |
1 |
if (defined $_[1]) |
|
876
|
0 |
3 |
unless ($self->errorblank) |
|
880
|
1 |
2 |
unless (defined $protocols[0]) |
|
921
|
0 |
0 |
unless ($self->errorblank) |
|
925
|
0 |
0 |
if ($bool) { } |
|
957
|
0 |
0 |
if (defined $_[1]) |
|
961
|
0 |
0 |
unless ($self->errorblank) |
|
965
|
0 |
0 |
unless (defined $ptrs[0]) |
|
1007
|
0 |
0 |
unless ($self->errorblank) |
|
1011
|
0 |
0 |
if ($bool) { } |
|
1039
|
0 |
0 |
if (defined $_[1]) |
|
1043
|
0 |
0 |
unless ($self->errorblank) |
|
1071
|
0 |
0 |
unless ($self->errorblank) |
|
1075
|
0 |
0 |
if ($bool) { } |
|
1112
|
4 |
4 |
if (defined $_[1]) |
|
1116
|
0 |
8 |
unless ($self->errorblank) |
|
1120
|
4 |
4 |
unless (defined $states[0]) |
|
1161
|
0 |
0 |
unless ($self->errorblank) |
|
1165
|
0 |
0 |
if ($bool) { } |