line |
true |
false |
branch |
35
|
0 |
365 |
unless defined $string |
54
|
6 |
289 |
if ($line =~ /^hostname (\S+)/) |
58
|
12 |
277 |
if ($line =~ /^name (\S+) (\S+)/) |
62
|
6 |
271 |
if ($line =~ /^interface/) |
66
|
35 |
236 |
if ($line =~ /^object\s/) |
70
|
77 |
159 |
if ($line =~ /^object-group (\S+) (\S+)/) |
78
|
0 |
159 |
if ($line =~ /^access-list (.*) $unsupported_acl_type/) |
84
|
94 |
65 |
if ($line =~ /^access-list/) |
90
|
6 |
59 |
if ($line =~ /^access-group/) |
94
|
10 |
49 |
if ($line =~ /^route/) |
114
|
249 |
28 |
if ($line =~ /^\s(?=$options)/) { } |
116
|
18 |
231 |
if (defined $full_sect) { } |
132
|
6 |
112 |
if (defined $full_sect) |
136
|
0 |
118 |
if ($pos eq $header_pos) |
147
|
94 |
0 |
if ($line =~ /^access-list (\S+)/) |
149
|
11 |
83 |
if (not $$self{'ACL_ID'}{$acl_id}) { } |
160
|
36 |
58 |
if ($line =~ /object-group/) |
166
|
66 |
378 |
if ($string =~ /object-group/) |
169
|
0 |
66 |
unless my $og_type = $$self{'OG_INDEX'}{$og_ID} |