Condition Coverage

blib/lib/IPTables/ChainMgr.pm
Criterion Covered Total %
condition 0 177 0.0


and 3 conditions

line !l l&&!r l&&r condition
298 0 0 0 defined $parse_hr->{$key}{'use_quotes'} and $parse_hr->{$key}{'use_quotes'}
331 0 0 0 defined $extended_hr->{'to_ip'} and defined $extended_hr->{'to_port'}
377 0 0 0 defined $extended_hr->{'to_ip'} and defined $extended_hr->{'to_port'}
448 0 0 0 defined $extended_hr->{'normalize'} and $extended_hr->{'normalize'}
450 0 0 0 defined $extended_hr->{'normalize'} and $extended_hr->{'normalize'}
454 0 0 0 $rule_hr->{'target'} eq $target and $rule_hr->{'src'} eq $src
0 0 0 $rule_hr->{'target'} eq $target and $rule_hr->{'src'} eq $src and $rule_hr->{'dst'} eq $dst
521 0 0 0 defined $p_hr->{'regex'} and $p_hr->{'regex'}
524 0 0 0 defined $p_hr->{'ipt_match'} and $p_hr->{'ipt_match'}
533 0 0 0 defined $p_hr->{'regex'} and $p_hr->{'regex'}
536 0 0 0 defined $p_hr->{'ipt_match'} and $p_hr->{'ipt_match'}
591 0 0 0 $net =~ m[/] and $net =~ /$ipv4_re/

or 2 conditions

line l !l condition
155 0 0 shift() || {}
173 0 0 shift() || {}
253 0 0 shift() || ''
254 0 0 shift() || ''
353 0 0 shift() || {}
400 0 0 shift() || {}

or 3 conditions

line l !l&&r !l&&!r condition
62 0 0 0 shift() || croak('[*] Must specify a table, e.g. "filter".')
63 0 0 0 shift() || croak('[*] Must specify a chain to check.')
71 0 0 0 shift() || croak('[*] Must specify a table, e.g. "filter".')
72 0 0 0 shift() || croak('[*] Must specify a chain to create.')
86 0 0 0 shift() || croak('[*] Must specify a table, e.g. "filter".')
87 0 0 0 shift() || croak('[*] Must specify a chain.')
95 0 0 0 shift() || croak('[*] Must specify a table, e.g. "filter".')
96 0 0 0 shift() || croak('[*] Must specify a chain from which ', 'packets were jumped to this chain')
99 0 0 0 shift() || croak('[*] Must specify a chain to delete.')
136 0 0 0 shift() || croak('[*] Must specify a table, e.g. "filter".')
137 0 0 0 shift() || croak('[*] Must specify a chain.')
138 0 0 0 shift() || croak('[-] Must specify ' . qq[$self->{'_ipt_bin_name'} target, e.g. "DROP"])
147 0 0 0 shift() || croak('[-] Must specify a src address/network.')
148 0 0 0 shift() || croak('[-] Must specify a dst address/network.')
149 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
150 0 0 0 shift() || croak('[-] Must specify a chain.')
151 0 0 0 shift() || croak('[-] Must specify ' . qq[$self->{'_ipt_bin_name'} target, e.g. "DROP"])
164 0 0 0 shift() || croak('[-] Must specify a src address/network.')
165 0 0 0 shift() || croak('[-] Must specify a dst address/network.')
167 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
168 0 0 0 shift() || croak('[-] Must specify a chain.')
169 0 0 0 shift() || croak("[-] Must specify $self->{'_ipt_bin_name'} " . 'target, e.g. "DROP"')
297 0 0 0 $key =~ /s_?port$/ or $key =~ /d_?port$/
346 0 0 0 shift() || croak('[-] Must specify a src address/network.')
347 0 0 0 shift() || croak('[-] Must specify a dst address/network.')
348 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
349 0 0 0 shift() || croak('[-] Must specify a chain.')
350 0 0 0 shift() || croak('[-] Must specify ' . qq[$self->{'_ipt_bin_name'} target, e.g. "DROP"])
392 0 0 0 shift() || croak('[*] Must specify source address.')
393 0 0 0 shift() || croak('[*] Must specify destination address.')
394 0 0 0 shift() || croak("[*] Must specify $self->{'_ipt_bin_name'} table.")
395 0 0 0 shift() || croak("[*] Must specify $self->{'_ipt_bin_name'} chain.")
396 0 0 0 shift() || croak('[*] Must specify ' . "$self->{'_ipt_bin_name'} target (this may be a chain).")
405 0 0 0 $debug or $verbose
462 0 0 0 $key eq 'state' or $key eq 'ctstate'
494 0 0 0 $target eq 'LOG' or $target eq 'ULOG'
584 0 0 0 shift() || croak('[*] Must specify net.')
591 0 0 0 $net =~ m[/] and $net =~ /$ipv4_re/ or $net =~ /:/
609 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
610 0 0 0 shift() || croak('[-] Must specify chain to jump from.')
611 0 0 0 shift() || croak('[-] Must specify jump rule chain position')
612 0 0 0 shift() || croak('[-] Must specify chain to jump to.')
662 0 0 0 shift() || croak('[*] Must specify ' . "$self->{'_ipt_bin_name'} command to run.")