From 940e3989b6b380fc2f27a6e22d1458c7977c3566 Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Tue, 7 Sep 2010 21:11:15 +0100
Subject: add stream => 1 params support to Bucket::get_keys

---
 lib/Net/Riak/Bucket.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/Net')

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};
 }
 
-- 
cgit v1.2.3