| line |
true |
false |
branch |
|
125
|
5 |
19 |
if (@_ == 2) { } |
|
|
19 |
0 |
elsif (@_ == 1) { } |
|
147
|
2 |
500 |
if ($ip =~ /:::/) |
|
154
|
36 |
880 |
if (ref $p eq 'CODE') |
|
157
|
464 |
416 |
if ($ip =~ /$p/) |
|
303
|
31 |
458 |
if (ref $parser ne 'CODE') |
|
324
|
3085 |
10928 |
if ref $pattern eq 'CODE' |
|
325
|
581 |
10347 |
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) |
|
371
|
6 |
4 |
if ($@) |
|
381
|
0 |
26 |
if (ref $self ne 'Net::IPv6Addr') |
|
391
|
212 |
214 |
if (ref $self ne 'Net::IPv6Addr') |
|
397
|
89 |
17 |
if ($expanded =~ s/:::::::/_/ or $expanded =~ s/::::::/_/ or $expanded =~ s/:::::/_/ or $expanded =~ s/::::/_/ or $expanded =~ s/:::/_/ or $expanded =~ s/::/_/) |
|
434
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
446
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
460
|
0 |
1 |
if (ref $self ne 'Net::IPv6Addr') |
|
476
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
493
|
0 |
104 |
if (ref $self ne 'Net::IPv6Addr') |
|
503
|
0 |
114 |
if (ref $self ne 'Net::IPv6Addr') |
|
513
|
0 |
6 |
if (ref $self ne 'Net::IPv6Addr') |
|
527
|
1 |
14 |
if (not $netsize =~ /^[0-9]+$/ or $netsize > 128) |
|
536
|
0 |
10 |
if (ref $self ne 'Net::IPv6Addr') |
|
537
|
0 |
0 |
if ($self =~ m[(.+)/(.+)]) |
|
544
|
0 |
10 |
unless (defined $netsize) |
|
551
|
10 |
0 |
if ($i < 8) |
|
553
|
3 |
7 |
if ($j) |
|
572
|
0 |
5 |
if (ref $self ne 'Net::IPv6Addr') |
|
576
|
0 |
5 |
unless (defined $netsize) |
|
581
|
4 |
0 |
unless (ref $net) |
|
587
|
0 |
4 |
if ($i > $#s) |
|
591
|
1 |
16 |
if ($s[$_] != $n[$_]) |
|
602
|
0 |
104 |
unless (ref $big) |
|
605
|
0 |
104 |
if (ref $big ne 'Math::BigInt') |
|
611
|
66 |
38 |
if (length $hex < 32) |