| line |
true |
false |
branch |
|
54
|
0 |
4099 |
if (exists $args{'exclude'} and exists $args{'additional_types_allowed'}) |
|
67
|
0 |
13298 |
if (¬all(sub {
/$optre/u;
}
, keys %args)) |
|
73
|
9199 |
4099 |
unless (defined $args{'exclude'}) |
|
112
|
1 |
57348 |
unless (exists $VALID_TYPES{$t}) |
|
116
|
2 |
17391 |
unless (exists $VALID_TYPES{$tag}) |
|
124
|
118784 |
159472 |
if (&none(sub {
$_ eq $tag;
}
, @{$$IPV4_EXCLUDE{$default_exclude};})) |
|
129
|
83978 |
234966 |
if (&any(sub {
$_ eq $checktype;
}
, @$addl_types)) |
|
142
|
0 |
105063 |
unless (defined $sub_cidr) |
|
143
|
0 |
105063 |
unless (defined $ip) |
|
145
|
1 |
105062 |
unless ($sub_cidr =~ m[\A(?:[0-9\.]+)(?:/(?:[0-9]+))?\z]u) |
|
160
|
3087 |
101975 |
if (($addr & $mask) == ($sub & $mask)) |