Branch Coverage

blib/lib/DiaColloDB/Utils.pm

Criterion	Covered	Total	%
branch	0	438	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 $_ ? :
327	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
334	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
342	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
357	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
365	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
373	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
384	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
386	0	0	if UNIVERSAL::isa($packas, 'ARRAY')
387	0	0	if UNIVERSAL::isa($packas, 'CODE')
388	0	0	if not $packas or $packas eq 'raw'
389	0	0	if ($that->packsingle($packas)) { }
391	0	0	if defined $_
395	0	0	ref $_ ? :
	0	0	if defined $_
405	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
407	0	0	if UNIVERSAL::isa($packas, 'ARRAY')
408	0	0	if UNIVERSAL::isa($packas, 'CODE')
409	0	0	if not $packas or $packas eq 'raw'
410	0	0	if ($that->packsingle($packas)) { }
444	0	0	$_[0] == 0 ? :
449	0	0	$_[0] > $_[1] ? :
454	0	0	$_[0] < $_[1] ? :
461	0	0	if not defined $max or defined $_ and $_ > $max
470	0	0	if not defined $min or defined $_ and $_ < $min
489	0	0	defined $tmp && $tmp eq $_ ? :
496	0	0	defined $tmp && $tmp eq $_ ? :
507	0	0	defined $tmp && $tmp->[0] eq $_->[0] ? :
530	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
532	0	0	if ref $re
535	0	0	$re =~ s[/([gimsadlux]*)\s*$][] ? :
536	0	0	if ($mods =~ s/g//g) { }
	0	0	elsif ($mods) { }
566	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
567	0	0	if $_[0] =~ /^[a-zA-Z][a-zA-Z0-9]*$/s
571	0	0	!exists $_[1] || $_[1] ? :
580	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
588	0	0	wantarray ? :
593	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
595	0	0	if ($h == 0 and $m == 0) { }
	0	0	elsif ($h == 0) { }
608	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
609	0	0	@_ ? :
617	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
623	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
629	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
632	0	0	!ref($_) && -d $_ ? :
639	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
653	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
659	0	0	UNIVERSAL::isa($srcfiles, 'ARRAY') ? :
660	0	0	if (defined $from) { }
666	0	0	unless -d $dstdir or make_path($dstdir)
669	0	0	unless &$method($src, $dst)
678	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
685	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
693	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
695	0	0	if ('File::Copy'->can('syscopy') and 'File::Copy'->can('syscopy') ne 'File::Copy'->can('copy'))
700	0	0	unless my $rc = File::Copy::copy($src, $dst)
701	0	0	if -d $dst
704	0	0	$> == 0 ? :
705	0	0	unless $rc &&= chown($uid, $gid, $dst)
707	0	0	unless $rc &&= chmod($perm & 4095, $dst)
709	0	0	unless $rc &&= utime($atime, $mtime, $dst)
717	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
719	0	0	UNIVERSAL::can($fh, 'flush') ? :
725	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
729	0	0	unless close $fh
730	0	0	unless open $fh, fcperl($flags), $file
747	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
749	0	0	if $x >= 1e+24
750	0	0	if $x >= 1e+21
751	0	0	if $x >= 1e+18
752	0	0	if $x >= 1000000000000000
753	0	0	if $x >= 1000000000000
754	0	0	if $x >= 1000000000
755	0	0	if $x >= 1000000
756	0	0	if $x >= 1000
757	0	0	if $x >= 1
758	0	0	if $x >= 0.001
759	0	0	if $x >= 1e-06
760	0	0	if $x >= 1e-09
761	0	0	if $x >= 1e-12
762	0	0	if $x >= 1e-15
763	0	0	if $x >= 1e-18
764	0	0	if $x >= 1e-21
765	0	0	if $x >= 5444517870735016 * 2**-132
777	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
778	0	0	defined $_[1] ? :
	0	0	defined $_[0] ? :
789	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
790	0	0	defined $_[1] ? :
	0	0	defined $_[0] ? :
803	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
805	0	0	if (not defined $p) { }
	0	0	elsif ($p->nelem == 0) { }
834	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
836	0	0	if (not defined $a) { }
	0	0	elsif (not defined $b) { }
	0	0	elsif ($a->nelem == 0) { }
	0	0	elsif ($b->nelem == 0) { }
869	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
876	0	0	unless -e "$file.hdr"
877	0	0	$mmap ? :
887	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
889	0	0	if (defined $pdl) { }
899	0	0	unless unlink "file$_"
913	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
915	0	0	if @_ < 3
916	0	0	if UNIVERSAL::isa($type, 'PDL::Type')
917	0	0	UNIVERSAL::isa($_, 'ARRAY') ? :
	0	0	UNIVERSAL::isa($_, 'PDL') ? :
918	0	0	unless open my $fh, ">$file"
933	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
934	0	0	if @_ < 3
936	0	0	unless defined $itype
937	0	0	unless defined $vtype
938	0	0	unless UNIVERSAL::isa($pdims, 'PDL')
959	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
964	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
973	0	0	if UNIVERSAL::isa($_[0], 'DiaColloDB::Utils')
985	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
987	0	0	if UNIVERSAL::isa($arg, 'PDL')
988	0	0	unless @types
989	0	0	'PDL'->can($_) ? :
	0	0	ref $_ ? :
991	0	0	if maxval($type) >= $arg
1004	0	0	if not ref $type and 'PDL'->can($type)
1005	0	0	if $type >= PDL::float()
1037	0	0	unless not -e $_ or unlink $_
1048	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1050	0	0	@_ ? :
1058	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1061	0	0	if ($template =~ /X{4}/) { }
1063	0	0	unless ($fh, $filename) = File::Temp::tempfile($template, 'DIR', $that->tmpdir, @_)
1068	0	0	if (not $filename =~ m[^/] and defined $opts{'DIR'})
1069	0	0	if not $filename =~ m[^/] and $opts{'TMPDIR'}
1070	0	0	if defined $opts{'SUFFIX'}
1071	0	0	$opts{'APPEND'} ? :
	0	0	unless open $fh, $opts{'APPEND'} ? '+<' : '+>', $filename
1073	0	0	if $opts{'UNLINK'}
1075	0	0	wantarray ? :
1081	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1082	0	0	unless my($fh, $filename) = $that->tmpfh(@_)
1091	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1095	0	0	unless eval {
1101	0	0	unless exists $opts{'UNLINK'}
1102	0	0	unless exists $opts{'APPEND'}
1106	0	0	unless tie my @tmparray, 'DiaColloDB::Temp::Array', $tmpfile, %opts
1115	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1119	0	0	unless eval {
1125	0	0	unless exists $opts{'UNLINK'}
1126	0	0	unless exists $opts{'APPEND'}
1130	0	0	$opts{'APPEND'} ? :
1131	0	0	unless tie my @tmparray, 'DiaColloDB::PackedFile', $tmpfile, $mode, 'packas', $packas, 'temp', $opts{'UNLINK'}, %opts
1140	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1144	0	0	unless eval {
1150	0	0	unless exists $opts{'UNLINK'}
1151	0	0	unless exists $opts{'APPEND'}
1152	0	0	$opts{'APPEND'} ? :
1156	0	0	unless tie my %tmphash, 'DiaColloDB::Temp::Hash', $tmpfile, %opts
1172	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1174	0	0	if exists $NCORES{$filename}
1176	0	0	if (open my $fh, "<$filename") { }
	0	0	elsif (open my $pipefh, 'nproc|') { }
1179	0	0	if /^processor\s*:/
1188	0	0	if $ncores
1199	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1200	0	0	@_ ? :
1202	0	0	if $njobs < 0
1203	0	0	if 0 < $njobs and $njobs < 1
1210	0	0	UNIVERSAL::isa($_[0], 'DiaColloDB::Utils') ? :
1211	0	0	@_ ? :
1212	0	0	!$njobs || $njobs < 1 ? :
1213	0	0	$args ? :
	0	0	if wantarray