Condition Coverage

blib/lib/NetAddr/IP/Lite.pm
Criterion Covered Total %
condition 47 218 21.5


and 3 conditions

line !l l&&!r l&&r condition
178 0 0 0 $pkg =~ /^$other/o and exists ${$other;}{$func}
253 0 0 3 UNIVERSAL::isa($_[0], 'NetAddr::IP::Lite') and UNIVERSAL::isa($_[1], 'NetAddr::IP::Lite')
258 0 0 0 UNIVERSAL::isa($_[0], 'NetAddr::IP::Lite') and UNIVERSAL::isa($_[1], 'NetAddr::IP::Lite')
388 1 0 23 $const and $const < 2147483648
1 0 23 $const and $const < 2147483648 and $const > -2147483649
732 0 0 0 $in[1] and $in[1] =~ /^(.+)\s+(.+)$/
741 0 0 0 $in[1] and $in[1] =~ /^(.+)\s+(.+)$/
765 0 7367 0 defined $ip and $ip eq ''
768 7367 0 0 ref $ip and ref $ip eq 'Math::BigInt'
834 7358 0 0 not $ip =~ /\D/ and length $ip > 3 || $ip > 255
0 0 0 not $ip =~ /\D/ and length $ip > 3 || $ip > 255 and $try = bcd2bin($ip)
0 0 0 not $ip =~ /\D/ and length $ip > 3 || $ip > 255 and $try = bcd2bin($ip) and not isIPv4($try)
7004 3 351 index($ip, ':') >= 0 and $try = ipv6_aton($ip)
843 7358 0 0 ref $mask and ref $mask eq 'Math::BigInt'
851 0 0 6364 length $mask < 4 && $mask < 129
852 0 0 6195 $isCIDR and $mask < 33
855 169 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 }
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0 and $dq2 < 256
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0 and $dq2 < 256 and $dq3 >= 0
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0 and $dq2 < 256 and $dq3 >= 0 and $dq3 < 256
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0 and $dq2 < 256 and $dq3 >= 0 and $dq3 < 256 and $dq4 >= 0
0 0 0 $ip =~ /^(\d+)(?:|\.(\d+)(?:|\.(\d+)(?:|\.(\d+))))$/ and do { $dq1 = $1; $dq2 = $2 || 0; $dq3 = $3 || 0; $dq4 = $4 || 0; 1 } and $dq1 >= 0 and $dq1 < 256 and $dq2 >= 0 and $dq2 < 256 and $dq3 >= 0 and $dq3 < 256 and $dq4 >= 0 and $dq4 < 256
910 182 0 799 index($ip, ':') < 0 and not $isV6
922 11 0 0 $ip =~ /^(\d+)$/ and $hasmask
11 0 0 $ip =~ /^(\d+)$/ and $hasmask and $1 >= 0
0 0 0 $ip =~ /^(\d+)$/ and $hasmask and $1 >= 0 and $1 < 256
11 0 0 $ip =~ /^0[xb]\d+$/ and $hasmask
11 0 0 $ip =~ /^0[xb]\d+$/ and $hasmask and ($tmp = eval "$ip") || 1
0 0 0 $ip =~ /^0[xb]\d+$/ and $hasmask and ($tmp = eval "$ip") || 1 and $tmp >= 0
0 0 0 $ip =~ /^0[xb]\d+$/ and $hasmask and ($tmp = eval "$ip") || 1 and $tmp >= 0 and $tmp < 256
10 0 0 $ip =~ /^(\d+)\.(\d+)-(\d+)\.?$/ and $2 <= $3
10 0 0 $ip =~ /^(\d+)\.(\d+)-(\d+)\.?$/ and $2 <= $3 and $3 < 256
0 0 4 $1 <= $2 and $2 < 256
6 4 0 $ip =~ /^(\d+)-(\d+)\.?$/ and ($1 <= $2 and $2 < 256)
4 0 1 $ip =~ /^(\d+)\.(\d+)\.(\d+)-(\d+)\.?$/ and $3 <= $4
4 0 1 $ip =~ /^(\d+)\.(\d+)\.(\d+)-(\d+)\.?$/ and $3 <= $4 and $4 < 256
3 0 0 $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/ and $4 <= $5
3 0 0 $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)-(\d+)$/ and $4 <= $5 and $5 < 256
0 0 3 not $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/ and $tmp = gethostbyname fillIPv4($ip)
0 0 3 not $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/ and $tmp = gethostbyname fillIPv4($ip) and $tmp ne $_v4zero
0 0 3 not $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/ and $tmp = gethostbyname fillIPv4($ip) and $tmp ne $_v4zero and $tmp ne $_zero
0 0 0 not $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/ and havegethostbyname2()
0 0 0 not $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/ and havegethostbyname2() and $tmp = naip_gethostbyname($ip)
0 0 0 $NetAddr::IP::Lite::Accept_Binary_IP and not $hasmask
1049 0 0 0 grep(($ip eq $_), ('default', 'any', 'loopback', 'unspecified')) and defined($ip = $fip6{$ip})
1214 0 0 0 not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})
1223 0 0 0 !$_[0]{'isv6'} && isIPv4($_[0]{'addr'})
1301 0 0 0 not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})
1321 0 0 0 not $_[0]{'isv6'} and isIPv4($_[0]{'addr'})
1360 65166 174333 54288 sub128($netme, $neto) && sub128($brdo, $brdme)
1389 0 0 0 sub128 $netme, $ip_10n and sub128 $ip_10b, $brdme
1390 0 0 0 sub128 $netme, $ip_192n and sub128 $ip_192b, $brdme
1391 0 0 0 sub128($netme, $ip_172n) && sub128($ip_172b, $brdme)
1482 0 0 0 $slash31 and $count != 1
1486 0 0 0 $count and $count != 1

or 2 conditions

line l !l condition
494 150298 0 ref $proto || die('reference required')
706 0 0 ref $proto || $proto || 'NetAddr::IP::Lite'
761 7367 0 ref $proto || $proto || 'NetAddr::IP::Lite'
857 0 0 $2 || 0
858 0 0 $3 || 0
859 0 0 $4 || 0
922 0 0 ($tmp = eval "$ip") || 1

or 3 conditions

line l !l&&r !l&&!r condition
781 5839 0 990 $ip =~ m[^([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)$] or $ip =~ m(^[\[]{1}([a-z0-9.:-]+)(?:/|\s+)([a-z0-9.:-]+)[\]]{1}$)
804 0 0 538 $_[0] =~ /ipv6/i or $isV6
834 0 0 0 length $ip > 3 || $ip > 255
0 0 7358 not $ip =~ /\D/ and length $ip > 3 || $ip > 255 and $try = bcd2bin($ip) and not isIPv4($try) or index($ip, ':') >= 0 and $try = ipv6_aton($ip)
922 0 0 3 $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/
0 0 0 $NetAddr::IP::Lite::NoFQDN || $ip =~ /[^a-zA-Z0-9\._-]/
1483 0 0 0 $count < 1 or $count > $self->num
1489 0 0 0 $count < 1 or $count > $self->num
1533 0 0 2304 $net[0] or $net[1]
0 0 2304 $net[0] or $net[1] or $net[2]