| 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 |
32 |
if (grep {$_ eq ':old_storable';} @_) { } |
|
380
|
0 |
33 |
if (grep {$_ eq ':aton';} @_) |
|
385
|
1 |
32 |
if (grep {$_ eq ':old_nth';} @_) |
|
390
|
1 |
32 |
if (grep {$_ eq ':lower';} @_) |
|
397
|
0 |
33 |
if (grep {$_ eq ':upper';} @_) |
|
404
|
1 |
32 |
if (grep {$_ eq ':rfc3021';} @_) |
|
415
|
2 |
37 |
ref $_[0] eq 'ARRAY' ? : |
|
426
|
5 |
1 |
unless ((notcontiguous($_[0]{'mask'}))[1] == 128 or $NetAddr::IP::rfc3021 and $_[0]->masklen == 31) |
|
451
|
10 |
0 |
$rv ? : |
|
457
|
0 |
0 |
$rv ? : |
|
461
|
2 |
3 |
if (not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})) { } |
|
844
|
10 |
72 |
unless my(@candidates) = $ip =~ /((?:^|:)0(?::0)+(?::|$))/g |
|
852
|
96 |
96 |
if (not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})) |
|
854
|
0 |
0 |
if $o[1] == 0 and $o[2] == 0 |
|
871
|
10 |
94 |
$_[0]{'isv6'} ? : |
|
1005
|
13 |
52 |
unless (@bits) |
|
1006
|
2 |
65 |
$isV6 ? : |
|
1015
|
13 |
289612 |
if (ref $_) { } |
|
|
4 |
289621 |
elsif ($_ =~ /^d+$/) { } |
|
|
289625 |
0 |
elsif ($_ = 'NetAddr::IP'->new($addr, $_, $isV6)) { } |
|
1016
|
42 |
10 |
$$_{'isv6'} ? : |
|
1018
|
10 |
42 |
if $x |
|
1019
|
11 |
28 |
$isV6 ? : |
|
1031
|
0 |
0 |
if $dif < 0 |
|
1032
|
0 |
0 |
unless $dif or $#bits |
|
1033
|
0 |
0 |
if $dif > $denom |
|
1034
|
0 |
0 |
if exists $nets{$_} |
|
1048
|
4 |
31 |
$isV6 ? : |
|
1059
|
8 |
50 |
$idx < $#bits ? : |
|
1061
|
2 |
39 |
unless (($denom -= $nets{$nexmask}) < 0) |
|
1062
|
13 |
45 |
if push(@plan, $nexmask) > $_netlimit |
|
1069
|
29 |
27432 |
if $nexmask > $_ |
|
1071
|
1 |
21 |
if $denom - $nets{$_} < 0 |
|
1072
|
5 |
45 |
if push(@plan, $_) > $_netlimit |
|
1076
|
0 |
20 |
if $denom |
|
1078
|
2 |
4623 |
if $idx < @bits |
|
1090
|
8113 |
407 |
unless defined $plan |
|
1093
|
3 |
18 |
unless $masks |
|
1096
|
4 |
1032 |
$rev ? : |
|
1104
|
0 |
0 |
unless @plan |
|
1180
|
54240 |
56 |
if (ref $_[0] eq 'NetAddr::IP' and ref $_[1] eq 'ARRAY') { } |
|
1191
|
54294 |
2 |
unless @$unr |
|
1204
|
0 |
69 |
if ($r[$i]->contains($r[$i + 1])) { } |
|
|
65 |
4 |
elsif ((notcontiguous($r[$i]{'mask'}))[1] == (notcontiguous($r[$i + 1]{'mask'}))[1]) { } |
|
1210
|
54296 |
54223 |
if (hasbits($r[$i]{'addr'} ^ $r[$i + 1]{'addr'})) { } |
|
1213
|
47 |
108447 |
if ($upnet->contains($r[$i + 1])) |
|
1256
|
74 |
22 |
if (ref $masklen and ref $masklen eq 'NetAddr::IP') |
|
1264
|
10 |
12 |
unless @_ |
|
1267
|
12 |
0 |
unless defined $type |
|
1271
|
0 |
0 |
unless $$ip{'isv6'} == $type |
|
1274
|
3904 |
192 |
if ($ip->masklen > $masklen) |
|
1286
|
776 |
112 |
if grep {$_->contains($c);} @ret |
|
1295
|
888 |
136 |
if grep {$_->contains($c);} @ret |
|
1402
|
0 |
80 |
unless isIPv4($_[0]{'addr'}) |
|
1442
|
80 |
944 |
if ($mlen > 0) { } |