Condition Coverage

blib/lib/Net/Domain.pm
Criterion Covered Total %
condition 8 56 14.2


and 3 conditions

line !l l&&!r l&&r condition
43 0 0 0 defined $host and index($host, ".") > 0
150 0 0 0 defined $host and $host =~ /\./
229 1 0 0 $^O eq "darwin" and $host =~ /\.local$/
240 0 0 1 defined $host and defined $domain
0 0 1 defined $host and defined $domain and not $host =~ /\./
0 0 1 defined $host and defined $domain and not $host =~ /\./ and $domain =~ /\./
247 0 0 0 defined $host and $host =~ /^\d+(\.\d+){3}$/

or 2 conditions

line l !l condition
37 0 0 $ENV{'COMPUTERNAME'} || 'localhost'

or 3 conditions

line l !l&&r !l&&!r condition
72 0 0 1 eval { do { package main; require "syscall.ph"; defined &main::SYS_gethostname } } or eval { do { package main; require "sys/syscall.ph"; defined &main::SYS_gethostname } }
102 0 1 0 eval { do { my $tmp = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; $host = syscall(&main::SYS_gethostname, $tmp, 256) == 0 ? $tmp : undef if eval { do { package main; require "syscall.ph"; defined &main::SYS_gethostname } } or eval { do { package main; require "sys/syscall.ph"; defined &main::SYS_gethostname } } } } or eval { do { require POSIX; $host = (POSIX::uname())[1] } }
1 0 0 eval { do { my $tmp = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; $host = syscall(&main::SYS_gethostname, $tmp, 256) == 0 ? $tmp : undef if eval { do { package main; require "syscall.ph"; defined &main::SYS_gethostname } } or eval { do { package main; require "sys/syscall.ph"; defined &main::SYS_gethostname } } } } or eval { do { require POSIX; $host = (POSIX::uname())[1] } } or eval { do { chop($host = `(hostname) 2>/dev/null`) } }
1 0 0 eval { do { my $tmp = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; $host = syscall(&main::SYS_gethostname, $tmp, 256) == 0 ? $tmp : undef if eval { do { package main; require "syscall.ph"; defined &main::SYS_gethostname } } or eval { do { package main; require "sys/syscall.ph"; defined &main::SYS_gethostname } } } } or eval { do { require POSIX; $host = (POSIX::uname())[1] } } or eval { do { chop($host = `(hostname) 2>/dev/null`) } } or eval { do { chop($host = `uname -n 2>/dev/null`) } }
0 0 0 eval { do { my $tmp = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; $host = syscall(&main::SYS_gethostname, $tmp, 256) == 0 ? $tmp : undef if eval { do { package main; require "syscall.ph"; defined &main::SYS_gethostname } } or eval { do { package main; require "sys/syscall.ph"; defined &main::SYS_gethostname } } } } or eval { do { require POSIX; $host = (POSIX::uname())[1] } } or eval { do { chop($host = `(hostname) 2>/dev/null`) } } or eval { do { chop($host = `uname -n 2>/dev/null`) } } or eval { do { $host = (split(/[:. ]/, `/com/host`, 6))[0] } }
158 0 0 0 eval { do { package main; require "syscall.ph" } } or eval { do { package main; require "sys/syscall.ph" } }
170 0 0 0 $ENV{'TCPIP$INET_DOMAIN'} || $ENV{'UCX$INET_DOMAIN'}
0 0 0 $dom ||= $ENV{'TCPIP$INET_DOMAIN'} || $ENV{'UCX$INET_DOMAIN'}
173 0 0 0 defined $dom or $^O =~ /^(?:cygwin|MSWin32|android)/
208 0 0 0 $ENV{'LOCALDOMAIN'} || $ENV{'DOMAIN'}
0 0 0 $domain ||= $ENV{'LOCALDOMAIN'} || $ENV{'DOMAIN'}