| line |
true |
false |
branch |
|
124
|
5 |
19 |
if (@_ == 2) { } |
|
|
19 |
0 |
elsif (@_ == 1) { } |
|
143
|
2 |
500 |
if ($ip =~ /:::/) |
|
150
|
36 |
854 |
if (ref $p eq 'CODE') |
|
153
|
464 |
390 |
if ($ip =~ /$p/) |
|
301
|
31 |
458 |
if (ref $parser ne 'CODE') |
|
323
|
1497 |
6062 |
if ref $pattern eq 'CODE' |
|
324
|
581 |
5481 |
if ($ip =~ /$pattern/) |
|
339
|
4 |
15 |
unless (ipv6_chkip($ip)) |
|
343
|
3 |
12 |
unless (defined $pfx) |
|
349
|
7 |
5 |
if ($pfx =~ /^[0-9]+$/) { } |
|
350
|
2 |
5 |
if ($pfx > 128) |
|
358
|
2 |
3 |
if (wantarray) |
|
372
|
6 |
4 |
if ($@) |
|
383
|
0 |
26 |
if (ref $self ne 'Net::IPv6Addr') |
|
394
|
212 |
214 |
if (ref $self ne 'Net::IPv6Addr') |
|
400
|
89 |
17 |
if ($expanded =~ s/:::::::/_/ or $expanded =~ s/::::::/_/ or $expanded =~ s/:::::/_/ or $expanded =~ s/::::/_/ or $expanded =~ s/:::/_/ or $expanded =~ s/::/_/) |
|
445
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
458
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
473
|
0 |
1 |
if (ref $self ne 'Net::IPv6Addr') |
|
490
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
508
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
519
|
0 |
114 |
if (ref $self ne 'Net::IPv6Addr') |
|
530
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
544
|
1 |
14 |
if (not $netsize =~ /^[0-9]+$/ or $netsize > 128) |
|
554
|
0 |
10 |
if (ref $self ne 'Net::IPv6Addr') |
|
555
|
0 |
0 |
if ($self =~ m[(.+)/(.+)]) |
|
562
|
0 |
10 |
unless (defined $netsize) |
|
569
|
10 |
0 |
if ($i < 8) |
|
571
|
3 |
7 |
if ($j) |
|
591
|
0 |
5 |
if (ref $self ne 'Net::IPv6Addr') |
|
595
|
0 |
5 |
unless (defined $netsize) |
|
600
|
4 |
0 |
unless (ref $net) |
|
606
|
0 |
4 |
if ($i > $#s) |
|
610
|
1 |
16 |
if ($s[$_] != $n[$_]) |
|
623
|
0 |
104 |
unless (ref $big) |
|
626
|
0 |
104 |
if (ref $big ne 'Math::BigInt') |
|
632
|
66 |
38 |
if (length $hex < 32) |