blib/lib/Clustericious/Client.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 24 | 99 | 24.2 |
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'}/ |
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 || '' |
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] |