Branch Coverage

blib/lib/Parser/IPTables/Save.pm
Criterion Covered Total %
branch 29 100 29.0


line true false branch
62 0 0 if ($index) { }
136 0 1 unless ($proto and defined $iptables_save_file)
143 0 1 unless tie my @file_array, 'Tie::File', $iptables_save_file
177 1 6 if ($line eq '*' . $$self{'table_name'})
184 3 3 if ($get_lines == 1 and substr($line, 0, 1) eq ':') { }
1 2 elsif ($get_lines == 1 and substr($line, 0, 2) eq '-A' || substr($line, 0, 3) eq '#-A') { }
192 0 1 if substr($line, 0, 1) eq '#'
195 1 0 if $line =~ /-A\s+([\w]+)/g
198 1 0 if ($line =~ /-p\s+([\!\w\d]+)/g)
202 0 1 if ($$rule{'proto'} =~ /^\!$/)
203 0 0 if $line =~ /-p\s+\!\s+([\!\w\d]+)/
215 1 0 if ($line =~ m[-s\s+([\w\d\!\-\./]+)]g)
219 0 1 if ($$rule{'source'} =~ /^\!$/)
220 0 0 if $line =~ m[-s\s+\!\s+([\w\d\!\-\./]+)]
225 1 0 if ($line =~ m[-d\s+([\w\d\!\-\./]+)]g)
229 1 0 if ($$rule{'destination'} =~ /^\!$/)
230 1 0 if $line =~ m[-d\s+\!\s+([\w\d\!\-\./]+)]
235 0 1 if ($line =~ /--state\s+(\w+)/g)
240 0 1 if ($line =~ /--sport\s+([\w\:]+)/g)
244 0 0 if ($$rule{'port_source'} =~ /^\!$/)
245 0 0 if $line =~ /-d\s+\!\s+([\w\:]+)/
250 1 0 if ($line =~ /--dport\s+([\w\:]+)/g)
254 0 1 if ($$rule{'port_destination'} =~ /^\!$/)
255 0 0 if $line =~ /-d\s+\!\s+([\w\:]+)/
261 1 0 if $line =~ /-j\s+([\w]+)/
264 1 0 if $line =~ /-j\s+(.*?)\s+([\w\-]*)/
267 0 1 if $line =~ /-j\s+(.*?)\s+([\w\-]*)\s+([\w\-\.\:]*)/
271 0 1 if ($$rule{'target_param1'} and $$rule{'target_param1'} eq '--comment')
278 0 1 if $line =~ /--comment\s+\"(.*)\"/
285 1 5 if $get_lines == 1 and $line eq 'COMMIT'
297 1 0 if $$self{'table_name'}
312 0 0 unless $$self{'table_name'}
330 0 0 if wantarray
365 0 0 if ($move < 0)
367 0 0 if $index - $move < 0
374 0 0 if $move > 0
396 0 0 unless $rule
402 0 0 if $$rule{'disabled'}
408 0 0 if $$rule{'proto'}
416 0 0 if $$rule{'iface_input'}
419 0 0 if $$rule{'iface_output'}
422 0 0 if $$rule{'source'}
425 0 0 if $$rule{'destination'}
428 0 0 if $$rule{'state'}
431 0 0 if $$rule{'port_source'}
434 0 0 if $$rule{'port_destination'}
437 0 0 if $$rule{'target'}
440 0 0 if $$rule{'target_param1'}
443 0 0 if $$rule{'target_param2'}
446 0 0 if $$rule{'comment'}