diff options
author | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:56:59 +0000 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:56:59 +0000 |
commit | 86c84793db0562a0cabe57e322d428d4d96eeaec (patch) | |
tree | 3b9e1a2cf138af00c7f0ad4a405448c1a65dd72b /lib/Net/Riak | |
parent | Fix ws (diff) | |
download | net-riak-86c84793db0562a0cabe57e322d428d4d96eeaec.tar.gz |
Cleanup
Diffstat (limited to 'lib/Net/Riak')
-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; |