| line |
true |
false |
branch |
|
68
|
0 |
18 |
unless defined $create |
|
69
|
0 |
18 |
unless (-d $path) |
|
70
|
0 |
0 |
unless $create |
|
71
|
0 |
0 |
unless mkpath($path) |
|
86
|
0 |
18 |
unless sysopen FH, $lock, 193 |
|
91
|
17 |
1 |
$create ? : |
|
118
|
18 |
0 |
if $$self{'lock'} |
|
172
|
13 |
0 |
if ($min_segment < 0 or $doc_count + $segs[$min_segment]->doc_count > $self->mergefactor or not $segs[-1]->dir eq $$self{'tmp_directory'}) |
|
177
|
0 |
18 |
if $min_segment > @segs |
|
206
|
15 |
0 |
$minseg < 0 ? : |
|
243
|
0 |
276 |
unless $$self{'segmentinfos'} |
|
248
|
147 |
1368 |
if $si->doc_count >= $target_merge_docs |
|
251
|
257 |
19 |
unless $merge_docs >= $target_merge_docs |
|
270
|
13 |
39 |
if $#segments < $min_segment |
|
275
|
274 |
0 |
if $reader->directory eq $$self{'directory'} or $reader->directory eq $$self{'tmp_directory'} |
|
312
|
0 |
2316 |
unless unlink $_ |
|
318
|
16 |
23 |
unless -e (my $dfile = "$$self{'directory'}/deletable") |
|
319
|
0 |
23 |
unless open my $fh, $dfile |
|
327
|
0 |
39 |
unless open my $fh, '>' . $dfile . '.new' |