Branch Coverage

blib/lib/Net/Interface.pm
Criterion Covered Total %
branch 36 72 50.0


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