| line |
true |
false |
branch |
|
76
|
0 |
30 |
if (not $ip =~ /$ipv4/) |
|
162
|
5 |
16 |
if (@_ == 2) { } |
|
|
16 |
0 |
elsif (@_ == 1) { } |
|
181
|
2 |
495 |
if ($ip =~ /:::/) |
|
188
|
33 |
863 |
if (ref $p eq 'CODE') |
|
191
|
462 |
401 |
if ($ip =~ /$p/) |
|
308
|
0 |
0 |
unless ($base85ok) |
|
343
|
29 |
457 |
if (ref $parser ne 'CODE') |
|
365
|
1356 |
6233 |
if ref $pattern eq 'CODE' |
|
366
|
578 |
5655 |
if ($ip =~ /$pattern/) |
|
381
|
3 |
13 |
unless (ipv6_chkip($ip)) |
|
385
|
3 |
10 |
unless (defined $pfx) |
|
391
|
6 |
4 |
if ($pfx =~ /^[0-9]+$/) { } |
|
392
|
2 |
4 |
if ($pfx > 128) |
|
400
|
2 |
2 |
if (wantarray) |
|
414
|
4 |
3 |
if ($@) |
|
425
|
0 |
26 |
if (ref $self ne 'Net::IPv6Addr') |
|
436
|
212 |
214 |
if (ref $self ne 'Net::IPv6Addr') |
|
442
|
89 |
17 |
if ($expanded =~ s/:::::::/_/ or $expanded =~ s/::::::/_/ or $expanded =~ s/:::::/_/ or $expanded =~ s/::::/_/ or $expanded =~ s/:::/_/ or $expanded =~ s/::/_/) |
|
487
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
500
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
514
|
0 |
0 |
unless ($base85ok) |
|
519
|
0 |
0 |
if (ref $self ne 'Net::IPv6Addr') |
|
536
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
554
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
565
|
0 |
114 |
if (ref $self ne 'Net::IPv6Addr') |
|
576
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
590
|
1 |
14 |
if (not $netsize =~ /^[0-9]+$/ or $netsize > 128) |
|
600
|
0 |
10 |
if (ref $self ne 'Net::IPv6Addr') |
|
601
|
0 |
0 |
if ($self =~ m[(.+)/(.+)]) |
|
608
|
0 |
10 |
unless (defined $netsize) |
|
615
|
10 |
0 |
if ($i < 8) |
|
617
|
3 |
7 |
if ($j) |
|
637
|
0 |
5 |
if (ref $self ne 'Net::IPv6Addr') |
|
641
|
0 |
5 |
unless (defined $netsize) |
|
646
|
4 |
0 |
unless (ref $net) |
|
652
|
0 |
4 |
if ($i > $#s) |
|
656
|
1 |
16 |
if ($s[$_] != $n[$_]) |
|
669
|
0 |
104 |
unless (ref $big) |
|
672
|
0 |
104 |
if (ref $big ne 'Math::BigInt') |
|
678
|
66 |
38 |
if (length $hex < 32) |