| line |
true |
false |
branch |
|
60
|
5 |
9 |
if $i == 0 |
|
101
|
5 |
9 |
if $i == 0 |
|
131
|
8 |
11 |
if $v == 2 |
|
149
|
24 |
48 |
if $v == 2 |
|
155
|
0 |
8 |
if length $_[0] != 4 |
|
177
|
0 |
11 |
if length $n != 16 |
|
188
|
8 |
3 |
unless $ip =~ /^::/ |
|
189
|
9 |
2 |
unless $ip =~ /::$/ |
|
201
|
10 |
14 |
unless $_[0] eq join('.', unpack('C4', $n)) |
|
209
|
2 |
46 |
if $ip =~ /[^a-fA-F0-9:]/ |
|
210
|
4 |
42 |
if $ip =~ /:::/ |
|
213
|
2 |
40 |
if $ip =~ /^:[^:]/ |
|
216
|
2 |
38 |
if $ip =~ /[^:]:$/ |
|
221
|
4 |
34 |
if $col_count > 7 |
|
222
|
6 |
28 |
if $dbl_col_count > 1 |
|
223
|
4 |
24 |
if $dbl_col_count == 0 and $col_count != 7 |
|
234
|
2 |
22 |
if grep {length $_ > 4;} @hextets |