| line |
true |
false |
branch |
|
184
|
0 |
0 |
if (defined $coldb->{'dbdir'})
|
|
211
|
0 |
0 |
unless ref $coldb
|
|
215
|
0 |
0 |
if $coldb->opened
|
|
221
|
0 |
0 |
if (fctrunc($flags))
|
|
223
|
0 |
0 |
unless not -d $dbdir or remove_tree($dbdir)
|
|
229
|
0 |
0 |
unless (-d $dbdir)
|
|
230
|
0 |
0 |
unless fccreat($flags)
|
|
231
|
0 |
0 |
unless make_path($dbdir)
|
|
237
|
0 |
0 |
unless $coldb->loadHeader
|
|
241
|
0 |
0 |
unless -r "$dbdir/tdf.hdr"
|
|
242
|
0 |
0 |
if ($coldb->{'index_tdf'})
|
|
243
|
0 |
0 |
unless (require 'DiaColloDB/Relation/TDF.pm')
|
|
244
|
0 |
0 |
$@ ? :
|
|
260
|
0 |
0 |
-r "$dbdir/${attr}_enum.hdr" ? :
|
|
261
|
0 |
0 |
unless $$coldb{"${attr}enum"} = $ECLASS->new('base', "${abase}enum", %efopts)
|
|
263
|
0 |
0 |
unless $$coldb{"${attr}2x"} = $MMCLASS->new('base', "${abase}2x", %mmopts)
|
|
271
|
0 |
0 |
unless $coldb->{'xenum'} = $XECLASS->new('base', "$dbdir/xenum", %efopts, 'pack_s', $coldb->{'pack_x'})
|
|
272
|
0 |
0 |
unless (defined $coldb->{'xdmin'} and defined $coldb->{'xdmax'})
|
|
278
|
0 |
0 |
unless $_
|
|
279
|
0 |
0 |
unless defined($d = unpack($pack_xdate, $_))
|
|
280
|
0 |
0 |
if $d < $dmin
|
|
281
|
0 |
0 |
if $d > $dmax
|
|
288
|
0 |
0 |
unless $coldb->{'xf'} = 'DiaColloDB::Compat::v0_09::Relation::Unigrams'->new('file', "$dbdir/xf.dba", 'flags', $flags, 'packas', $coldb->{'pack_f'}, 'logCompat', 'off')
|
|
290
|
0 |
0 |
if $coldb->{'xN'} and not $coldb->{'xf'}{'N'}
|
|
293
|
0 |
0 |
if ($coldb->{'index_cof'} // 1)
|
|
297
|
0 |
0 |
unless $coldb->{'cof'} = 'DiaColloDB::Compat::v0_09::Relation::Cofreqs'->new('base', "$dbdir/cof", 'flags', $flags, 'pack_i', $coldb->{'pack_id'}, 'pack_f', $coldb->{'pack_f'}, 'dmax', $coldb->{'dmax'}, 'fmin', $coldb->{'cfmin'}, 'logCompat', 'off')
|
|
303
|
0 |
0 |
-r "$dbdir/ddc.hdr" ? :
|
|
307
|
0 |
0 |
if ($coldb->{'index_tdf'})
|
|
312
|
0 |
0 |
-r "$dbdir/tdf.hdr" ? :
|
|
324
|
0 |
0 |
ref $_[0] ? :
|
|
441
|
0 |
0 |
unless $coldb->opened
|
|
447
|
0 |
0 |
exists $opts{'export_sdat'} ? :
|
|
448
|
0 |
0 |
exists $opts{'export_cof'} ? :
|
|
449
|
0 |
0 |
exists $opts{'export_tdf'} ? :
|
|
452
|
0 |
0 |
unless -d $outdir or make_path($outdir)
|
|
457
|
0 |
0 |
unless $coldb->saveHeader("$outdir/header.json")
|
|
463
|
0 |
0 |
if $coldb->{'xenum'} and not $coldb->{'xenum'}->loaded
|
|
465
|
0 |
0 |
if $_->{'enum'} and not $_->{'enum'}->loaded
|
|
471
|
0 |
0 |
if ($export_sdat)
|
|
494
|
0 |
0 |
unless $coldb->{'xenum'}->saveTextFile("$outdir/xenum.dat", 'pack_s', $pack_x)
|
|
498
|
0 |
0 |
if ($export_sdat)
|
|
500
|
0 |
0 |
unless $coldb->{'xenum'}->saveTextFile("$outdir/xenum.sdat", 'pack_s', $xs2txt)
|
|
508
|
0 |
0 |
unless $_->{'enum'}->saveTextFile("$outdir/$_->{'a'}_enum.dat")
|
|
516
|
0 |
0 |
unless $_->{'a2x'}->saveTextFile("$outdir/$_->{'a'}_2x.dat")
|
|
520
|
0 |
0 |
if ($export_sdat)
|
|
522
|
0 |
0 |
unless $_->{'a2x'}->saveTextFile("$outdir/$_->{'a'}_2x.sdat", 'a2s', $_->{'i2txt'}, 'b2s', $xi2txt)
|
|
528
|
0 |
0 |
if ($coldb->{'xf'})
|
|
532
|
0 |
0 |
unless $coldb->{'xf'}->saveTextFile("$outdir/xf.dat", 'keys', 1)
|
|
537
|
0 |
0 |
if ($export_sdat)
|
|
539
|
0 |
0 |
unless $coldb->{'xf'}->saveTextFile("$outdir/xf.sdat", 'key2s', $xi2txt)
|
|
545
|
0 |
0 |
if ($coldb->{'cof'} and $export_cof)
|
|
547
|
0 |
0 |
unless $coldb->{'cof'}->saveTextFile("$outdir/cof.dat")
|
|
550
|
0 |
0 |
if ($export_sdat)
|
|
552
|
0 |
0 |
unless $coldb->{'cof'}->saveTextFile("$outdir/cof.sdat", 'i2s', $xi2txt)
|
|
558
|
0 |
0 |
if ($coldb->{'tdf'} and $coldb->{'index_tdf'} and $export_tdf)
|
|
560
|
0 |
0 |
unless $coldb->{'tdf'}->export("$outdir/tdf", $coldb)
|
|
575
|
0 |
0 |
unless ref $coldb
|
|
691
|
0 |
0 |
if $dfilter and not &$dfilter($d) or $d < $coldb->{'xdmin'} or $d > $coldb->{'xdmax'}
|
|
692
|
0 |
0 |
$slice ? :
|
|
697
|
0 |
0 |
if ($fill and $slice)
|
|
780
|
0 |
0 |
if UNIVERSAL::isa($gbreq, 'HASH')
|
|
809
|
0 |
0 |
$_->[1] && !UNIVERSAL::isa($_->[1], 'DDC::Any::CQTokAny') ? :
|
|
815
|
0 |
0 |
if (grep {$_;} @gbids) { }
|
|
828
|
0 |
0 |
unless $xs2g_sub
|
|
834
|
0 |
0 |
unless $xi2g_sub
|
|
840
|
0 |
0 |
if (@$gbattrs == 1) { }
|
|
853
|
0 |
0 |
unless $g2s
|
|
859
|
0 |
0 |
if (@$gbattrs == 1) { }
|
|
867
|
0 |
0 |
unless $g2txt
|