diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/Riak/Role/REST/Object.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Net/Riak/Role/REST/Object.pm b/lib/Net/Riak/Role/REST/Object.pm index 1a27d23..e3341b3 100644 --- a/lib/Net/Riak/Role/REST/Object.pm +++ b/lib/Net/Riak/Role/REST/Object.pm @@ -1,7 +1,6 @@ package Net::Riak::Role::REST::Object; use Moose::Role; -use Data::Dumper; use JSON; sub store_object { @@ -33,8 +32,7 @@ sub store_object { $request->header('link' => $self->_links_to_header($object)); } - if ( $object->i2indexes) { - + if ($object->i2indexes) { foreach (keys %{$object->i2indexes}) { $request->header(':x-riak-index-' . lc($_) => $object->i2indexes->{$_}); } @@ -102,9 +100,9 @@ sub populate_object { } $HTTP::Headers::TRANSLATE_UNDERSCORE = 0; - foreach ( $http_response->header_field_names ) { + foreach ($http_response->header_field_names) { next unless /^X-Riak-Index-(.+_bin)$/ || /^X-Riak-Index-(.+_int)$/; - $obj->add_index(lc($1), $http_response->header($_) ) + $obj->add_index(lc($1), $http_response->header($_)) } $HTTP::Headers::TRANSLATE_UNDERSCORE = 1; |