| line |
true |
false |
branch |
|
171
|
0 |
0 |
unless $_[0] |
|
172
|
0 |
0 |
if $_[0] =~ /\D/ |
|
173
|
0 |
0 |
if $_[0] < 16 |
|
174
|
0 |
0 |
if $_[0] > 24 |
|
358
|
1 |
33 |
if (grep {$_ eq ':old_storable';} @_) { } |
|
380
|
0 |
34 |
if (grep {$_ eq ':aton';} @_) |
|
385
|
1 |
33 |
if (grep {$_ eq ':old_nth';} @_) |
|
390
|
0 |
34 |
if (grep {$_ eq ':nofqdn';} @_) |
|
395
|
1 |
33 |
if (grep {$_ eq ':lower';} @_) |
|
402
|
0 |
34 |
if (grep {$_ eq ':upper';} @_) |
|
409
|
1 |
33 |
if (grep {$_ eq ':rfc3021';} @_) |
|
420
|
2 |
37 |
ref $_[0] eq 'ARRAY' ? : |
|
431
|
5 |
1 |
unless ((¬contiguous($_[0]{'mask'}))[1] == 128 or $NetAddr::IP::rfc3021 and $_[0]->masklen == 31) |
|
456
|
10 |
0 |
$rv ? : |
|
462
|
0 |
0 |
$rv ? : |
|
466
|
2 |
3 |
if (not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})) { } |
|
854
|
10 |
72 |
unless my(@candidates) = $ip =~ /((?:^|:)0(?::0)+(?::|$))/g |
|
862
|
96 |
96 |
if (not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})) |
|
864
|
0 |
0 |
if $o[1] == 0 and $o[2] == 0 |
|
881
|
10 |
94 |
$_[0]{'isv6'} ? : |
|
1026
|
13 |
52 |
unless (@bits) |
|
1027
|
2 |
65 |
$isV6 ? : |
|
1036
|
13 |
289612 |
if (ref $_) { } |
|
|
4 |
289621 |
elsif ($_ =~ /^d+$/) { } |
|
|
289625 |
0 |
elsif ($_ = 'NetAddr::IP'->new($addr, $_, $isV6)) { } |
|
1037
|
42 |
10 |
$_->{'isv6'} ? : |
|
1039
|
10 |
42 |
if $x |
|
1040
|
11 |
28 |
$isV6 ? : |
|
1052
|
0 |
0 |
if $dif < 0 |
|
1053
|
0 |
0 |
unless $dif or $#bits |
|
1054
|
0 |
0 |
if $dif > $denom |
|
1055
|
0 |
0 |
if exists $nets{$_} |
|
1069
|
4 |
31 |
$isV6 ? : |
|
1080
|
8 |
50 |
$idx < $#bits ? : |
|
1082
|
2 |
39 |
unless (($denom -= $nets{$nexmask}) < 0) |
|
1083
|
13 |
45 |
if push(@plan, $nexmask) > $_netlimit |
|
1090
|
29 |
27432 |
if $nexmask > $_ |
|
1092
|
1 |
21 |
if $denom - $nets{$_} < 0 |
|
1093
|
5 |
45 |
if push(@plan, $_) > $_netlimit |
|
1097
|
0 |
20 |
if $denom |
|
1099
|
2 |
4623 |
if $idx < @bits |
|
1111
|
8113 |
407 |
unless defined $plan |
|
1114
|
3 |
18 |
unless $masks |
|
1117
|
4 |
1032 |
$rev ? : |
|
1125
|
0 |
0 |
unless @plan |
|
1201
|
54240 |
56 |
if (ref $_[0] eq 'NetAddr::IP' and ref $_[1] eq 'ARRAY') { } |
|
1212
|
54294 |
2 |
unless @$unr |
|
1225
|
0 |
69 |
if ($r[$i]->contains($r[$i + 1])) { } |
|
|
65 |
4 |
elsif ((¬contiguous($r[$i]{'mask'}))[1] == (¬contiguous($r[$i + 1]{'mask'}))[1]) { } |
|
1231
|
54296 |
54223 |
if (&hasbits($r[$i]{'addr'} ^ $r[$i + 1]{'addr'})) { } |
|
1234
|
47 |
108447 |
if ($upnet->contains($r[$i + 1])) |
|
1277
|
74 |
22 |
if (ref $masklen and ref $masklen eq 'NetAddr::IP') |
|
1285
|
10 |
12 |
unless @_ |
|
1288
|
12 |
0 |
unless defined $type |
|
1292
|
0 |
0 |
unless $ip->{'isv6'} == $type |
|
1295
|
3904 |
192 |
if ($ip->masklen > $masklen) |
|
1307
|
776 |
112 |
if grep {$_->contains($c);} @ret |
|
1316
|
888 |
136 |
if grep {$_->contains($c);} @ret |
|
1423
|
0 |
80 |
unless isIPv4($_[0]{'addr'}) |
|
1463
|
80 |
944 |
if ($mlen > 0) { } |