| line |
true |
false |
branch |
|
39
|
26 |
0 |
if not defined $JSON_BACKEND |
|
110
|
0 |
0 |
$args{'connect'} ? : |
|
|
0 |
0 |
ref $args{'connect'} ? : |
|
144
|
0 |
0 |
if (defined $args{'optFile'}) |
|
146
|
0 |
0 |
unless $dc->loadOptFile($args{'optFile'}) |
|
149
|
0 |
0 |
unless $dc->{'fieldSeparator'} |
|
150
|
0 |
0 |
unless $dc->{'tokenSeparator'} |
|
151
|
0 |
0 |
unless $dc->{'textHighlight'} |
|
152
|
0 |
0 |
unless $dc->{'tableHighlight'} |
|
156
|
0 |
0 |
unless $dc->{'htmlHighlight'} |
|
186
|
0 |
0 |
if (not ref $src) { } |
|
|
0 |
0 |
elsif (ref $src eq 'SCALAR') { } |
|
187
|
0 |
0 |
unless $fh = 'IO::File'->new("<$src") |
|
189
|
0 |
0 |
if $dc->{'encoding'} |
|
193
|
0 |
0 |
unless CORE::open $fh, '<', $src |
|
195
|
0 |
0 |
if $dc->{'encoding'} |
|
206
|
0 |
0 |
if (/^Indices\s(.*)$/) { } |
|
|
0 |
0 |
elsif (/^Bibl\s+(\S+)\s+(\d)\s+(\S+)\s+(.*)$/) { } |
|
|
0 |
0 |
elsif (/^IndicesToShow\s+(.*)$/) { } |
|
|
0 |
0 |
elsif (/^OutputBibliographyOfHits\b/) { } |
|
|
0 |
0 |
elsif (/^InterpDelim[ie]ter\s(.*)$/) { } |
|
|
0 |
0 |
elsif (/^TokenDelim[ie]ter\s(.*)$/) { } |
|
|
0 |
0 |
elsif (/^Utf8\s*$/) { } |
|
|
0 |
0 |
elsif (/^HtmlHighlighting\s*(.*)$/) { } |
|
|
0 |
0 |
elsif (/^TextHighlighting\s*(.*)$/) { } |
|
|
0 |
0 |
elsif (/^TableHighlighting\s*(.*)$/) { } |
|
211
|
0 |
0 |
if $visible + 0 |
|
220
|
0 |
0 |
if $clobber or not $dc->{'fieldSeparator'} |
|
223
|
0 |
0 |
if $clobber or not $dc->{'tokenSeparator'} |
|
226
|
0 |
0 |
if $clobber or not $dc->{'encoding'} |
|
229
|
0 |
0 |
if $clobber or not $dc->{'htmlHighlight'} |
|
232
|
0 |
0 |
if $clobber or not $dc->{'textHighlight'} |
|
235
|
0 |
0 |
if $clobber or not $dc->{'tableHighlight'} |
|
240
|
0 |
0 |
unless @show |
|
241
|
0 |
0 |
if $clobber or not $dc->{'fieldNames'} |
|
242
|
0 |
0 |
unless ($dc->{'metaNames'}) |
|
243
|
0 |
0 |
if (not $showMeta) { } |
|
|
0 |
0 |
elsif (@meta) { } |
|
247
|
0 |
0 |
if @meta and $clobber || !$dc->{'metaNames'} |
|
252
|
0 |
0 |
if not ref $src or ref $src eq 'SCALAR' |
|
273
|
0 |
0 |
if (UNIVERSAL::isa($query, 'ARRAY')) { } |
|
|
0 |
0 |
elsif ($dc->{'mode'} =~ /^(?:raw|req)/i) { } |
|
287
|
0 |
0 |
$dc->{'hint'} ? : |
|
351
|
0 |
0 |
unless defined $timeout |
|
352
|
0 |
0 |
defined $timeout ? : |
|
359
|
0 |
0 |
unless defined $timeout |
|
360
|
0 |
0 |
defined $timeout ? : |
|
367
|
0 |
0 |
unless defined $timeout |
|
368
|
0 |
0 |
defined $timeout ? : |
|
379
|
0 |
0 |
if UNIVERSAL::isa($chain, 'ARRAY') |
|
380
|
0 |
0 |
if UNIVERSAL::isa($terms, 'ARRAY') |
|
383
|
0 |
0 |
unless defined $timeout |
|
384
|
0 |
0 |
unless defined $subcorpus |
|
385
|
0 |
0 |
if $timeout ne '' and $subcorpus ne '' and $timeout =~ /[0-9]/ and not $subcorpus =~ /[0-9]/ |
|
388
|
0 |
0 |
if $timeout eq '' |
|
389
|
0 |
0 |
if not defined $timeout or $timeout eq '' |
|
413
|
0 |
0 |
@_ ? : |
|
414
|
0 |
0 |
@_ ? : |
|
415
|
0 |
0 |
@_ ? : |
|
416
|
0 |
0 |
$hint ? : |
|
422
|
0 |
0 |
$dc->{'mode'} eq 'raw' ? : |
|
|
0 |
0 |
@_ ? : |
|
423
|
0 |
0 |
@_ ? : |
|
424
|
0 |
0 |
@_ ? : |
|
434
|
0 |
0 |
@_ ? : |
|
435
|
0 |
0 |
@_ ? : |
|
436
|
0 |
0 |
@_ ? : |
|
437
|
0 |
0 |
@_ ? : |
|
438
|
0 |
0 |
@_ ? : |
|
439
|
0 |
0 |
unless defined $corpus |
|
440
|
0 |
0 |
$hint ? : |
|
461
|
0 |
0 |
if (not $connect and ref $that) |
|
466
|
0 |
0 |
unless UNIVERSAL::isa($connect, 'HASH') |
|
471
|
0 |
0 |
if (defined $url) |
|
473
|
0 |
0 |
$base =~ s[^([\w\+\-]+):(?://)?][] ? : |
|
474
|
0 |
0 |
if (lc $scheme eq 'unix' or not $scheme and $base =~ m[^/]) { } |
|
|
0 |
0 |
elsif (not $scheme or grep {$_ eq lc $scheme;} 'inet', 'tcp') { } |
|
493
|
0 |
0 |
if $override |
|
503
|
0 |
0 |
if ref $that and not defined $addr |
|
507
|
0 |
0 |
if (UNIVERSAL::isa($addr, 'IO::Socket::UNIX')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($addr, 'IO::Socket::INET')) { } |
|
511
|
0 |
0 |
lc $prefix eq 'peer' ? : |
|
514
|
0 |
0 |
if UNIVERSAL::isa($addr, 'DDC::Client') |
|
515
|
0 |
0 |
unless ref $addr |
|
518
|
0 |
0 |
if ($addr->{'Domain'} eq 'UNIX') { } |
|
525
|
0 |
0 |
$$addr{"${prefix}Addr"} && $$addr{"${prefix}Port"} ? : |
|
540
|
0 |
0 |
if (lc $domain eq 'unix') { } |
|
547
|
0 |
0 |
unless $dc->{'sock'} |
|
548
|
0 |
0 |
if $dc->{'linger'} |
|
556
|
0 |
0 |
if defined $dc->{'sock'} |
|
564
|
0 |
0 |
if $dc->{'encoding'} and utf8::is_utf8($msg) |
|
572
|
0 |
0 |
if $dc->{'encoding'} |
|
580
|
0 |
0 |
unless defined $dc->{'sock'} |
|
596
|
0 |
0 |
unless $fh |
|
597
|
0 |
0 |
if ($fh->read($size_packed, $ilen) || 0) != $ilen |
|
599
|
0 |
0 |
unless defined $size_packed |
|
608
|
0 |
0 |
unless $fh |
|
610
|
0 |
0 |
if $nread != $nbytes |
|
624
|
0 |
0 |
if $_[0]{'mode'} eq 'json' |
|
625
|
0 |
0 |
if $_[0]{'mode'} eq 'table' |
|
626
|
0 |
0 |
if $_[0]{'mode'} eq 'text' |
|
627
|
0 |
0 |
if $_[0]{'mode'} eq 'html' |
|
641
|
0 |
0 |
if $dc->{'encoding'} and not utf8::is_utf8($buf) |
|
653
|
0 |
0 |
if ($bufline =~ /^Corpora Distribution\:(.*)$/) { } |
|
|
0 |
0 |
elsif ($bufline =~ /^Relevant Documents Distribution:(.*)$/) { } |
|
661
|
0 |
0 |
if $dc->{'keepRaw'} |
|
663
|
0 |
0 |
if ($dc->{'parseMeta'} or $dc->{'parseContext'}) |
|
668
|
0 |
0 |
if ($dc->{'parseMeta'}) |
|
676
|
0 |
0 |
if $dc->{'parseContext'} |
|
680
|
0 |
0 |
if $dc->{'expandFields'} |
|
704
|
0 |
0 |
if ($sbuf =~ /$hls/) { } |
|
711
|
0 |
0 |
if ($w->[1] =~ /$hlw0/ and $$w[$#$w] =~ /$hlw1/) |
|
724
|
0 |
0 |
if (not @{$sents->[1];}) { } |
|
747
|
0 |
0 |
if $dc->{'encoding'} and not utf8::is_utf8($buf) |
|
759
|
0 |
0 |
if $dc->{'keepRaw'} |
|
761
|
0 |
0 |
if ($dc->{'parseMeta'} or $dc->{'parseContext'}) |
|
765
|
0 |
0 |
if ($field eq 'keyword') { } |
|
|
0 |
0 |
elsif ($field eq 'indices') { } |
|
|
0 |
0 |
elsif ($field =~ /^\s*\
|
|
|
0 |
0 |
elsif ($dc->{'parseMeta'}) { } |
|
779
|
0 |
0 |
if $dc->{'parseContext'} |
|
783
|
0 |
0 |
if $field =~ /^(?:scan|orig|page|rank(?:_debug)?)$/ |
|
791
|
0 |
0 |
if $dc->{'expandFields'} |
|
814
|
0 |
0 |
if ($sbuf =~ /^\s*/) { } |
|
821
|
0 |
0 |
if ($w->[1] =~ /$hlw0/ and $$w[$#$w] =~ /$hlw1/) |
|
834
|
0 |
0 |
if (not @{$sents->[1];}) { } |
|
855
|
0 |
0 |
if ($dc->{'encoding'} and not utf8::is_utf8($$bufr)) |
|
865
|
0 |
0 |
unless defined $jxs |
|
879
|
0 |
0 |
unless $hits->{'hits_'} |
|
880
|
0 |
0 |
if $dc->{'expandFields'} |
|
891
|
0 |
0 |
if defined $_ |
|
892
|
0 |
0 |
unless $items[0] =~ /^0 / |
|
894
|
0 |
0 |
wantarray ? : |