Branch Coverage

blib/lib/CTK/Util.pm

Criterion	Covered	Total	%
branch	42	356	11.8

line	true	false	branch
1224	0	20	$^O =~ /mswin/i ? :
	0	20	$^O =~ /mswin/i ? :
	0	20	$^O =~ /mswin/i ? :
1364	0	5	unless defined $ss
1372	0	0	unless defined $ss
1382	1	2	unless defined $ss
1389	1	2	unless defined $data_staring
1397	1	2	unless defined $data_staring
1407	0	0	unless defined $data_staring
1418	1	1	if (defined $s)
1425	0	0	unless defined $toencode
1431	0	0	unless defined $todecode
1446	0	0	unless -e $f
1447	0	0	if -d $f
1448	0	0	unless -w $f
1449	0	0	unless -r $f
1450	0	0	if -B $f
1455	0	0	unless (open ORIG, $f)
1456	0	0	unless (open TEMP, ">$temp")
1470	0	0	defined $$fd{uc $1} ? :
1481	0	0	$fin =~ /^(.+)\.([0-9a-zA-Z]+)$/ ? :
1497	0	0	if ($dig =~ /^\s*(\d+)\s*$/)
1504	0	0	unless defined $val
1542	0	0	if ($date =~ /^\s*(\d{1,2})\D+(\d{1,2})\D+(\d{4})\s*$/) { }
1543	0	0	$1 < 10 ? :
1544	0	0	$2 < 10 ? :
1546	0	0	if ($dd > 31 or $dd <= 0)
1547	0	0	if ($mm > 12 or $mm <= 0)
1549	0	0	if ($dd > $aday[$mm - 1])
1557	0	0	if ($dtin =~ /^\s*(\d{1,2})\.+(\d{1,2})\.+(\d{4}).*$/)
1564	0	0	if ($dtin =~ /^\s*(\d{1,2})\.+(\d{1,2})\.+(\d{4})\s+(\d{1,2})\:(\d{1,2})\:(\d{1,2}).*$/)
1565	0	0	$2 ? :
	0	0	$3 ? :
1578	0	0	if ($arg % 4 == 0 and not $arg % 100 == 0 && $arg % 400 != 0) { }
1588	0	0	unless $stat
1594	0	0	unless $stat
1600	0	0	unless $stat
1606	0	0	unless $stat
1616	0	0	$g && $g =~ /^[\-+]?[1-9]$/ ? :
1619	0	0	$g && $z =~ /GMT|UTC/ ? :
1649	0	0	if $g
1650	0	0	if $g
1664	0	0	$diff < 0 ? :
1676	0	0	if $length_s < 3
1677	0	0	if ($length_s < 6) { }
1687	0	0	if (length $S <= $length_s) { }
1712	0	5	unless $l =~ /^\d+$/
1716	0	5	$arr && ref $arr eq 'ARRAY' ? :
1723	0	0	unless @_
1734	3	0	$flag =~ /^(on|y|true|enable|1)/i ? :
1738	2	1	$flag =~ /^(off|n|false|disable|0)/i ? :
1747	0	6	unless length $filename
1750	6	0	if (-e $filename)
1752	6	0	if ($ostat) { }
1753	6	0	unless -z $filename
1764	0	6	unless length $filename
1767	6	0	if ($ostat) { }
1768	0	6	unless flock FILE, 2
1787	0	0	unless length $fn
1789	0	0	if (ref $fn eq 'GLOB') { }
1793	0	0	unless ($ostat)
1798	0	0	if $onutf8
1799	0	0	unless $onutf8
1806	0	0	unless length $fn
1809	0	0	if (ref $fn eq 'GLOB') { }
1812	0	0	unless (open $OUT, ">", $fn)
1816	0	0	unless flock $OUT, 2
1819	0	0	if ($onutf8) { }
1825	0	0	if $flc
1837	0	0	unless length $fn
1841	0	0	unless ($ostat)
1845	0	0	if $ostat
1853	0	0	unless length $src
1854	0	0	unless length $dst
1855	0	0	unless ($src and -e $src)
1859	0	0	unless (utime +(stat $src)[8, 9], $dst)
1870	0	0	if (ref $din eq 'HASH') { }
	0	0	elsif (ref $din eq 'ARRAY') { }
