| line |
true |
false |
branch |
|
58
|
0 |
4099 |
if (exists $args{'exclude'} and exists $args{'additional_types_allowed'}) |
|
71
|
0 |
13299 |
if (¬all(sub {
/$optre/u;
}
, keys %args)) |
|
77
|
9200 |
4099 |
unless (defined $args{'exclude'}) |
|
116
|
1 |
57348 |
unless (exists $VALID_TYPES{$t}) |
|
120
|
2 |
17392 |
unless (exists $VALID_TYPES{$tag}) |
|
128
|
118784 |
159488 |
if (&none(sub {
$_ eq $tag;
}
, @{$$IPV4_EXCLUDE{$default_exclude};})) |
|
133
|
83978 |
234998 |
if (&any(sub {
$_ eq $checktype;
}
, @$addl_types)) |
|
146
|
0 |
101851 |
unless (defined $sub_cidr) |
|
147
|
0 |
101851 |
unless (defined $ip) |
|
149
|
1 |
101850 |
unless ($sub_cidr =~ m[\A(?:[0-9\.]+)(?:/(?:[0-9]+))?\z]u) |
|
164
|
3094 |
98756 |
if (($addr & $mask) == ($sub & $mask)) |