| line |
true |
false |
branch |
|
73
|
0 |
40 |
unless defined $ip and defined $pref_len |
|
74
|
0 |
40 |
unless defined $value |
|
75
|
0 |
40 |
unless $pref_len =~ /^\d+$/ and $pref_len >= 0 and $pref_len <= 32 |
|
78
|
0 |
40 |
unless defined $i_ip |
|
79
|
0 |
40 |
unless is_valid_prefix($i_ip, $pref_len) |
|
89
|
117 |
418 |
if ($i_ip & $bit_to_test) { } |
|
95
|
32 |
503 |
unless defined $next |
|
101
|
8 |
32 |
if (defined $next) |
|
102
|
0 |
8 |
if defined $$next[2] |
|
109
|
49 |
143 |
if ($i_ip & $bit_to_test) { } |
|
127
|
0 |
1 |
unless $pref_len =~ /^\d+$/ and $pref_len >= 0 and $pref_len <= 32 |
|
130
|
0 |
1 |
unless defined $i_ip |
|
141
|
0 |
0 |
if ($i_ip & $bit_to_test) { } |
|
148
|
0 |
1 |
unless defined $node |
|
150
|
1 |
0 |
if ($$node[0] or $$node[1]) { } |
|
155
|
0 |
0 |
if ($i_ip & $bit_to_test) { } |
|
179
|
41 |
237 |
if (defined $$node[2]) |
|
185
|
217 |
61 |
if $$node[0] |
|
188
|
51 |
227 |
if $$node[1] |
|
195
|
0 |
8 |
unless defined $$self{'root'}[2] |
|
207
|
225 |
189 |
if defined $$node[2] |
|
212
|
180 |
234 |
if ($$node[0] xor $$node[1]) |
|
215
|
30 |
150 |
unless $$node[0] |
|
216
|
150 |
30 |
unless $$node[1] |
|
219
|
203 |
211 |
if $$node[0] |
|
220
|
203 |
211 |
if $$node[1] |
|
225
|
203 |
211 |
if ($$node[0]) |
|
229
|
18 |
185 |
ref $$node[0][2] eq 'ARRAY' ? : |
|
232
|
8 |
195 |
ref $$node[1][2] eq 'ARRAY' ? : |
|
236
|
177 |
26 |
if (scalar @intersect == 1) { } |
|
|
1 |
25 |
elsif (scalar @intersect > 1) { } |
|
241
|
0 |
1 |
if defined $$node[2] |
|
246
|
0 |
25 |
if defined $$node[2] |
|
257
|
373 |
41 |
if ($parent_value ~~ $$node[2]) { } |
|
262
|
34 |
7 |
if (ref $$node[2] ne 'ARRAY') { } |
|
267
|
7 |
0 |
if (not defined $$node[3]) { } |
|
|
0 |
0 |
elsif ($$node[3] ~~ $$node[2]) { } |
|
285
|
203 |
211 |
if $$node[0] |
|
286
|
203 |
211 |
if $$node[1] |
|
289
|
195 |
219 |
if (not defined $$node[2] || $$node[0] || $$node[1]) |
|
290
|
38 |
157 |
if (ref $$parent[0] and $$parent[0] == $node) { } |
|
|
157 |
0 |
elsif (ref $$parent[1] and $$parent[1] == $node) { } |
|
310
|
0 |
63 |
unless @oct == 4 |
|
313
|
0 |
252 |
if $_ > 255 or $_ < 0 |
|
327
|
0 |
91 |
if $_[0] < 0 or $_[0] > 32 |