1871	0	0	if length($k // "")
1873	0	0	if defined $_
1874	0	0	if length $din
1877	0	0	unless -e $dir
1878	0	0	if defined $chmod and -e $dir
1879	0	0	unless (-d $dir or -l $dir)
1892	0	0	if not /^\.+$/
1914	0	0	unless (opendir $dh, $dir)
1921	0	0	if ($mask and ref $mask eq 'Regexp') { }
1924	0	0	if length $mask
1942	0	0	if defined $args[0]
1972	0	0	unless ($charset =~ /utf\-?8/i)
1978	0	0	$cc ? :
1991	0	0	if ($att)
1992	0	0	if (ref($att) =~ /HASH/i) { }
	0	0	elsif (ref($att) =~ /ARRAY/i) { }
1996	0	0	if (ref($_) =~ /HASH/i) { }
2009	0	0	$smtpargs && ref $smtpargs eq 'HASH' ? :
2010	0	0	if ($smtp) { }
	0	0	elsif ($sendmail and -e $sendmail) { }
2011	0	0	if length $smtpuser
2012	0	0	if length $smtppass
2014	0	0	if $@
2017	0	0	if $@
2020	0	0	if $@
2022	0	0	$sendstat ? :
2043	0	0	unless ($ftpconnect and ref $ftpconnect eq "HASH" and $ftpconnect->{'ftphost'})
2048	0	0	$ftpconnect ? :
2049	0	0	$ftpconnect ? :
2050	0	0	$ftpconnect ? :
2051	0	0	$ftpconnect ? :
2052	0	0	$ftpconnect && $ftpconnect->{'ftpattr'} ? :
2056	0	0	unless (my $ftp = "Net::FTP"->new($ftphost, %$attr))
2058	0	0	unless ($ftp->login($ftpuser, $ftppassword))
2059	0	0	if ($ftpdir and not $ftp->cwd($ftpdir))
2065	0	0	if ($cmd eq 'connect') { }
	0	0	elsif ($cmd eq 'ls') { }
	0	0	elsif (not $lfile) { }
	0	0	elsif ($cmd eq 'delete') { }
	0	0	elsif ($cmd eq 'get') { }
	0	0	elsif ($cmd eq 'put') { }
2068	0	0	unless my(@out) = $ftp->ls("-1a")
2075	0	0	unless $ftp->delete($lfile)
2079	0	0	unless $ftp->get($rfile, $lfile)
2083	0	0	unless $ftp->put($lfile, $rfile)
2092	0	0	unless ($ftpdata)
2097	0	0	if ($ftpdata->{'voidfile'}) { }
2103	0	0	unless (-e $vfile)
2109	0	0	$rfiles ? :
2110	0	0	unless (grep {$_ eq "void.txt";} @remotefiles)
2122	0	0	$rfile && ref $rfile eq 'ARRAY' ? :
2124	0	0	if ($mask and ref $mask eq 'Regexp') { }
2127	0	0	if $mask
2140	0	0	if ($icmd and ref $icmd eq 'ARRAY') { }
2150	0	0	if defined $bm and $bm and $bm =~ /^\d+$/
2151	0	0	if defined $bm and $bm =~ /\:/
2152	0	0	if defined $in
2156	0	0	if defined $bm and $bm and $bm =~ /^\d+$/
2157	0	0	if defined $bm and $bm =~ /\:/
2163	0	0	if defined $bm and $bm and $bm =~ /^\d+$/
2164	0	0	if defined $bm and $bm =~ /\:/
2169	0	0	if ($err and ref $err eq 'SCALAR') { }
2172	0	0	if $ierr
2181	0	0	unless defined $cs
2182	0	0	if $cs eq ""
2184	0	0	if (isostype("Windows"))
2186	0	0	if ($ENV{'PATHEXT'})
2198	0	0	if -d $file
2199	0	0	if (isostype('Windows')) { }
	0	0	elsif (isostype('Unix')) { }
2200	0	0	if (-e $file)
2201	0	0	$file =~ /\s/ ? :
2202	0	0	if ($wh) { }
2205	0	0	if (-e $file and -x _)
2206	0	0	if ($wh) { }
2209	0	0	if (-e $file)
2210	0	0	if ($wh) { }
2215	0	0	if $wh
2228	18	0	defined $pfx ? :
2232	0	10	if ($pfx eq '/usr') { }
	10	0	elsif ($pfx eq '/usr/local') { }
2241	0	8	$pfx eq '/usr' ? :
2245	0	0	if ($pfx eq '/usr') { }
	0	0	elsif ($pfx eq '/usr/local') { }
2254	0	0	$pfx eq '/usr' ? :
2282	0	5	unless ($schema and ref $schema eq "ARRAY")
2288	0	5	if (ref $first eq 'HASH') { }
	0	5	elsif (ref $first eq 'ARRAY') { }
	1	4	elsif (not defined $first) { }
2302	4	4	ref $s eq 'ARRAY' ? :
2314	7	3	if exists $pos{$key}
2321	0	20	if isostype("Windows")
2322	20	0	if isostype("Unix")
2325	0	0	$OS =~ /VMS/i ? :
2335	0	0	defined $_ ? :
2348	18	0	if @_ and $_[0] and $_[0] eq "CTK::Util"
2350	18	0	if (defined $param)
2357	40	0	if @_ and $_[0] and $_[0] eq "CTK::Util"
2361	0	0	if @_ and $_[0] and $_[0] eq "CTK::Util"
2364	0	0	$cos && lc $os eq lc $cos && Perl::OSType::os_type($os) ? :