line |
true |
false |
branch |
69
|
0 |
0 |
if (not -f $config_file) { } |
76
|
0 |
0 |
unless -r $config_file |
79
|
0 |
0 |
unless &open('CONFIG', $config_file) |
96
|
0 |
0 |
unless length $_ |
99
|
0 |
0 |
if (/^\[(\w+)\].*/) |
103
|
0 |
0 |
if (not grep({/^$section$/;} @valid_sections)) { } |
111
|
0 |
0 |
unless exists $$ruleset{$section} |
117
|
0 |
0 |
if (/^(\w+)\s*\:\s*(.*)$/) |
124
|
0 |
0 |
if (/^(\d+\%?.*)$/) |
128
|
0 |
0 |
if ($invalid_section_flag) |
139
|
0 |
0 |
if ($certain =~ /^(\d+)\%?$/) { } |
142
|
0 |
0 |
if ($certain > 100 or $certain < 0) |
185
|
0 |
0 |
if $sec eq 'GLOBAL' |
187
|
0 |
0 |
if (exists $$ruleset{$sec} and defined $$ruleset{$sec}) |