diff options
Diffstat (limited to 'lib/Net/Riak/Bucket.pm')
| -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}; } |