| line |
true |
false |
branch |
|
39
|
0 |
0 |
unless $self->{'CDC_server'} = my $server = delete $args->{'server'}
|
|
41
|
0 |
0 |
unless $self->{'CDC_ua'} = delete $args->{'user_agent'}
|
|
45
|
0 |
0 |
unless $self->{'CDC_couch'} = delete $args->{'couch'}
|
|
55
|
0 |
0 |
if length $username
|
|
83
|
0 |
0 |
if defined $args->{'client'}
|
|
84
|
0 |
0 |
if $args->{'clients'} and @{delete $args->{'clients'};}
|
|
93
|
0 |
0 |
unless my $username = delete $args{'username'}
|
|
94
|
0 |
0 |
unless my $password = delete $args{'password'}
|
|
96
|
0 |
0 |
if ($auth eq "BASIC")
|
|
101
|
0 |
0 |
unless $auth eq "COOKIE"
|
|
111
|
0 |
0 |
$_[0]->isReady ? :
|
|
123
|
0 |
0 |
if exists $args{'basic'}
|
|
129
|
0 |
0 |
$_[0]->isReady ? :
|
|
147
|
0 |
0 |
unless $self->{'CDC_roles'}
|
|
148
|
0 |
0 |
unless $self->{'CDC_roles'}
|
|
171
|
0 |
0 |
unless $cached =~ /^(?:YES|NEVER|RETRY|PING)$/
|
|
173
|
0 |
0 |
if (my $result = $self->{'CDC_info'})
|
|
175
|
0 |
0 |
if $cached eq "YES" or $cached eq "RETRY" and $result->isReady
|
|
184
|
0 |
0 |
if ($cached ne "PING")
|
|
196
|
0 |
0 |
if exists $self->{'CDC_version'}
|
|
199
|
0 |
0 |
unless $result->isReady
|
|
202
|
0 |
0 |
unless my $version = $result->values->{'version'}
|
|
210
|
0 |
0 |
unless my $answer = $result->answer->[$index]
|
|
247
|
0 |
0 |
defined $search ? :
|
|
272
|
0 |
0 |
$names ? :
|
|
289
|
0 |
0 |
unless my $answer = $result->answer->{'results'}[$index]
|
|
317
|
0 |
0 |
unless my $v = $values{$set}
|
|
341
|
0 |
0 |
unless my $history = delete $raw->{'history'}
|
|
375
|
0 |
0 |
unless my $answer = $result->answer->{'jobs'}[$index]
|
|
387
|
0 |
0 |
unless $values->{'jobs'}
|
|
390
|
0 |
0 |
unless $job->{'history'}
|
|
415
|
0 |
0 |
unless my $answer = $result->answer->{'jobs'}[$index]
|
|
437
|
0 |
0 |
unless $values->{'docs'}
|
|
447
|
0 |
0 |
if ($dbname ne "_replicator")
|
|
472
|
0 |
0 |
builtin::blessed($doc) ? :
|
|
505
|
0 |
0 |
if defined $self->{'CDC_node'}
|
|
508
|
0 |
0 |
unless $result->isReady
|
|
510
|
0 |
0 |
unless my $name = $result->value("name")
|
|
531
|
0 |
0 |
if $result
|