Condition Coverage

blib/lib/Clustericious/Client.pm
Criterion Covered Total %
condition 24 99 24.2


and 3 conditions

line !l l&&!r l&&r condition
122 0 0 0 $self->res->code and $self->res->is_status_class(200)
131 0 0 0 $c->tx and $c->tx->error
132 0 0 0 $c->res and not $c->res->is_status_class(200)
255 0 4 0 $meta and $meta->get('auto_failover')
257 0 0 4 $self->server_url and not $url =~ /^http/
264 0 4 0 $method eq 'POST' and grep /^--/, @args
292 0 0 4 $meta and my $arg_spec = $meta->get('args')
311 0 0 0 $method eq 'GET' and $arg =~ s/^--//
0 0 0 $method eq 'GET' and $arg =~ s/^-//
0 0 0 $method eq 'POST' and not ref $arg
313 0 0 0 $meta and $meta->get('skip_existing')
334 0 0 0 $args[0] and ref $args[0] eq 'HASH'
348 3 0 1 $body and ref $body eq 'HASH'
364 4 0 0 ($tx->res->code || 0) == 401 and $auth_header = $tx->res->headers->www_authenticate
4 0 0 ($tx->res->code || 0) == 401 and $auth_header = $tx->res->headers->www_authenticate and not $url->userinfo
0 0 0 ($tx->res->code || 0) == 401 and $auth_header = $tx->res->headers->www_authenticate and not $url->userinfo and $self->_has_auth || $self->_can_auth
391 0 0 0 $ENV{'ACPS_SUPPRESS_404'} and $url =~ /$ENV{'ACPS_SUPPRESS_404'}/

or 2 conditions

line l !l condition
76 0 1 $ENV{'CLUSTERICIOUS_KEEP_ALIVE_TIMEOUT'} || 300
143 4 2 shift() || 'GET'
285 1 0 $body ||= {}
289 0 1 $body ||= {}
345 0 4 $$headers{'Connection'} ||= 'Close'
346 0 4 $$headers{'Accept'} ||= 'application/json'
364 0 4 $tx->res->code || 0
386 4 0 $msg ||= 'unknown error'
397 0 0 $res->body || ''

or 3 conditions

line l !l&&r !l&&!r condition
61 0 0 0 eval { do { $client->server->app($app) } } // $client->app($app)
130 0 0 3 $c->tx or $c->res
142 6 0 0 pop() || "/$subname"
203 0 0 0 shift() || "/$objname"
340 4 0 0 $url =~ /^http/i or $ENV{'HARNESS_ACTIVE'}
348 1 0 3 $body and ref $body eq 'HASH' or ref $body eq 'ARRAY'
364 0 0 0 $self->_has_auth || $self->_can_auth
375 0 0 0 $res->headers->content_type || do { WARN('No content-type from ' . _sanitize_url($url)); 'text/plain' }
505 0 0 0 $ENV{'USER'} // $ENV{'USERNAME'}
514 6 10 0 shift() || [caller 1]->[3]