Condition Coverage

blib/lib/CTK/Util.pm
Criterion Covered Total %
condition 15 312 4.8


and 3 conditions

line !l l&&!r l&&r condition
1578 0 0 0 $arg % 100 == 0 && $arg % 400 != 0
0 0 0 $arg % 4 == 0 and not $arg % 100 == 0 && $arg % 400 != 0
1616 0 0 0 $g && $g =~ /^[\-+]?[1-9]$/
1619 0 0 0 $g && $z =~ /GMT|UTC/
1716 5 0 0 $arr && ref $arr eq 'ARRAY'
1855 0 0 0 $src and -e $src
1878 0 0 0 defined $chmod and -e $dir
1921 0 0 0 $mask and ref $mask eq "Regexp"
2009 0 0 0 $smtpargs && ref $smtpargs eq 'HASH'
2010 0 0 0 $sendmail and -e $sendmail
2043 0 0 0 $ftpconnect and ref $ftpconnect eq "HASH"
0 0 0 $ftpconnect and ref $ftpconnect eq "HASH" and $ftpconnect->{'ftphost'}
2052 0 0 0 $ftpconnect && $ftpconnect->{'ftpattr'}
2059 0 0 0 $ftpdir and not $ftp->cwd($ftpdir)
2122 0 0 0 $rfile && ref $rfile eq 'ARRAY'
2124 0 0 0 $mask and ref $mask eq "Regexp"
2140 0 0 0 $icmd and ref $icmd eq "ARRAY"
2150 0 0 0 defined $bm and $bm
0 0 0 defined $bm and $bm and $bm =~ /^\d+$/
2151 0 0 0 defined $bm and $bm =~ /\:/
2156 0 0 0 defined $bm and $bm
0 0 0 defined $bm and $bm and $bm =~ /^\d+$/
2157 0 0 0 defined $bm and $bm =~ /\:/
2163 0 0 0 defined $bm and $bm
0 0 0 defined $bm and $bm and $bm =~ /^\d+$/
2164 0 0 0 defined $bm and $bm =~ /\:/
2169 0 0 0 $err and ref $err eq "SCALAR"
2205 0 0 0 -e $file and -x _
2282 0 0 5 $schema and ref $schema eq "ARRAY"
2348 0 0 18 @_ and $_[0]
0 0 18 @_ and $_[0] and $_[0] eq "CTK::Util"
2357 0 0 40 @_ and $_[0]
0 0 40 @_ and $_[0] and $_[0] eq "CTK::Util"
2361 0 0 0 @_ and $_[0]
0 0 0 @_ and $_[0] and $_[0] eq "CTK::Util"
2364 0 0 0 $cos && lc $os eq lc $cos && Perl::OSType::os_type($os)

or 2 conditions

line l !l condition
1361 0 5 shift() || 'Windows-1251'
1369 0 0 shift() || 'Windows-1251'
1438 0 0 shift() // (return "")
1445 0 0 shift() // (return 0)
1468 0 0 shift() // ""
1469 0 0 shift() || {}
1479 0 0 shift() // ""
1480 0 0 shift() // ""
1490 0 0 shift() || 0
1491 0 0 shift() || '`'
1496 0 0 shift() || 0
1556 0 0 shift() || (return 0)
1563 0 0 shift() || (return 0)
1565 0 0 $6 || 0
0 0 $5 || 0
0 0 $4 || 0
0 0 $1 || 1
1577 0 0 shift() || 1
1613 0 0 shift() || ''
1615 0 0 shift() || 0
1616 0 0 $g || ''
1620 0 0 $dt[0] || 0
1623 0 0 $dt[1] || 0
1626 0 0 $dt[2] || 0
1629 0 0 $dt[3] || 0
1632 0 0 $dt[4] || 0
1635 0 0 $dt[5] || 0
1641 0 0 $dt[6] or 0
1642 0 0 $dt[6] or 0
1643 0 0 $dt[4] or 0
1644 0 0 $dt[4] or 0
1645 0 0 $dt[4] or 0
1646 0 0 $dt[4] or 0
1672 0 0 shift() // ""
1673 0 0 shift() || 0
1702 0 0 shift() || (return 0)
1711 5 0 shift() || (return '')
1733 3 20 shift() || (return 0)
1737 3 1 shift() || (return 1)
1746 6 0 shift() // (return "")
1762 6 0 shift() // (return 0)
1763 6 0 shift() // ""
1784 0 0 shift() // (return "")
1803 0 0 shift() // (return 0)
1804 0 0 shift() // ""
1836 0 0 shift() // ""
1851 0 0 shift() // ""
1852 0 0 shift() // ""
1866 0 0 shift() // (return 0)
1871 0 0 $k // ""
1887 0 0 (shift() // cwd()) // "."
0 0 ((shift() // cwd()) // ".") // "."
1888 0 0 shift() // ""
1898 0 0 (shift() // cwd()) // "."
0 0 ((shift() // cwd()) // ".") // "."
1899 0 0 shift() // ""
1908 0 0 shift() // "."
0 0 (shift() // ".") // "."
1909 0 0 shift() // ""
1960 0 0 $to //= ""
1961 0 0 $cc //= ""
1962 0 0 $from //= ""
1963 0 0 $subject //= ""
1964 0 0 $message //= ""
1965 0 0 $type //= "text/plain"
1966 0 0 $sendmail //= ""
1967 0 0 $charset //= "utf-8"
1968 0 0 $smtp //= ""
1969 0 0 $smtpuser //= ""
1970 0 0 $smtppass //= ""
2038 0 0 shift() || {}
2039 0 0 shift() || ''
2040 0 0 shift() || ''
2041 0 0 shift() || ''
2091 0 0 shift() || undef
2118 0 0 shift() || {}
2119 0 0 shift() || ''
2133 0 0 shift() || ''

or 3 conditions

line l !l&&r !l&&!r condition
1516 0 0 0 shift() || time
1526 0 0 0 shift() || time
1546 0 0 0 $dd > 31 or $dd <= 0
1547 0 0 0 $mm > 12 or $mm <= 0
1586 0 0 0 shift() || &localtime2date()
1592 0 0 0 shift() || date2dig()
1598 0 0 0 shift() || current_date_time()
1604 0 0 0 shift() || date_time2dig()
1614 0 0 0 shift() || time
1662 0 0 0 shift() || time
1879 0 0 0 -d $dir or -l $dir
1887 0 0 0 shift() // cwd()
1898 0 0 0 shift() // cwd()
2011 0 0 0 $tmp{'AuthUser'} //= $smtpuser
2012 0 0 0 $tmp{'AuthPass'} //= $smtppass
2323 0 0 0 $^O || do { require Config; $Config::Config{'osname'} }