| line |
true |
false |
branch |
|
275
|
0 |
2 |
unless ($cidr =~ m[(.*)/(.*)]) |
|
289
|
0 |
2 |
unless $pfix >= 0 and $pfix <= ($#ips + 1) * 8 and $pfix =~ /^[0-9]+$/ |
|
302
|
1 |
1 |
if ($isipv6) |
|
324
|
11 |
8 |
unless $ipv6 =~ /:/ |
|
326
|
0 |
8 |
unless $ipv6 =~ /^[a-fA-F0-9:\.]+$/ |
|
331
|
0 |
8 |
if $ipv6 =~ /^(.*:)([0-9]+\.[0-9\.]+)$/ |
|
338
|
7 |
1 |
if ($ipv6 =~ /(.*)::(.*)/) { } |
|
367
|
0 |
776 |
unless $#octets == 15 |
|
372
|
0 |
776 |
if join('.', splice(@dummy, 0, 12)) eq '0.0.0.0.0.0.0.0.0.0.255.255' |
|
389
|
1682 |
848 |
unless $words[$i] eq '0' |
|
395
|
89 |
4526 |
if $words[$j] ne '0' |
|
398
|
848 |
0 |
if ($j - $i > $indlen) |
|
406
|
21 |
755 |
if $indlen == 8 |
|
408
|
17 |
738 |
if $ind < 0 |
|
432
|
0 |
172 |
unless $_ >= 0 and $_ <= 255 and $_ =~ /^[0-9]+$/ |
|
450
|
1 |
8 |
if ($pfix == 0) |
|
461
|
7 |
1 |
if ($pfix >= 8) |
|
498
|
6 |
8 |
if ($isipv6) { } |
|
500
|
0 |
6 |
unless $#ips == 15 |
|
505
|
0 |
8 |
unless $#ips == 3 |
|
528
|
774 |
264 |
$isipv6 ? : |
|
539
|
0 |
0 |
if defined $a_isIPv6 and defined $n_isIPv6 and $a_isIPv6 != $n_isIPv6 |
|
544
|
0 |
0 |
if $previousNMoctet != 255 and $octet != 0 |
|
546
|
0 |
0 |
$octet == 0 ? : |
|
|
0 |
0 |
$octet == 128 ? : |
|
|
0 |
0 |
$octet == 192 ? : |
|
|
0 |
0 |
$octet == 224 ? : |
|
|
0 |
0 |
$octet == 240 ? : |
|
|
0 |
0 |
$octet == 248 ? : |
|
|
0 |
0 |
$octet == 252 ? : |
|
|
0 |
0 |
$octet == 254 ? : |
|
|
0 |
0 |
$octet == 255 ? : |
|
576
|
0 |
0 |
if ($r[$i] =~ m[/]) |
|
582
|
0 |
0 |
unless $r[$i] =~ /(.*)-(.*)/ |
|
594
|
0 |
0 |
if ($isipv6_1 or $isipv6_2) |
|
596
|
0 |
0 |
unless $isipv6_1 and $isipv6_2 |
|
603
|
0 |
0 |
unless $#a == $#b |
|
612
|
0 |
0 |
if $isipv6_1 |
|
617
|
0 |
0 |
unless 1 == @r and 1 == @c and not wantarray |
|
631
|
0 |
0 |
if $#a < 0 |
|
633
|
0 |
0 |
unless $a >= 0 and $a <= 255 and $a =~ /^[0-9]+$/ |
|
634
|
0 |
0 |
unless $b >= 0 and $b <= 255 and $b =~ /^[0-9]+$/ and $b >= $a |
|
638
|
0 |
0 |
if ($a == $b) |
|
657
|
0 |
0 |
unless $_ == 0 |
|
658
|
0 |
0 |
unless $_ == 255 |
|
660
|
0 |
0 |
unless ($start0) |
|
681
|
0 |
0 |
unless ($end255) |
|
702
|
0 |
0 |
if ($a <= $b) |
|
734
|
0 |
0 |
unless $a >= 0 and $a <= 255 and $a =~ /^[0-9]+$/ |
|
735
|
0 |
0 |
unless $b >= 0 and $b <= 255 and $b =~ /^[0-9]+$/ and $b >= $a |
|
748
|
0 |
0 |
if $i >= 8 |
|
778
|
0 |
3 |
unless $a >= 0 and $a <= 255 and $a =~ /^[0-9]+$/ |
|
779
|
0 |
3 |
unless $b >= 0 and $b <= 8 and $b =~ /^[0-9]+$/ |
|
801
|
0 |
0 |
if ($isipv6_1 or $isipv6_2) |
|
803
|
0 |
0 |
unless $isipv6_1 and $isipv6_2 |
|
810
|
0 |
0 |
unless $#a == $#b |
|
818
|
0 |
0 |
if $#a < 0 |
|
862
|
0 |
3 |
unless $cidr =~ m[(.*)/(.*)] |
|
872
|
0 |
3 |
unless $pfix >= 0 and $pfix <= ($#ips + 1) * 8 and $pfix =~ /^[0-9]+$/ |
|
879
|
3 |
17 |
if $pfix - $i * 8 < 8 |
|
886
|
1 |
2 |
if ($#ips < 0 or $bitsleft == 0) |
|
888
|
0 |
1 |
if ($pfix == 0 and $bitsleft == 0) { } |
|
|
0 |
1 |
elsif ($isipv6) { } |
|
894
|
0 |
0 |
if ($isipv6) { } |
|
923
|
4 |
4 |
if ($isipv6) { } |
|
944
|
0 |
4 |
if ($#{$octets;} % 2 == 0) |
|
960
|
24 |
4 |
if $s ne '' |
|
990
|
0 |
0 |
unless $ip =~ m[[-/]] |
|
1000
|
0 |
0 |
unless /(.*)-(.*)/ |
|
1012
|
0 |
0 |
if _ipcmp($lo, $hi) > 0 |
|
1014
|
0 |
0 |
if _ipcmp($b[$i], $lo) < 0 |
|
1015
|
0 |
0 |
if _ipcmp($hi, $a[$i]) < 0 |
|
1017
|
0 |
0 |
if (_ipcmp($a[$i], $lo) <= 0 and _ipcmp($hi, $b[$i]) <= 0) |
|
1023
|
0 |
0 |
if (_ipcmp($a[$i], $lo) <= 0) |
|
1029
|
0 |
0 |
if (_ipcmp($hi, $b[$i]) <= 0) |
|
1039
|
0 |
0 |
unless (not defined $lo && defined $hi or _ipcmp($lo, $hi) > 0) |
|
1080
|
0 |
0 |
if (_ipcmp(_add1($l), $m) == 0) |
|
1105
|
0 |
0 |
if ++$ip[$i] < 256 |
|
1110
|
0 |
0 |
if $i < 0 |
|
1113
|
0 |
0 |
if $isipv6 |
|
1131
|
0 |
0 |
if --$ip[$i] >= 0 |
|
1136
|
0 |
0 |
if $i < 0 |
|
1139
|
0 |
0 |
if $isipv6 |
|
1158
|
0 |
0 |
unless $ip =~ m[[-/]] |
|
1168
|
0 |
0 |
unless /(.*)-(.*)/ |
|
1180
|
0 |
0 |
if _ipcmp($b[$i], $lo) < 0 |
|
1181
|
0 |
0 |
if _ipcmp($hi, $a[$i]) < 0 |
|
1217
|
8 |
4 |
if $v =~ m[(.*)/(.*)] |
|
1219
|
8 |
4 |
if (defined $suffix) |
|
1221
|
0 |
8 |
unless $suffix =~ /^\d+$/ and $suffix eq '0' || $suffix =~ /^[123456789]/ |
|
1225
|
3 |
6 |
if ($v =~ /^([0-9\.]+)$/ or $v =~ /^::ffff:([0-9\.]+)$/ or $v =~ /^:([0-9\.]+)$/) |
|
1230
|
0 |
6 |
if $n =~ /^\./ or $n =~ /\.$/ or $n =~ /\.\./ |
|
1241
|
0 |
6 |
if $#o != 3 |
|
1245
|
0 |
24 |
if /^0./ |
|
1246
|
0 |
24 |
if $_ < 0 or $_ > 255 |
|
1249
|
3 |
3 |
if ($v =~ /^::ffff/) { } |
|
1251
|
1 |
2 |
unless defined $suffix |
|
1253
|
0 |
3 |
if $suffix < 96 |
|
1259
|
1 |
2 |
unless defined $suffix |
|
1264
|
4 |
82 |
if $_ eq "$n/$suffix" |
|
1269
|
0 |
6 |
unless $v =~ /^[0-9a-f:]+$/ |
|
1271
|
0 |
6 |
if $v =~ /:::/ or $v =~ /^:[^:]/ or $v =~ /[^:]:$/ or $v =~ /::.*::/ |
|
1276
|
0 |
6 |
if $#o >= 8 or $#o < 7 and not $v =~ /::/ |
|
1280
|
0 |
19 |
if length $_ > 4 |
|
1283
|
2 |
4 |
unless defined $suffix |
|
1289
|
5 |
317 |
if $_ eq "$v/$suffix" |
|
1298
|
1 |
18 |
if $a eq '' |