| line |
true |
false |
branch |
|
31
|
1 |
0 |
$^P ? :
|
|
99
|
0 |
0 |
if (UNIVERSAL::isa($url, 'ARRAY')) { }
|
|
110
|
0 |
0 |
if (UNIVERSAL::isa($_, 'HASH')) { }
|
|
|
0 |
0 |
elsif (m[^(?:://)?\?]) { }
|
|
127
|
0 |
0 |
if ($cli->{'fork'} and not $WANT_THREADS)
|
|
133
|
0 |
0 |
if (@_)
|
|
146
|
0 |
0 |
unless $cli->{'lazy'}
|
|
180
|
0 |
0 |
ref $cli && $cli->{'opts'} ? :
|
|
187
|
0 |
0 |
if not $cli->{'lazy'} and $cli->{'clis'} and $cli->{'clis'}[$i]
|
|
188
|
0 |
0 |
unless my $url = $cli->{'urls'}[$i]
|
|
190
|
0 |
0 |
unless my $sub = 'DiaColloDB::Client'->new($url, $cli->dbOptions, %opts)
|
|
217
|
0 |
0 |
if ($WANT_THREADS and $cli->{'fork'}) { }
|
|
219
|
0 |
0 |
if UNIVERSAL::can('PDL', 'no_clone_skip_warning')
|
|
229
|
0 |
0 |
if $thrs[$i]->error
|
|
240
|
0 |
0 |
wantarray ? :
|
|
252
|
0 |
0 |
unless $sub->dbinfo
|
|
271
|
0 |
0 |
unless $_->{'timestamp'}
|
|
282
|
0 |
0 |
if grep({defined $_;} @$avals) != @dtrs
|
|
293
|
0 |
0 |
if grep({defined $_;} @$rvals) != @dtrs
|
|
301
|
0 |
0 |
if grep {$_->{'attrs'};} @$rvals
|
|
303
|
0 |
0 |
if grep {$_->{'meta'};} @$rvals
|
|
338
|
0 |
0 |
if $rel eq 'ddc' and $cli->{'ddcServer'}
|
|
345
|
0 |
0 |
$rel eq 'ddc' ? :
|
|
347
|
0 |
0 |
$fudge == 0 ? :
|
|
|
0 |
0 |
$fudge < 0 ? :
|
|
355
|
0 |
0 |
unless $sub->profile($rel, %opts, 'strings', 1, 'kbest', $kfudge, 'cutoff', '', 'fill', 1)
|
|
359
|
0 |
0 |
if ($cli->{'extend'} and @mps > 1)
|
|
363
|
0 |
0 |
if ($rel eq 'ddc' and ($cli->{'fudge'} // 0) > 0)
|
|
366
|
0 |
0 |
$fudge == 0 ? :
|
|
382
|
0 |
0 |
unless $sub->extend($rel, %opts, 'strings', 1, 'score', 'f', 'cutoff', '', 'fill', 1, 'slice2keys', &JSON::to_json($$xkeys[$_[1]], {'allow_nonref', 1}))
|
|
387
|
0 |
0 |
if defined $mpx[$_]
|
|
392
|
0 |
0 |
unless my $mp = shift @mps
|
|
395
|
0 |
0 |
unless ($cli->{'logFudge'} // 'off') =~ /^(?:off|none)$/
|
|
401
|
0 |
0 |
unless ($cli->{'logFudge'} // 'off') =~ /^(?:off|none)$/
|
|
417
|
0 |
0 |
if $rel eq 'ddc' and $cli->{'ddcServer'}
|
|
425
|
0 |
0 |
unless $sub->extend($rel, %opts, 'strings', 1)
|
|
430
|
0 |
0 |
unless my $mp = shift @mps
|
|
448
|
0 |
0 |
if $rel eq 'ddc' and $cli->{'ddcServer'}
|
|
454
|
0 |
0 |
exists $opts{"a$_"} ? :
|
|
455
|
0 |
0 |
exists $opts{"b$_"} ? :
|
|
459
|
0 |
0 |
unless my $mpa = $cli->profile($rel, %opts, %aopts, %popts)
|
|
460
|
0 |
0 |
unless my $mpb = $cli->profile($rel, %opts, %bopts, %popts)
|
|
466
|
0 |
0 |
unless $opts{'global'}
|
|
479
|
0 |
0 |
unless $cli->{'ddcServer'}
|
|
486
|
0 |
0 |
unless my $coldb = 'DiaColloDB'->new('ddcServer', $cli->{'ddcServer'}, 'attrs', [sort(map({$_->{'name'};} @{$$dbinfo{'attrs'};}))])
|
|
493
|
0 |
0 |
unless my $coderef = $coldb->can($method)
|