| line |
true |
false |
branch |
|
71
|
0 |
0 |
if defined $ug->{'base'}
|
|
76
|
0 |
0 |
if $_[0]->opened
|
|
101
|
0 |
0 |
if $ug->opened
|
|
105
|
0 |
0 |
if (fcread($flags) and not fctrunc($flags))
|
|
106
|
0 |
0 |
unless $hdr = $ug->readHeader || $ug->readHeader("$ug->{'base'}.dba.hdr")
|
|
108
|
0 |
0 |
unless $ug->loadHeaderData($hdr)
|
|
114
|
0 |
0 |
if ($hdr and !defined($hdr->{'version'}) || 'version'->parse($hdr->{'version'}) < $min_version)
|
|
123
|
0 |
0 |
unless $ug->{'r1'}->open("$base.dba1", $flags, 'perms', $ug->{'perms'}, 'packas', "$ug->{'pack_i'}")
|
|
125
|
0 |
0 |
unless $ug->{'r2'}->open("$base.dba2", $flags, 'perms', $ug->{'perms'}, 'packas', "$ug->{'pack_d'}$ug->{'pack_f'}")
|
|
127
|
0 |
0 |
unless $ug->{'rN'}->open("$base.dbaN", $flags, 'perms', $ug->{'perms'}, 'packas', "$ug->{'pack_f'}")
|
|
139
|
0 |
0 |
if ($ug->opened and fcwrite($ug->{'flags'}))
|
|
140
|
0 |
0 |
unless $ug->saveHeader
|
|
142
|
0 |
0 |
unless $ug->{'r1'}->close
|
|
143
|
0 |
0 |
unless $ug->{'r2'}->close
|
|
144
|
0 |
0 |
unless $ug->{'rN'}->close
|
|
175
|
0 |
0 |
if (not defined $hdr || fccreat($ug->{'flags'})) { }
|
|
|
0 |
0 |
elsif (defined $hdr) { }
|
|
203
|
0 |
0 |
if (not ref $ug) { }
|
|
208
|
0 |
0 |
unless $ug->opened
|
|
231
|
0 |
0 |
if ($i1_cur >= 0)
|
|
232
|
0 |
0 |
if ($i1_cur != $pos1)
|
|
257
|
0 |
0 |
if (not defined $i1) { }
|
|
|
0 |
0 |
elsif ($i1 eq '') { }
|
|
|
0 |
0 |
elsif (not defined $d1) { }
|
|
267
|
0 |
0 |
if $i1 != $i1_cur
|
|
282
|
0 |
0 |
$N1 > $N ? :
|
|
304
|
0 |
0 |
unless $ug->opened
|
|
321
|
0 |
0 |
unless $r1->read(\$buf1)
|
|
323
|
0 |
0 |
$i2s ? :
|
|
326
|
0 |
0 |
unless $r2->read(\$buf2)
|
|
350
|
0 |
0 |
unless ref $ug
|
|
354
|
0 |
0 |
unless $ug->opened or $ug->open
|
|
359
|
0 |
0 |
unless my $cmdfh = opencmd('sort -nk1 -nk2 ' . sortJobs() . " $datfile | uniq -c |")
|
|
361
|
0 |
0 |
unless $ug->loadTextFh($cmdfh)
|
|
363
|
0 |
0 |
unless $cmdfh->close
|
|
368
|
0 |
0 |
unless $ug->saveHeader
|
|
389
|
0 |
0 |
unless ref $ug
|
|
394
|
0 |
0 |
unless my $tmpfh = 'IO::File'->new(">$tmpfile")
|
|
404
|
0 |
0 |
if UNIVERSAL::can($pi2u, 'toArray')
|
|
406
|
0 |
0 |
unless $pxf->saveTextFh($tmpfh, 'i2s', sub {
|
|
410
|
0 |
0 |
unless $tmpfh->close
|
|
415
|
0 |
0 |
unless my $sortfh = opencmd('sort -n -k2 -k3 ' . sortJobs() . " $tmpfile |")
|
|
418
|
0 |
0 |
unless $ug->loadTextFh($sortfh)
|
|
420
|
0 |
0 |
unless $sortfh->close
|
|
425
|
0 |
0 |
unless $ug->saveHeader
|
|
429
|
0 |
0 |
unless $ug->{'keeptmp'}
|
|
476
|
0 |
0 |
unless UNIVERSAL::isa($tids, 'ARRAY')
|
|
499
|
0 |
0 |
$slice ? :
|
|
505
|
0 |
0 |
if $i1 >= $size1
|
|
506
|
0 |
0 |
$i1 == 0 ? :
|
|
510
|
0 |
0 |
$groupby ? :
|
|
512
|
0 |
0 |
if $beg2 >= $size2
|
|
517
|
0 |
0 |
if $dfilter and not &$dfilter($d1)
|
|
518
|
0 |
0 |
$slice ? :
|
|
523
|
0 |
0 |
if not defined $key2 or $extend and not exists $extend->{$ds}{$key2}
|
|
556
|
0 |
0 |
unless @qstrs
|
|
557
|
0 |
0 |
@$fstrs ? :
|