| line |
true |
false |
branch |
|
24
|
2 |
50 |
if @_ |
|
33
|
70 |
3 |
exists $$self[$i + 1] ? : |
|
50
|
0 |
127 |
unless my(@range) = _range($_) |
|
59
|
0 |
18 |
unless my(@range) = _range($_) |
|
68
|
3 |
142 |
if ($max eq $masks_ip6[128]) |
|
71
|
0 |
0 |
$i % 2 ? : |
|
|
1 |
2 |
$i % 2 ? : |
|
|
0 |
3 |
$sub ? : |
|
79
|
51 |
91 |
unless (@$self) |
|
89
|
10 |
8 |
$i % 2 ? : |
|
|
12 |
6 |
$j % 2 ? : |
|
|
8 |
65 |
$i % 2 ? : |
|
|
6 |
67 |
$j % 2 ? : |
|
|
18 |
73 |
$sub ? : |
|
104
|
0 |
36 |
unless @$self |
|
109
|
2 |
34 |
if $addr lt $$self[0] |
|
110
|
2 |
32 |
if $addr ge $$self[-1] |
|
113
|
10 |
22 |
if (@$self < $BIN_THRESHOLD) { } |
|
121
|
62 |
50 |
if ($addr lt $$self[$i]) { } |
|
122
|
22 |
40 |
if $$self[$i - 1] le $addr |
|
137
|
7 |
310 |
$addr =~ /:/ ? : |
|
142
|
0 |
315 |
unless $in =~ /^\d{1,3}(?:\.\d{1,3}){3}$/ |
|
145
|
0 |
1260 |
if $_ > 255 |
|
153
|
0 |
12 |
if ($in =~ /:([12]\d\d(?:\.[12]\d\d){3})$/) |
|
163
|
134 |
11 |
if ($in =~ /-/) { } |
|
|
10 |
1 |
elsif ($in =~ m[/]) { } |
|
167
|
0 |
134 |
unless defined $min and defined $max |
|
168
|
134 |
0 |
$min le $max ? : |
|
173
|
5 |
5 |
if ($addr =~ /:/) { } |
|
179
|
0 |
5 |
$mask =~ /\./ ? : |
|
|
0 |
5 |
unless $mask = $mask =~ /\./ ? $masks_ip4{$mask} : $masks_ip4[$mask] |
|
192
|
143 |
12 |
($addr & ~$masks_ip4[0]) eq $addr ? : |
|
214
|
0 |
397 |
if $p < 0 |
|
225
|
0 |
218 |
if $p < 0 |