Branch Coverage

blib/lib/Net/IPAM/Util.pm
Criterion Covered Total %
branch 32 34 94.1


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