| line |
true |
false |
branch |
|
104
|
0 |
0 |
unless $fw_config |
|
115
|
0 |
0 |
if (not $not_a_file and -f $file) { } |
|
|
0 |
0 |
elsif (not $not_a_file and -f "$file.conf") { } |
|
|
0 |
0 |
elsif (not $not_a_file and -f $host) { } |
|
|
0 |
0 |
elsif (not $not_a_file and -f "$host.conf") { } |
|
116
|
0 |
0 |
unless open F, "<$file" |
|
120
|
0 |
0 |
unless open F, "<$file.conf" |
|
124
|
0 |
0 |
unless open F, "<$host" |
|
128
|
0 |
0 |
unless open F, "<$host.conf" |
|
134
|
0 |
0 |
unless $conf |
|
229
|
0 |
0 |
unless -f $file |
|
230
|
0 |
0 |
unless open F, "<$file" |
|
234
|
0 |
0 |
if $line eq '' or $line =~ /^#/ |
|
237
|
0 |
0 |
unless exists $$self{'ports'}{$name} |
|
249
|
0 |
0 |
if ($line =~ /^object-group (\S+) (\S+)/i) { } |
|
|
0 |
0 |
elsif ($line =~ /^access-list (\S+)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^name (\S+) (\S+)/) { } |
|
261
|
0 |
0 |
if $name eq 'compiled' |
|
290
|
0 |
0 |
exists $$self{'acls'}{$name} ? : |
|
350
|
0 |
0 |
exists $$self{'alias'}{$alias} ? : |
|
377
|
0 |
0 |
unless $grp->type eq 'network' |
|
380
|
0 |
0 |
if ($match) |
|
381
|
0 |
0 |
if defined $trace |
|
385
|
0 |
0 |
if (scalar @$found) |
|
388
|
0 |
0 |
scalar @uniq == 1 ? : |
|
417
|
0 |
0 |
unless $grp->type eq 'service' |
|
420
|
0 |
0 |
if ($match) |
|
421
|
0 |
0 |
if defined $trace |
|
425
|
0 |
0 |
if (scalar @$found) |
|
428
|
0 |
0 |
scalar @uniq == 1 ? : |
|
445
|
0 |
0 |
exists $$self{'objects'}{$name} ? : |
|
465
|
0 |
0 |
if ($type) { } |
|
487
|
0 |
0 |
if $port =~ /^\d+$/ |
|
489
|
0 |
0 |
exists $$self{'ports'}{$port} ? : |
|
509
|
0 |
0 |
unless defined $trace |
|
510
|
0 |
0 |
if @$trace |
|
517
|
0 |
0 |
if $idx++ |
|
519
|
0 |
0 |
if $extra |
|
520
|
0 |
0 |
if $line |
|
534
|
0 |
0 |
unless defined $$self{'config'} |