| line |
true |
false |
branch |
|
43
|
0 |
0 |
if $constname eq 'constant' |
|
45
|
0 |
0 |
if ($error) |
|
75
|
0 |
0 |
if $params{'print_errors'} |
|
97
|
0 |
0 |
if ($skip_check) { } |
|
105
|
0 |
0 |
unless (defined $cidr) |
|
107
|
0 |
0 |
if $$self{'print_errors'} |
|
133
|
0 |
0 |
if ($$self{'leftover_cidr_processed'} and @{$$self{'leftover_cidr_processed'};}) |
|
136
|
0 |
0 |
if ($$self{'leftover_cidr_unprocessed'} and @{$$self{'leftover_cidr_unprocessed'};}) |
|
140
|
0 |
0 |
if (@$cidr_aref) |
|
146
|
0 |
0 |
unless $range |
|
147
|
0 |
0 |
if (defined $$self{'expand_cidr'}) |
|
149
|
0 |
0 |
if ($cidr >= $$self{'expand_cidr'}) { } |
|
153
|
0 |
0 |
if ($$self{'expand_cidr'} - $cidr > 16) |
|
177
|
0 |
0 |
if ($ip_range =~ /^(\d+\.\d+\.\d+\.\d+)-(\d+\.\d+\.\d+\.\d+)$/) { } |
|
|
0 |
0 |
elsif ($ip_range =~ /^(.+)\.(.+)\.(.+)\.([\d\-\[\]\*]+)$/) { } |
|
|
0 |
0 |
elsif ($ip_range =~ m[^(.+)\.(.+)\.(.+)\.(.+)/(\d+)$]) { } |
|
182
|
0 |
0 |
unless $self->process_ip_range($ip_start) |
|
183
|
0 |
0 |
unless $self->process_ip_range($ip_end) |
|
184
|
0 |
0 |
if ($ip_end_decimal < $ip_start_decimal) |
|
186
|
0 |
0 |
if $$self{'print_errors'} |
|
197
|
0 |
0 |
if defined $5 |
|
201
|
0 |
0 |
if $$self{'print_errors'} |
|
206
|
0 |
0 |
if ($octets[$x] eq '[0-255]') |
|
209
|
0 |
0 |
if ($octets[$x] =~ /^\[(\d+)-(\d+)\]$/ and not defined $cidr) { } |
|
|
0 |
0 |
elsif ($octets[$x] =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($octets[$x] =~ /^\*$/ and not defined $cidr) { } |
|
212
|
0 |
0 |
if ($begin_range < 0 or $begin_range > 255 or $end_range < 0 or $end_range > 255 or $begin_range > $end_range) |
|
214
|
0 |
0 |
if $$self{'print_errors'} |
|
217
|
0 |
0 |
if ($range_flag) |
|
219
|
0 |
0 |
if $$self{'print_errors'} |
|
225
|
0 |
0 |
if ($range_flag) |
|
227
|
0 |
0 |
if $$self{'print_errors'} |
|
230
|
0 |
0 |
if ($octets[$x] < 0 or $octets[$x] > 255) |
|
232
|
0 |
0 |
if $$self{'print_errors'} |
|
241
|
0 |
0 |
if $$self{'print_errors'} |
|
245
|
0 |
0 |
if (defined $cidr and $cidr > 32 || $cidr < 0) |
|
247
|
0 |
0 |
if $$self{'print_errors'} |
|
253
|
0 |
0 |
if (defined $cidr) { } |
|
261
|
0 |
0 |
if ($octets[$x] eq '*') { } |
|
|
0 |
0 |
elsif ($octets[$x] =~ /\[(\d+)-(\d+)\]/) { } |
|
|
0 |
0 |
elsif ($octets[$x] =~ /(\d+)/) { } |
|
275
|
0 |
0 |
if $$self{'print_errors'} |
|
289
|
0 |
0 |
if $level < 0 or $level > 32 |
|
295
|
0 |
0 |
if ($cidr >= $level) |