il' => $self->email,
'X-Auth-Key' => $self->key,
'Content-Type' => 'application/json',
};
$header->{'X-Auth-User-Service-Key'} = $self->user_service_key if $self->user_servic
) {
@extra = (json => $params);
}
my $tx = $self->ua->build_tx($method => $url => $header => @extra );
$tx = $self->ua->start($tx);
return $tx->res->json if ($tx->res->header
s->content_type || '') =~ /json/;
return $tx->res->body if ($tx->res->headers->content_type || '') =~ /application\/octet-stream/;
my $err = $tx->error;
croak "$err->{code} response: $err