Condition Coverage

blib/lib/Parse/Netstat/Search.pm
Criterion Covered Total %
condition 47 78 60.2


and 3 conditions

line !l l&&!r l&&r condition
436 0 20 140 defined $res->[2]{'active_conns'}[$res_int]{'proto'} and $res->[2]{'active_conns'}[$res_int]{'proto'} ne 'unix'
466 80 20 40 $foreign_host eq '*' and $protocol =~ /^[Uu][Dd][Pp]/
100 40 0 $foreign_host eq '*' and $protocol =~ /^[Uu][Dd][Pp]/ and not defined $state
473 140 0 0 not defined $state and $protocol =~ /^[Uu][Dd][Pp]/
504 40 2 54 defined $cidr and not $cidr_meet
508 23 23 8 $foreign_host ne '*' and eval { do { Net::CIDR::cidrlookup($foreign_host, $cidr) } }
8 32 6 $local_host ne '*' and eval { do { Net::CIDR::cidrlookup($local_host, $cidr) } }
525 112 20 8 $port_require and defined $self->{'ports'}{$foreign_port} || defined $self->{'ports'}{$local_port}
536 119 10 11 $protocol_require and defined $self->{'protocols'}{$protocol_search}
544 112 20 8 $state_require and defined $self->{'states'}{$state_search}
559 0 0 0 defined $answer_f->{'answer'}[0] and ref $answer_f->{'answer'}[0] eq 'Net::DNS::RR::PTR'
567 0 0 0 defined $answer_l->{'answer'}[0] and ref $answer_l->{'answer'}[0] eq 'Net::DNS::RR::PTR'
590 0 0 0 defined $answer_f->{'answer'}[0] and ref $answer_f->{'answer'}[0] eq 'Net::DNS::RR::PTR'
598 0 0 0 defined $answer_l->{'answer'}[0] and ref $answer_l->{'answer'}[0] eq 'Net::DNS::RR::PTR'
607 0 0 0 defined $ptr and not $ptr_r_meet
632 8 10 122 $port_meet and $protocol_meet
18 28 94 $port_meet and $protocol_meet and $cidr_meet
38 13 81 $port_meet and $protocol_meet and $cidr_meet and $state_meet
41 0 81 $port_meet and $protocol_meet and $cidr_meet and $state_meet and $ptr_meet
13 0 81 $port_meet and $protocol_meet and $cidr_meet and $state_meet and $ptr_meet and $ptr_r_meet

or 3 conditions

line l !l&&r !l&&!r condition
391 0 0 20 ref $res ne 'ARRAY' or not defined $res->[2]
0 0 20 ref $res ne 'ARRAY' or not defined $res->[2] or not defined $res->[2]{'active_conns'}
508 8 7 39 $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 12 8 8 defined $self->{'ports'}{$foreign_port} || defined $self->{'ports'}{$local_port}
574 0 0 0 defined $self->{'ptrs'}{$ptr_l} or defined $self->{'ptrs'}{$ptr_f}
612 0 0 0 $ptr_f =~ /$ptr/ or $ptr_l =~ /$ptr/