- my $request = $riak->client->new_request(
- 'PUT', [ 'riak', "koha.marcxml/$key" ]
- );
- $request->header('Content-Type' => 'text/xml');
- $request->content($marcxml);
- my $response = $riak->client->send_request($request);
-
- warn "$riak_url/riak/koha.marcxml/$key ", length($marcxml), " bytes\n";
-
- unless ($response->is_success) {
- die "Error put marcxml:", dump( $response );
- }
+ $riak->request( 'PUT' => "/koha.marcxml/$key", $marcxml, {
+ 'Content-Type' => 'text/xml',
+ } );