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
299 0 0 0 defined $parse_hr->{$key}{'use_quotes'} and $parse_hr->{$key}{'use_quotes'}
332 0 0 0 defined $extended_hr->{'to_ip'} and defined $extended_hr->{'to_port'}
378 0 0 0 defined $extended_hr->{'to_ip'} and defined $extended_hr->{'to_port'}
449 0 0 0 defined $extended_hr->{'normalize'} and $extended_hr->{'normalize'}
451 0 0 0 defined $extended_hr->{'normalize'} and $extended_hr->{'normalize'}
455 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
522 0 0 0 defined $p_hr->{'regex'} and $p_hr->{'regex'}
525 0 0 0 defined $p_hr->{'ipt_match'} and $p_hr->{'ipt_match'}
534 0 0 0 defined $p_hr->{'regex'} and $p_hr->{'regex'}
537 0 0 0 defined $p_hr->{'ipt_match'} and $p_hr->{'ipt_match'}
592 0 0 0 $net =~ m[/] and $net =~ /$ipv4_re/

or 2 conditions

line l !l condition
155 0 0 shift() || {}
174 0 0 shift() || {}
254 0 0 shift() || ''
255 0 0 shift() || ''
354 0 0 shift() || {}
401 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"')
298 0 0 0 $key =~ /s_?port$/ or $key =~ /d_?port$/
347 0 0 0 shift() || croak('[-] Must specify a src address/network.')
348 0 0 0 shift() || croak('[-] Must specify a dst address/network.')
349 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
350 0 0 0 shift() || croak('[-] Must specify a chain.')
351 0 0 0 shift() || croak('[-] Must specify ' . qq[$self->{'_ipt_bin_name'} target, e.g. "DROP"])
393 0 0 0 shift() || croak('[*] Must specify source address.')
394 0 0 0 shift() || croak('[*] Must specify destination address.')
395 0 0 0 shift() || croak("[*] Must specify $self->{'_ipt_bin_name'} table.")
396 0 0 0 shift() || croak("[*] Must specify $self->{'_ipt_bin_name'} chain.")
397 0 0 0 shift() || croak('[*] Must specify ' . "$self->{'_ipt_bin_name'} target (this may be a chain).")
406 0 0 0 $debug or $verbose
463 0 0 0 $key eq 'state' or $key eq 'ctstate'
495 0 0 0 $target eq 'LOG' or $target eq 'ULOG'
585 0 0 0 shift() || croak('[*] Must specify net.')
592 0 0 0 $net =~ m[/] and $net =~ /$ipv4_re/ or $net =~ /:/
610 0 0 0 shift() || croak('[-] Must specify a table, e.g. "filter".')
611 0 0 0 shift() || croak('[-] Must specify chain to jump from.')
612 0 0 0 shift() || croak('[-] Must specify jump rule chain position')
613 0 0 0 shift() || croak('[-] Must specify chain to jump to.')
663 0 0 0 shift() || croak('[*] Must specify ' . "$self->{'_ipt_bin_name'} command to run.")