Branch Coverage

blib/lib/DiaColloDB/Utils.pm

Criterion	Covered	Total	%
branch	0	436	0.0

line	true	false	branch
64	0	0	if $flags =~ /^[0-9]+$/
68	0	0	$fwrite ? :
	0	0	$fwrite ? :
	0	0	$fread ? :
72	0	0	if $fwrite and not $fappend
79	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
115	0	0	fctrunc($flags) ? :
	0	0	fcwrite($flags) ? :
	0	0	fctrunc($flags) ? :
	0	0	fcwrite($flags) ? :
	0	0	fcread($flags) ? :
137	0	0	if (ref $file) { }
143	0	0	unless sysopen $sysfh, $file, $flags, $perms
147	0	0	unless open my $fh, "$mode&=", fileno $sysfh
148	0	0	if (fcwrite($flags) and not fctrunc($flags))
150	0	0	unless seek $fh, 0, 2
166	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
167	0	0	ref $_[0] ? :
169	0	0	if $opts{'json'}
175	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
177	0	0	ref $file ? :
178	0	0	unless $fh
182	0	0	unless ref $file
194	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
197	0	0	if $opts{'json'}
203	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
206	0	0	ref $file ? :
207	0	0	unless $fh
209	0	0	unless $fh->print($that->saveJsonString($data, @_))
210	0	0	unless close $fh
	0	0	unless (ref $file)
