| line |
true |
false |
branch |
|
88
|
15 |
0 |
if (defined $ip) |
|
94
|
15 |
0 |
if (has_ipv6() or $] >= 5.012) { } |
|
97
|
7 |
1 |
$ip =~ /^@{[\undef];}$/so ? : |
|
|
7 |
8 |
$ip =~ /^@{[\undef];}$/so ? : |
|
105
|
0 |
0 |
if $ip =~ m[^@{[qr/(?:(?:25[0-5]|2[0-4][0-9]|1?\d\d?)\.){3}(?:25[0-5]|2[0-4][0-9]|1?\d\d?)/s];}$]so |
|
110
|
14 |
1 |
if (defined $ip and defined $family) |
|
114
|
10 |
10 |
$family == 2 ? : |
|
123
|
6 |
7 |
$family == 2 ? : |
|
|
10 |
3 |
if ($family == 2 ? ipv4NetIntersect($ip, $_) : ipv6NetIntersect($ip, $_)) |
|
154
|
4 |
1 |
if (defined $host and $host =~ m[^@{[qr/(?:[a-z0-9][a-z0-9\-]*)(?:\.[a-z0-9][a-z0-9\-]*)*\.?/s];}$]so) |
|
158
|
5 |
0 |
if defined $_ |
|
161
|
3 |
1 |
if (@domains) |
|
163
|
3 |
1 |
if ($host =~ /^(?:[\w\-]+\.)*\Q$domain\E$/is) |
|
189
|
0 |
10 |
unless defined $string |
|
197
|
28 |
0 |
if defined inet_aton($tmp[0]) |
|
202
|
10 |
0 |
if (has_ipv6() or $] >= "5.012") |
|
213
|
15 |
30 |
if defined inet_pton(10, $tmp[0]) |
|
242
|
6 |
0 |
if (defined $target and defined $dest) { } |
|
243
|
3 |
3 |
if ($target =~ /^(?:@{[\undef];}|@{[\undef];})$/s) { } |
|
|
2 |
1 |
elsif ($target =~ /^(?:@{[\undef];}|@{[\undef];})$/is) { } |
|
247
|
2 |
0 |
if has_ipv6() or $] >= "5.012" |