diff options
-rw-r--r-- | lib/Net/Riak/Object.pm | 47 |
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) = @_; |