221	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
224	0	0	@_ == 1 ? :
241	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
245	0	0	if (not defined $val) { }
259	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
269	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
271	0	0	if $oldvals
283	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
292	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
295	0	0	if ($#_ > 0) { }
300	0	0	unless $fh
307	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
310	0	0	ref $_ eq 'ARRAY' ? :
	0	0	ref $_ ? :
325	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
333	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
348	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
356	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
364	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
375	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
377	0	0	if UNIVERSAL::isa($packas, 'ARRAY')
378	0	0	if UNIVERSAL::isa($packas, 'CODE')
379	0	0	if not $packas or $packas eq 'raw'
380	0	0	if ($that->packsingle($packas)) { }
382	0	0	if defined $_
386	0	0	ref $_ ? :
	0	0	if defined $_
396	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
398	0	0	if UNIVERSAL::isa($packas, 'ARRAY')
399	0	0	if UNIVERSAL::isa($packas, 'CODE')
400	0	0	if not $packas or $packas eq 'raw'
401	0	0	if ($that->packsingle($packas)) { }
435	0	0	$_[0] == 0 ? :
440	0	0	$_[0] > $_[1] ? :
445	0	0	$_[0] < $_[1] ? :
452	0	0	if not defined $max or defined $_ and $_ > $max
461	0	0	if not defined $min or defined $_ and $_ < $min
480	0	0	defined $tmp && $tmp eq $_ ? :
487	0	0	defined $tmp && $tmp eq $_ ? :
498	0	0	defined $tmp && $tmp->[0] eq $_->[0] ? :
521	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
523	0	0	if ref $re
526	0	0	$re =~ s[/([gimsadlux]*)\s*$][] ? :
527	0	0	if ($mods =~ s/g//g) { }
	0	0	elsif ($mods) { }
557	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
558	0	0	if $_[0] =~ /^[a-zA-Z][a-zA-Z0-9]*$/s
562	0	0	!exists $_[1] || $_[1] ? :
571	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
579	0	0	wantarray ? :
584	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
586	0	0	if ($h == 0 and $m == 0) { }
	0	0	elsif ($h == 0) { }
599	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
600	0	0	@_ ? :
608	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
614	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
620	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
623	0	0	!ref($_) && -d $_ ? :
630	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
644	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
650	0	0	UNIVERSAL::isa($srcfiles, 'ARRAY') ? :
651	0	0	if (defined $from) { }
657	0	0	unless -d $dstdir or make_path($dstdir)
660	0	0	unless &$method($src, $dst)
669	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
676	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
684	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
686	0	0	if ('File::Copy'->can('syscopy') and 'File::Copy'->can('syscopy') ne 'File::Copy'->can('copy'))
691	0	0	unless my $rc = File::Copy::copy($src, $dst)
692	0	0	if -d $dst
695	0	0	$> == 0 ? :
696	0	0	unless $rc &&= chown($uid, $gid, $dst)
698	0	0	unless $rc &&= chmod($perm & 4095, $dst)
700	0	0	unless $rc &&= utime($atime, $mtime, $dst)
708	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
710	0	0	UNIVERSAL::can($fh, 'flush') ? :
716	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
720	0	0	unless close $fh
721	0	0	unless open $fh, fcperl($flags), $file
738	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
740	0	0	if $x >= 1e+24
741	0	0	if $x >= 1e+21
742	0	0	if $x >= 1e+18
743	0	0	if $x >= 1000000000000000
744	0	0	if $x >= 1000000000000
745	0	0	if $x >= 1000000000
746	0	0	if $x >= 1000000
747	0	0	if $x >= 1000
748	0	0	if $x >= 1
749	0	0	if $x >= 0.001
750	0	0	if $x >= 1e-06
751	0	0	if $x >= 1e-09
752	0	0	if $x >= 1e-12
753	0	0	if $x >= 1e-15
754	0	0	if $x >= 1e-18
755	0	0	if $x >= 1e-21
756	0	0	if $x >= 5444517870735016 * 2**-132
768	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
769	0	0	defined $_[1] ? :
	0	0	defined $_[0] ? :
780	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
781	0	0	defined $_[1] ? :
	0	0	defined $_[0] ? :
794	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
796	0	0	if (not defined $p) { }
	0	0	elsif ($p->nelem == 0) { }
825	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
827	0	0	if (not defined $a) { }
	0	0	elsif (not defined $b) { }
	0	0	elsif ($a->nelem == 0) { }
	0	0	elsif ($b->nelem == 0) { }
860	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
867	0	0	unless -e "$file.hdr"
868	0	0	$mmap ? :
878	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
880	0	0	if (defined $pdl) { }
890	0	0	unless unlink "file$_"
904	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
906	0	0	if @_ < 3
907	0	0	if UNIVERSAL::isa($type, 'PDL::Type')
908	0	0	UNIVERSAL::isa($_, 'ARRAY') ? :
	0	0	UNIVERSAL::isa($_, 'PDL') ? :
909	0	0	unless open my $fh, ">$file"
924	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
925	0	0	if @_ < 3
927	0	0	unless defined $itype
928	0	0	unless defined $vtype
929	0	0	unless UNIVERSAL::isa($pdims, 'PDL')
950	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
955	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
964	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
976	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
978	0	0	if UNIVERSAL::isa($arg, 'PDL')
979	0	0	unless @types
980	0	0	'PDL'->can($_) ? :
	0	0	ref $_ ? :
982	0	0	if maxval($type) >= $arg
995	0	0	if not ref $type and 'PDL'->can($type)
996	0	0	if $type >= PDL::float()
1028	0	0	unless not -e $_ or unlink $_
1039	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1041	0	0	@_ ? :
1049	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1052	0	0	if ($template =~ /X{4}/) { }
1054	0	0	unless ($fh, $filename) = File::Temp::tempfile($template, 'DIR', $that->tmpdir, @_)
1059	0	0	if (not $filename =~ m[^/] and defined $opts{'DIR'})
1060	0	0	if not $filename =~ m[^/] and $opts{'TMPDIR'}
1061	0	0	if defined $opts{'SUFFIX'}
1062	0	0	$opts{'APPEND'} ? :
	0	0	unless open $fh, $opts{'APPEND'} ? '+<' : '+>', $filename
1064	0	0	if $opts{'UNLINK'}
1066	0	0	wantarray ? :
1072	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1073	0	0	unless my($fh, $filename) = $that->tmpfh(@_)
1082	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1086	0	0	unless eval {
1092	0	0	unless exists $opts{'UNLINK'}
1093	0	0	unless exists $opts{'APPEND'}
1097	0	0	unless tie my @tmparray, 'DiaColloDB::Temp::Array', $tmpfile, %opts
1106	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1110	0	0	unless eval {
1116	0	0	unless exists $opts{'UNLINK'}
1117	0	0	unless exists $opts{'APPEND'}
1121	0	0	$opts{'APPEND'} ? :
1122	0	0	unless tie my @tmparray, 'DiaColloDB::PackedFile', $tmpfile, $mode, 'packas', $packas, 'temp', $opts{'UNLINK'}, %opts
1131	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1135	0	0	unless eval {
1141	0	0	unless exists $opts{'UNLINK'}
1142	0	0	unless exists $opts{'APPEND'}
1143	0	0	$opts{'APPEND'} ? :
1147	0	0	unless tie my %tmphash, 'DiaColloDB::Temp::Hash', $tmpfile, %opts
1163	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1165	0	0	if exists $NCORES{$filename}
1167	0	0	if (open my $fh, "<$filename") { }
	0	0	elsif (open my $pipefh, 'nproc|') { }
1170	0	0	if /^processor\s*:/
1179	0	0	if $ncores
1190	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1191	0	0	@_ ? :
1193	0	0	if $njobs < 0
1194	0	0	if 0 < $njobs and $njobs < 1
1201	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1202	0	0	@_ ? :
1203	0	0	!$njobs || $njobs < 1 ? :
1204	0	0	$args ? :
	0	0	if wantarray