line |
true |
false |
branch |
75
|
0 |
0 |
if $v > $max |
94
|
2 |
11 |
if (grep {$_ eq ':lower';} @_) |
100
|
0 |
13 |
if (grep {$_ eq ':upper';} @_) |
593
|
0 |
0 |
if wantarray |
601
|
0 |
0 |
if wantarray |
609
|
0 |
0 |
if wantarray |
617
|
0 |
0 |
unless $f |
619
|
0 |
0 |
unless ($f) |
620
|
0 |
0 |
if (exists $$if{'args'}{&af_inet}) { } |
627
|
0 |
0 |
if (not exists $$if{'args'}{$fam} or $idx < 0 or $idx > $#{$$if{'args'}{$fam}{'addr'};}) |
629
|
0 |
0 |
if wantarray |
633
|
0 |
0 |
if wantarray |
752
|
0 |
0 |
unless $_ |
753
|
0 |
0 |
if (exists $$if{'args'}{$_}) |
841
|
0 |
0 |
if ($len == 4) { } |
|
0 |
0 |
elsif ($len == 16) { } |
870
|
4 |
0 |
if (not $overange or $_[0] =~ /[^0-9\.]/) |
875
|
0 |
0 |
if $_ > 255 |
901
|
28 |
169 |
unless $ipv6 |
903
|
1 |
168 |
if ($ipv6 =~ /^(.*:)(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) |
904
|
0 |
1 |
if $2 > 255 or $3 > 255 or $4 > 255 or $5 > 255 |
909
|
8 |
155 |
if $ipv6 =~ /[^:0-9a-fA-F]/ or ($c = $ipv6) =~ s/::/x/ and $c =~ /(?:x|:):/ or $ipv6 =~ /[0-9a-fA-F]{5,}/ |
913
|
2 |
153 |
if $c < 7 and not $ipv6 =~ /::/ |
914
|
12 |
141 |
if ($c > 7) |
916
|
4 |
8 |
unless $ipv6 =~ s/^::/:/ or $ipv6 =~ s/::$/:/ |
918
|
8 |
0 |
if --$c > 7 |
923
|
6 |
135 |
if $ipv6 =~ /:$/ |
929
|
0 |
72 |
unless $ipv6 |
931
|
421 |
155 |
if (not $_ =~ /[a-fA-F1-9]/) { } |
|
67 |
88 |
elsif ($_ =~ /^0+(.+)/) { } |
942
|
1 |
71 |
unless (@stuff) |
944
|
0 |
1 |
$ipv6_format ? : |
951
|
78 |
10 |
if ($len > $max) |
956
|
63 |
8 |
if ($max > 3) |
960
|
54 |
17 |
$ipv6_format ? : |
982
|
56 |
69 |
unless $ipv6 |