Condition Coverage

lib/Net/Netmask.pm
Criterion Covered Total %
condition 104 115 90.4


and 3 conditions

line !l l&&!r l&&r condition
64 648 776 5 $net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and $mask =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/
648 772 4 $net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and $mask =~ /0x[a-f0-9]+/i
648 6 766 $net =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ and not $mask
648 2 4 $net =~ /^[0-9]+\.[0-9]+\.[0-9]+$/ and not $mask
650 2 2 $net =~ /^[0-9]+\.[0-9]+\.[0-9]+$/ and not $mask and $shortnet
644 3 5 $net =~ /^[0-9]+\.[0-9]+$/ and not $mask
647 3 2 $net =~ /^[0-9]+\.[0-9]+$/ and not $mask and $shortnet
644 3 3 $net =~ /^[0-9]+$/ and not $mask
647 1 2 $net =~ /^[0-9]+$/ and not $mask and $shortnet
644 2 2 $net =~ m[^([0-9]+\.[0-9]+\.[0-9]+)/([0-9]+)$] and $shortnet
642 2 2 $net =~ m[^([0-9]+\.[0-9]+)/([0-9]+)$] and $shortnet
641 1 2 $net =~ m[^([0-9]+)/([0-9]+)$] and $shortnet
122 1 1 6 defined $ibase and defined $end
126 2 4 2 not defined $Net::Netmask::error and !defined($bits) || $ibase & ~$imask[$bits]
146 1808 38 0 $Net::Netmask::error and $Net::Netmask::debug
149 599 1246 1 $proto eq 'IPv4' and $bits > 32
1246 599 0 $proto eq 'IPv6' and $bits > 128
398 9 6 5257 /^(([0-9])|([1-9][0-9]*))$/ && $_ < 256
823 1 1 1 $cidrs[0] and $cidrs[0]{'IBASE'} <= $max
849 15 9 25 $cidrs[0] and $cidrs[0]{'IBASE'} <= $max
875 0 10 2 $cidrs[0] and $cidrs[0]{'IBASE'} + $cidrs[0]->size < $first
877 8 0 16 @cidrs and $first <= $last
922 37 3 7793 $_[0]{'PROTOCOL'} eq 'IPv4' and $_[1]{'PROTOCOL'} eq 'IPv4'
3 1 36 $_[0]{'PROTOCOL'} eq 'IPv6' and $_[1]{'PROTOCOL'} eq 'IPv6'
953 2 4 8 defined $parts and $parts > 0

or 2 conditions

line l !l condition
124 7 1 $end || 0
7 1 $ibase || 0
159 1808 31 $base || '::'
705 5 3 $i & ~$this->{'IBASE'} || '0 '
711 3 3 $i - $this->{'IBASE'} || '0 '

or 3 conditions

line l !l&&r !l&&!r condition
56 6 21 1819 exists $options{'shortnet'} && $options{'shortnet'} || $SHORTNET_DEFAULT
64 4 1 637 $net eq 'default' or $net eq 'any'
4 0 30 $net eq 'default6' or $net eq 'any6'
126 1 1 4 !defined($bits) || $ibase & ~$imask[$bits]
160 1803 31 12 defined $ibase or defined $Net::Netmask::error
863 4 0 0 'Net::Netmask'->new2($outer) || croak($Net::Netmask::error)
897 0 0 0 $Net::Netmask::a->{'IBASE'} <=> $Net::Netmask::b->{'IBASE'} || $Net::Netmask::a->{'BITS'} <=> $Net::Netmask::b->{'BITS'}
924 7756 15 22 $_[0]{'IBASE'} <=> $_[1]{'IBASE'} || $_[0]{'BITS'} <=> $_[1]{'BITS'}
927 11 12 13 $_[0]{'IBASE'} <=> $_[1]{'IBASE'} || $_[0]{'BITS'} <=> $_[1]{'BITS'}
936 0 63 1 $Net::Netmask::a->[3] cmp $Net::Netmask::b->[3] or $Net::Netmask::a->[1] <=> $Net::Netmask::b->[1]