| line |
true |
false |
branch |
|
51
|
62 |
1784 |
if (@params % 2) |
|
53
|
38 |
24 |
unless defined $mask |
|
64
|
410 |
1436 |
if ($net =~ m[^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)/([0-9]+)$]) { } |
|
|
4 |
1432 |
elsif ($net =~ m[^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)[:/]([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$]) { } |
|
|
3 |
1429 |
elsif ($net =~ /^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)[#]([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/) { } |
|
|
5 |
1424 |
elsif ($net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and $mask =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) { } |
|
|
4 |
1420 |
elsif ($net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and $mask =~ /0x[a-f0-9]+/i) { } |
|
|
766 |
654 |
elsif ($net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and not $mask) { } |
|
|
2 |
652 |
elsif ($net =~ /^[0-9]+\.[0-9]+\.[0-9]+$/ and not $mask and $shortnet) { } |
|
|
2 |
650 |
elsif ($net =~ /^[0-9]+\.[0-9]+$/ and not $mask and $shortnet) { } |
|
|
2 |
648 |
elsif ($net =~ /^[0-9]+$/ and not $mask and $shortnet) { } |
|
|
2 |
646 |
elsif ($net =~ m[^([0-9]+\.[0-9]+\.[0-9]+)/([0-9]+)$] and $shortnet) { } |
|
|
2 |
644 |
elsif ($net =~ m[^([0-9]+\.[0-9]+)/([0-9]+)$] and $shortnet) { } |
|
|
2 |
642 |
elsif ($net =~ m[^([0-9]+)/([0-9]+)$] and $shortnet) { } |
|
|
5 |
637 |
elsif ($net eq 'default' or $net eq 'any') { } |
|
|
8 |
629 |
elsif ($net =~ /^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\s*-\s*([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)$/) { } |
|
|
323 |
306 |
elsif ($net =~ m[^([0-9a-f]*:[0-9a-f]*:[0-9a-f:]*)/([0-9]+)$]) { } |
|
|
272 |
34 |
elsif ($net =~ /^([0-9a-f]*:[0-9a-f]*:[0-9a-f:]*)$/) { } |
|
|
4 |
30 |
elsif ($net eq 'default6' or $net eq 'any6') { } |
|
69
|
3 |
1 |
if (exists $Net::Netmask::quadmask2bits{$quadmask}) { } |
|
77
|
2 |
1 |
if (exists $Net::Netmask::quadhostmask2bits{$hostmask}) { } |
|
86
|
4 |
1 |
if (exists $Net::Netmask::quadmask2bits{$mask}) { } |
|
96
|
3 |
1 |
if (exists $imask2bits{$imask}) { } |
|
122
|
2 |
6 |
unless defined $ibase and defined $end |
|
126
|
2 |
4 |
if not defined $Net::Netmask::error and !defined($bits) || $ibase & ~$imask[$bits] |
|
132
|
0 |
323 |
if ($mask ne '') |
|
136
|
0 |
272 |
if ($mask ne '') |
|
139
|
0 |
4 |
if ($mask ne '') |
|
143
|
15 |
15 |
if $mask |
|
146
|
0 |
38 |
if $Net::Netmask::error and $Net::Netmask::debug |
|
148
|
49 |
1797 |
unless $bits |
|
149
|
1 |
1845 |
if ($proto eq 'IPv4' and $bits > 32) { } |
|
|
0 |
3091 |
elsif ($proto eq 'IPv6' and $bits > 128) { } |
|
150
|
1 |
0 |
unless $Net::Netmask::error |
|
154
|
0 |
0 |
unless $Net::Netmask::error |
|
159
|
1839 |
7 |
unless defined $ibase |
|
160
|
12 |
1834 |
unless (defined $ibase or defined $Net::Netmask::error) |
|
162
|
2 |
10 |
if $mask |
|
167
|
51 |
1795 |
$Net::Netmask::error ? : |
|
178
|
43 |
17481 |
unless (defined $ibase) |
|
180
|
3655 |
13826 |
if ($proto eq 'IPv4') { } |
|
190
|
51 |
51 |
if $Net::Netmask::error |
|
195
|
2 |
0 |
@_ ? : |
|
204
|
392 |
308 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
214
|
1 |
2 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
246
|
15 |
6 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
256
|
1 |
3 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
266
|
265 |
263 |
$this->{'PROTOCOL'} eq 'IPv4' ? : |
|
270
|
527 |
1 |
unless $bitstep |
|
273
|
6 |
522 |
if $index < 0 |
|
274
|
2 |
526 |
if $index < 0 |
|
275
|
2 |
524 |
if $index >= $size |
|
286
|
2 |
1 |
$proto eq 'IPv4' ? : |
|
|
3 |
2 |
unless $bitstep |
|
292
|
3 |
2 |
if ($proto eq 'IPv4') { } |
|
301
|
1 |
1 |
if ($size / $increment > 1000000000) |
|
329
|
4 |
4 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
341
|
3 |
1 |
if $blocks == 0 |
|
362
|
1 |
3 |
$remainder ? : |
|
365
|
1 |
3 |
unless ($len) |
|
371
|
2 |
1 |
unless ($remainder) |
|
390
|
5 |
6 |
if @_ |
|
397
|
32 |
1318 |
unless @bytes == 4 |
|
398
|
14 |
1304 |
if grep {not /^(([0-9])|([1-9][0-9]*))$/ && $_ < 256;} @bytes |
|
411
|
1561 |
700 |
if ($_[1] eq 'IPv4') { } |
|
|
700 |
0 |
elsif ($_[1] eq 'IPv6') { } |
|
414
|
691 |
9 |
ref $_[0] ne '' ? : |
|
425
|
1334 |
632 |
if ($_[1] eq 'IPv4') { } |
|
|
632 |
0 |
elsif ($_[1] eq 'IPv6') { } |
|
449
|
700 |
907 |
unless ($addr =~ /:/) |
|
450
|
36 |
664 |
if (length $addr < 32) |
|
458
|
2 |
1605 |
if ($addr =~ /^[0-9a-f:]+[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/i) |
|
465
|
723 |
884 |
unless (defined $right) |
|
475
|
885 |
722 |
if ($missing) { } |
|
489
|
17 |
958 |
if ($addr =~ s/^0:0:0:0:0:0:0:0$/::/) { } |
|
|
2 |
956 |
elsif ($addr =~ s/(:?^|:)0:0:0:0:0:0:0(:?:|$)/::/) { } |
|
|
11 |
945 |
elsif ($addr =~ s/(:?^|:)0:0:0:0:0:0(:?:|$)/::/) { } |
|
|
285 |
660 |
elsif ($addr =~ s/(:?^|:)0:0:0:0:0(:?:|$)/::/) { } |
|
|
567 |
93 |
elsif ($addr =~ s/(:?^|:)0:0:0:0(:?:|$)/::/) { } |
|
|
39 |
54 |
elsif ($addr =~ s/(:?^|:)0:0:0(:?:|$)/::/) { } |
|
|
29 |
25 |
elsif ($addr =~ s/(:?^|:)0:0(:?:|$)/::/) { } |
|
|
16 |
9 |
elsif ($addr =~ s/(:?^|:)0(:?:|$)/::/) { } |
|
521
|
9 |
35 |
unless $t |
|
524
|
13 |
31 |
if ($this->{'PROTOCOL'} eq 'IPv6') |
|
528
|
40 |
4 |
unless exists $t->{$base} |
|
539
|
0 |
13 |
unless $t |
|
542
|
1 |
12 |
if ($this->{'PROTOCOL'} eq 'IPv6') |
|
550
|
0 |
13 |
unless defined $t->{$base} |
|
555
|
3 |
43 |
if $x |
|
562
|
7 |
47 |
unless $t |
|
564
|
6 |
48 |
$ascii =~ /:/ ? : |
|
567
|
1 |
53 |
unless defined $ip |
|
570
|
6 |
47 |
$proto eq 'IPv6' ? : |
|
573
|
439 |
650 |
if ($proto eq 'IPv6') |
|
576
|
1045 |
44 |
unless exists $t->{$nb} |
|
578
|
3 |
41 |
if $done{$mb}++ |
|
582
|
40 |
268 |
if defined $t->{$nb}[$i] |
|
591
|
0 |
56 |
unless $t |
|
598
|
28 |
28 |
if (ref $ipstr) { } |
|
600
|
25 |
3 |
$proto eq 'IPv4' ? : |
|
604
|
3 |
25 |
$ipstr =~ /:/ ? : |
|
605
|
25 |
3 |
$proto eq 'IPv4' ? : |
|
611
|
1382 |
646 |
$proto eq 'IPv4' ? : |
|
612
|
646 |
1382 |
if ($proto eq 'IPv6') |
|
615
|
1954 |
74 |
unless exists $t->{$nb} |
|
618
|
0 |
74 |
if $i < 0 |
|
619
|
0 |
74 |
if $i > $maxbits |
|
622
|
22 |
151 |
if defined $t->{$nb}[$i] |
|
631
|
0 |
2 |
unless $t |
|
633
|
1 |
1 |
$ipstr =~ /:/ ? : |
|
634
|
1 |
1 |
$proto eq 'IPv4' ? : |
|
641
|
33 |
129 |
$proto eq 'IPv4' ? : |
|
642
|
129 |
33 |
if ($proto eq 'IPv6') |
|
645
|
53 |
109 |
unless exists $t->{$nb} |
|
647
|
106 |
3 |
if $done{$mb}++ |
|
649
|
0 |
3 |
if $i < 0 |
|
650
|
0 |
3 |
if $i > $maxbits |
|
653
|
3 |
106 |
if defined $t->{$nb}[$i] |
|
662
|
0 |
1 |
unless $t |
|
668
|
6 |
13 |
if defined $x |
|
678
|
0 |
0 |
unless $t |
|
694
|
10 |
14 |
if ($ip =~ /:/) { } |
|
695
|
0 |
10 |
if ($proto ne 'IPv6') |
|
697
|
0 |
14 |
if ($proto ne 'IPv4') |
|
703
|
14 |
10 |
if ($proto eq 'IPv4') { } |
|
704
|
8 |
6 |
if ($ia == $this->{'IBASE'}) { } |
|
710
|
6 |
4 |
if ($ia == $this->{'IBASE'}) { } |
|
722
|
78 |
0 |
!defined($this->{'ERROR'}) ? : |
|
727
|
2 |
6 |
unless defined $index |
|
729
|
4 |
4 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
741
|
4 |
4 |
if ($this->{'PROTOCOL'} eq 'IPv4') { } |
|
742
|
0 |
4 |
if $newblock->{'IBASE'} >= 4294967296 |
|
744
|
0 |
4 |
if $newblock->{'IBASE'} >= 'Math::BigInt'->new(2)->bpow(128) |
|
747
|
0 |
8 |
if $newblock->{'IBASE'} < 0 |
|
753
|
0 |
425 |
unless defined $ibase |
|
755
|
0 |
425 |
unless (defined $proto) |
|
759
|
413 |
14152 |
if $ia != $ibase |
|
769
|
2 |
3 |
if ($startip =~ /:/) { } |
|
770
|
2 |
0 |
if ($endip =~ /:/) |
|
772
|
3 |
0 |
unless ($endip =~ /:/) |
|
774
|
0 |
5 |
unless (defined $proto) |
|
779
|
1 |
4 |
if $start > $end |
|
786
|
0 |
39 |
unless (defined $proto) |
|
788
|
30 |
9 |
$proto eq 'IPv4' ? : |
|
794
|
40 |
80 |
if ($proto eq 'IPv4') { } |
|
799
|
33 |
87 |
if $maxsize < $maxdiff |
|
808
|
40 |
80 |
if ($proto eq 'IPv4') { } |
|
825
|
1 |
0 |
if $nm > $max |
|
838
|
15 |
0 |
if (scalar @cidrs) |
|
840
|
0 |
15 |
if (grep {$proto ne $_->{'PROTOCOL'};} @cidrs) |
|
851
|
14 |
11 |
if $nm > $max |
|
863
|
4 |
6 |
unless ref $outer |
|
869
|
10 |
0 |
if (scalar @cidrs) |
|
879
|
6 |
10 |
if ($first < $cidrs[0]{'IBASE'}) |
|
880
|
2 |
4 |
if ($last <= $cidrs[0]{'IBASE'} - 1) |
|
885
|
0 |
14 |
if $cidrs[0]{'IBASE'} > $last |
|
889
|
4 |
4 |
if ($first <= $last) |
|
907
|
13 |
32 |
ref $_[0] ? : |
|
914
|
64 |
2 |
ref $_[0] ? : |
|
915
|
15 |
51 |
if $this->{'IBASE'} > $other->{'IBASE'} |
|
916
|
5 |
46 |
if $this->{'BITS'} > $other->{'BITS'} |
|
917
|
6 |
40 |
if $other->{'IBASE'} > $this->{'IBASE'} + $this->size - 1 |
|
922
|
7793 |
40 |
if ($_[0]{'PROTOCOL'} eq 'IPv4' and $_[1]{'PROTOCOL'} eq 'IPv4') { } |
|
|
36 |
4 |
elsif ($_[0]{'PROTOCOL'} eq 'IPv6' and $_[1]{'PROTOCOL'} eq 'IPv6') { } |
|
936
|
0 |
63 |
unless $Net::Netmask::a->[3] cmp $Net::Netmask::b->[3] or $Net::Netmask::a->[1] <=> $Net::Netmask::b->[1] |
|
953
|
6 |
8 |
unless defined $parts and $parts > 0 |
|
956
|
2 |
6 |
unless $num_ips >= $parts |
|
961
|
2 |
4 |
unless 2 ** $log2 == $parts |