| 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'} |
|
190
|
0 |
0 |
if (not ref $src) { } |
|
|
0 |
0 |
elsif (ref $src eq 'SCALAR') { } |
|
191
|
0 |
0 |
unless $fh = 'IO::File'->new("<$src") |
|
193
|
0 |
0 |
if $dc->{'encoding'} |
|
197
|
0 |
0 |
unless CORE::open $fh, '<', $src |
|
199
|
0 |
0 |
if $dc->{'encoding'} |
|
210
|
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*(.*)$/) { } |
|
215
|
0 |
0 |
if $visible + 0 |
|
224
|
0 |
0 |
if $clobber or not $dc->{'fieldSeparator'} |
|
227
|
0 |
0 |
if $clobber or not $dc->{'tokenSeparator'} |
|
230
|
0 |
0 |
if $clobber or not $dc->{'encoding'} |
|
233
|
0 |
0 |
if $clobber or not $dc->{'htmlHighlight'} |
|
236
|
0 |
0 |
if $clobber or not $dc->{'textHighlight'} |
|
239
|
0 |
0 |
if $clobber or not $dc->{'tableHighlight'} |
|
244
|
0 |
0 |
unless @show |
|
245
|
0 |
0 |
if $clobber or not $dc->{'fieldNames'} |
|
246
|
0 |
0 |
unless ($dc->{'metaNames'}) |
|
247
|
0 |
0 |
if (not $showMeta) { } |
|
|
0 |
0 |
elsif (@meta) { } |
|
251
|
0 |
0 |
if @meta and $clobber || !$dc->{'metaNames'} |
|
256
|
0 |
0 |
if not ref $src or ref $src eq 'SCALAR' |
|
277
|
0 |
0 |
if (UNIVERSAL::isa($query, 'ARRAY')) { } |
|
|
0 |
0 |
elsif ($dc->{'mode'} =~ /^(?:raw|req)/i) { } |
|
291
|
0 |
0 |
$dc->{'hint'} ? : |
|
355
|
0 |
0 |
unless defined $timeout |
|
356
|
0 |
0 |
defined $timeout ? : |
|
363
|
0 |
0 |
unless defined $timeout |
|
364
|
0 |
0 |
defined $timeout ? : |
|
371
|
0 |
0 |
unless defined $timeout |
|
372
|
0 |
0 |
defined $timeout ? : |
|
379
|
0 |
0 |
defined $depth ? : |
|
391
|
0 |
0 |
if UNIVERSAL::isa($chain, 'ARRAY') |
|
392
|
0 |
0 |
if UNIVERSAL::isa($terms, 'ARRAY') |
|
395
|
0 |
0 |
unless defined $timeout |
|
396
|
0 |
0 |
unless defined $subcorpus |
|
397
|
0 |
0 |
if $timeout ne '' and $subcorpus ne '' and $timeout =~ /[0-9]/ and not $subcorpus =~ /[0-9]/ |
|
400
|
0 |
0 |
if $timeout eq '' |
|
401
|
0 |
0 |
if not defined $timeout or $timeout eq '' |
|
425
|
0 |
0 |
@_ ? : |
|
426
|
0 |
0 |
@_ ? : |
|
427
|
0 |
0 |
@_ ? : |
|
428
|
0 |
0 |
$hint ? : |
|
434
|
0 |
0 |
$dc->{'mode'} eq 'raw' ? : |
|
|
0 |
0 |
@_ ? : |
|
435
|
0 |
0 |
@_ ? : |
|
436
|
0 |
0 |
@_ ? : |
|
446
|
0 |
0 |
@_ ? : |
|
447
|
0 |
0 |
@_ ? : |
|
448
|
0 |
0 |
@_ ? : |
|
449
|
0 |
0 |
@_ ? : |
|
450
|
0 |
0 |
@_ ? : |
|
451
|
0 |
0 |
unless defined $corpus |
|
452
|
0 |
0 |
$hint ? : |
|
473
|
0 |
0 |
if (not $connect and ref $that) |
|
478
|
0 |
0 |
unless UNIVERSAL::isa($connect, 'HASH') |
|
483
|
0 |
0 |
if (defined $url) |
|
485
|
0 |
0 |
$base =~ s[^([\w\+\-]+):(?://)?][] ? : |
|
486
|
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') { } |
|
505
|
0 |
0 |
if $override |
|
515
|
0 |
0 |
if ref $that and not defined $addr |
|
519
|
0 |
0 |
if (UNIVERSAL::isa($addr, 'IO::Socket::UNIX')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($addr, 'IO::Socket::INET')) { } |
|
523
|
0 |
0 |
lc $prefix eq 'peer' ? : |
|
526
|
0 |
0 |
if UNIVERSAL::isa($addr, 'DDC::Client') |
|
527
|
0 |
0 |
unless ref $addr |
|
530
|
0 |
0 |
if ($addr->{'Domain'} eq 'UNIX') { } |
|
537
|
0 |
0 |
$$addr{"${prefix}Addr"} && $$addr{"${prefix}Port"} ? : |
|
552
|
0 |
0 |
if (lc $domain eq 'unix') { } |
|
559
|
0 |
0 |
unless $dc->{'sock'} |
|
560
|
0 |
0 |
if $dc->{'linger'} |
|
568
|
0 |
0 |
if defined $dc->{'sock'} |
|
576
|
0 |
0 |
if $dc->{'encoding'} and utf8::is_utf8($msg) |
|
584
|
0 |
0 |
if $dc->{'encoding'} |
|
592
|
0 |
0 |
unless defined $dc->{'sock'} |
|
608
|
0 |
0 |
unless $fh |
|
609
|
0 |
0 |
if ($fh->read($size_packed, $ilen) || 0) != $ilen |
|
611
|
0 |
0 |
unless defined $size_packed |
|
620
|
0 |
0 |
unless $fh |
|
622
|
0 |
0 |
if $nread != $nbytes |
|
636
|
0 |
0 |
if $_[0]{'mode'} eq 'json' |
|
637
|
0 |
0 |
if $_[0]{'mode'} eq 'table' |
|
638
|
0 |
0 |
if $_[0]{'mode'} eq 'text' |
|
639
|
0 |
0 |
if $_[0]{'mode'} eq 'html' |
|
653
|
0 |
0 |
if $dc->{'encoding'} and not utf8::is_utf8($buf) |
|
665
|
0 |
0 |
if ($bufline =~ /^Corpora Distribution\:(.*)$/) { } |
|
|
0 |
0 |
elsif ($bufline =~ /^Relevant Documents Distribution:(.*)$/) { } |
|
673
|
0 |
0 |
if $dc->{'keepRaw'} |
|
675
|
0 |
0 |
if ($dc->{'parseMeta'} or $dc->{'parseContext'}) |
|
680
|
0 |
0 |
if ($dc->{'parseMeta'}) |
|
688
|
0 |
0 |
if $dc->{'parseContext'} |
|
692
|
0 |
0 |
if $dc->{'expandFields'} |
|
716
|
0 |
0 |
if ($sbuf =~ /$hls/) { } |
|
723
|
0 |
0 |
if ($w->[1] =~ /$hlw0/ and $$w[$#$w] =~ /$hlw1/) |
|
736
|
0 |
0 |
if (not @{$sents->[1];}) { } |
|
759
|
0 |
0 |
if $dc->{'encoding'} and not utf8::is_utf8($buf) |
|
771
|
0 |
0 |
if $dc->{'keepRaw'} |
|
773
|
0 |
0 |
if ($dc->{'parseMeta'} or $dc->{'parseContext'}) |
|
777
|
0 |
0 |
if ($field eq 'keyword') { } |
|
|
0 |
0 |
elsif ($field eq 'indices') { } |
|
|
0 |
0 |
elsif ($field =~ /^\s*\
|
|
|
0 |
0 |
elsif ($dc->{'parseMeta'}) { } |
|
791
|
0 |
0 |
if $dc->{'parseContext'} |
|
795
|
0 |
0 |
if $field =~ /^(?:scan|orig|page|rank(?:_debug)?)$/ |
|
803
|
0 |
0 |
if $dc->{'expandFields'} |
|
826
|
0 |
0 |
if ($sbuf =~ /^\s*/) { } |
|
833
|
0 |
0 |
if ($w->[1] =~ /$hlw0/ and $$w[$#$w] =~ /$hlw1/) |
|
846
|
0 |
0 |
if (not @{$sents->[1];}) { } |
|
867
|
0 |
0 |
if ($dc->{'encoding'} and not utf8::is_utf8($$bufr)) |
|
877
|
0 |
0 |
unless defined $jxs |
|
891
|
0 |
0 |
unless $hits->{'hits_'} |
|
892
|
0 |
0 |
if $dc->{'expandFields'} |
|
903
|
0 |
0 |
if defined $_ |
|
904
|
0 |
0 |
unless $items[0] =~ /^0 / |
|
906
|
0 |
0 |
wantarray ? : |