From 86c84793db0562a0cabe57e322d428d4d96eeaec Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Fri, 1 Mar 2013 12:56:59 +0000
Subject: Cleanup

---
 lib/Net/Riak/Role/REST/Object.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'lib')

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;
 
-- 
cgit v1.2.3