diff options
author | Gavin Carr <gavin@openfusion.com.au> | 2010-09-07 21:11:15 +0100 |
---|---|---|
committer | Gavin Carr <gavin@openfusion.com.au> | 2010-09-07 21:11:15 +0100 |
commit | 940e3989b6b380fc2f27a6e22d1458c7977c3566 (patch) | |
tree | 166626157170c98907b907341b18bfe70020c726 /lib | |
parent | add keys => 'stream' support to get_properties (diff) | |
download | net-riak-940e3989b6b380fc2f27a6e22d1458c7977c3566.tar.gz |
add stream => 1 params support to Bucket::get_keys
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Net/Riak/Bucket.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm index 9c246d5..9720e86 100644 --- a/lib/Net/Riak/Bucket.pm +++ b/lib/Net/Riak/Bucket.pm @@ -45,8 +45,10 @@ sub allow_multiples { } sub get_keys { - my $self = shift; - my $properties = $self->get_properties({keys => 'true', props => 'false'}); + my ($self, $params) = @_; + $params ||= {}; + my $key_mode = $params->{stream} ? 'stream' : 'true'; + my $properties = $self->get_properties({keys => $key_mode, props => 'false'}); return $properties->{keys}; } |