| line |
true |
false |
branch |
|
55
|
4 |
3 |
if ($type == 2) |
|
59
|
3 |
0 |
if ($type == 10) |
|
60
|
3 |
0 |
if (&have_ipv6()) { } |
|
78
|
15 |
54 |
if (ref $self eq 'JCM::Net::Patricia::AF_INET6') { } |
|
79
|
11 |
4 |
$str =~ s[/(\d+)$][] ? : |
|
81
|
38 |
16 |
$str =~ s[/(\d+)$][] ? : |
|
87
|
0 |
38 |
if @_ < 2 or @_ > 3 |
|
89
|
8 |
30 |
unless @_ > 2 |
|
94
|
0 |
17 |
if @_ != 2 |
|
100
|
0 |
8 |
if @_ != 2 |
|
106
|
0 |
2 |
if @_ != 2 |
|
116
|
0 |
4 |
if @_ != 2 |
|
126
|
0 |
3 |
if @_ |
|
129
|
0 |
1 |
if @_ != 3 |
|
136
|
2 |
0 |
if $self->add_string($_, $data) |
|
142
|
0 |
1 |
if @_ != 2 |
|
149
|
2 |
0 |
if $self->remove_string($_) |
|
173
|
0 |
29 |
if @_ < 2 or @_ > 4 |
|
175
|
1 |
28 |
if scalar split(m[[/.]], $ip, 0) != 4 |
|
176
|
0 |
28 |
if grep {/^0[0-9]/;} split(m[[/.]], $ip, 0) |
|
177
|
0 |
0 |
defined $bits ? : |
|
|
0 |
28 |
if @_ < 4 |
|
179
|
0 |
28 |
unless defined $packed |
|
180
|
0 |
28 |
if @_ < 3 |
|
185
|
0 |
0 |
if @_ < 2 or @_ > 4 |
|
189
|
0 |
0 |
unless defined $ip |
|
190
|
0 |
0 |
defined $bits ? : |
|
|
0 |
0 |
if @_ < 4 |
|
191
|
0 |
0 |
if @_ < 3 |
|
196
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
198
|
6 |
0 |
if @_ < 3 |
|
203
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
205
|
0 |
0 |
if @_ < 3 |
|
210
|
0 |
6 |
if @_ < 2 or @_ > 3 |
|
212
|
2 |
4 |
if @_ < 3 |
|
217
|
0 |
15 |
if @_ < 2 or @_ > 3 |
|
219
|
0 |
15 |
if scalar split(m[[/.]], $ip, 0) != 4 |
|
220
|
0 |
15 |
if grep {/^0[0-9]/;} split(m[[/.]], $ip, 0) |
|
222
|
0 |
15 |
unless defined $packed |
|
223
|
0 |
15 |
if @_ < 3 |
|
228
|
0 |
4 |
if @_ < 2 or @_ > 3 |
|
230
|
0 |
4 |
if scalar split(m[[/.]], $ip, 0) != 4 |
|
231
|
0 |
4 |
if grep {/^0[0-9]/;} split(m[[/.]], $ip, 0) |
|
233
|
0 |
4 |
unless defined $packed |
|
234
|
0 |
4 |
if @_ < 3 |
|
239
|
0 |
2 |
if @_ < 2 or @_ > 3 |
|
241
|
0 |
2 |
if scalar split(m[[/.]], $ip, 0) != 4 |
|
242
|
0 |
2 |
if grep {/^0[0-9]/;} split(m[[/.]], $ip, 0) |
|
244
|
0 |
2 |
unless defined $packed |
|
245
|
0 |
2 |
if @_ < 3 |
|
250
|
0 |
4 |
if @_ < 2 or @_ > 3 |
|
252
|
0 |
4 |
if scalar split(m[[/.]], $ip, 0) != 4 |
|
253
|
0 |
4 |
if grep {/^0[0-9]/;} split(m[[/.]], $ip, 0) |
|
255
|
0 |
4 |
unless defined $packed |
|
256
|
0 |
4 |
if @_ < 3 |
|
261
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
263
|
0 |
0 |
if @_ < 3 |
|
286
|
0 |
9 |
if @_ < 2 or @_ > 4 |
|
288
|
0 |
0 |
defined $bits ? : |
|
|
0 |
9 |
if @_ < 3 |
|
290
|
0 |
9 |
unless defined $packed |
|
291
|
0 |
9 |
if @_ < 4 |
|
296
|
0 |
0 |
if @_ < 2 or @_ > 4 |
|
300
|
0 |
0 |
unless defined $ip |
|
301
|
0 |
0 |
defined $bits ? : |
|
|
0 |
0 |
if @_ < 3 |
|
302
|
0 |
0 |
if @_ < 4 |
|
307
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
309
|
0 |
0 |
if @_ < 3 |
|
314
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
316
|
0 |
0 |
if @_ < 3 |
|
321
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
323
|
0 |
0 |
if @_ < 3 |
|
328
|
0 |
2 |
if @_ < 2 or @_ > 3 |
|
331
|
0 |
2 |
unless defined $packed |
|
332
|
0 |
2 |
if @_ < 3 |
|
337
|
0 |
4 |
if @_ < 2 or @_ > 3 |
|
340
|
0 |
4 |
unless defined $packed |
|
341
|
0 |
4 |
if @_ < 3 |
|
346
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
349
|
0 |
0 |
unless defined $packed |
|
350
|
0 |
0 |
if @_ < 3 |
|
355
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
358
|
0 |
0 |
unless defined $packed |
|
359
|
0 |
0 |
if @_ < 3 |
|
364
|
0 |
0 |
if @_ < 2 or @_ > 3 |
|
366
|
0 |
0 |
if @_ < 3 |