clean

1 files changed, 8 insertions, 39 deletions

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 04f40d2..1408777 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -12,25 +12,14 @@ with 'Net::Riak::Role::Replica' => {keys => [qw/r w dw/]};
 with 'Net::Riak::Role::Base' => {classes =>
       [{name => 'bucket', required => 1}, {name => 'client', required => 1}]};
 
-has key => (
-    is       => 'rw',
-    isa      => 'Str',
-    required => 1
-);
-has data => (
-    is      => 'rw',
-    isa     => 'Any',
-    clearer => '_clear_data'
-);
-has content_type => (
-    is      => 'rw',
-    isa     => 'Str',
-    default => 'application/json'
-);
-has status => (
-    is  => 'rw',
-    isa => 'Int'
-);
+has key => (is => 'rw', isa => 'Str', required => 1);
+has status       => (is => 'rw', isa => 'Int');
+has exists       => (is => 'rw', isa => 'Bool', default => 0,);
+has data         => (is => 'rw', isa => 'Any', clearer => '_clear_data');
+has vclock       => (is => 'rw', isa => 'Str', predicate => 'has_vclock',);
+has content_type => (is => 'rw', isa => 'Str', default => 'application/json');
+has _headers     => (is => 'rw', isa => 'HTTP::Response',);
+has _jsonize     => (is => 'rw', isa => 'Bool', lazy => 1, default => 1,);
 has links => (
     traits     => ['Array'],
     is         => 'rw',
@@ -44,16 +33,6 @@ has links => (
     },
     clearer => '_clear_links',
 );
-has exists => (
-    is      => 'rw',
-    isa     => 'Bool',
-    default => 0,
-);
-has vclock => (
-    is        => 'rw',
-    isa       => 'Str',
-    predicate => 'has_vclock',
-);
 has siblings => (
     traits     => ['Array'],
     is         => 'rw',
@@ -71,16 +50,6 @@ has siblings => (
     },
     clearer => '_clear_links',
 );
-has _headers => (
-    is  => 'rw',
-    isa => 'HTTP::Response',
-);
-has _jsonize => (
-    is      => 'rw',
-    isa     => 'Bool',
-    lazy    => 1,
-    default => 1,
-);
 
 sub store {
     my ($self, $w, $dw) = @_;