diff options
-rw-r--r-- | lib/Net/Riak/Bucket.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm index 2a3e932..66e998e 100644 --- a/lib/Net/Riak/Bucket.pm +++ b/lib/Net/Riak/Bucket.pm @@ -44,7 +44,8 @@ sub allow_multiples { sub get_keys { my $self = shift; - $self->get_property('keys', {keys => 'true', props => 'false'}); + my $properties = $self->get_properties({keys => 'true', props => 'false'}); + return $properties->{keys}; } sub get { @@ -67,11 +68,11 @@ sub set_property { sub get_property { my ($self, $key, $params) = @_; my $props = $self->get_properties($params); - return $props->{$key}; + return $props->{props}->{$key}; } sub get_properties { - my ($self, $params) = @_; + my ($self, $params) = @_; $params->{props} = 'true' unless exists $params->{props}; $params->{keys} = 'false' unless exists $params->{keys}; |