diff options
author | Robin Edwards <robin.ge@gmail.com> | 2013-03-20 12:15:29 +0000 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2013-03-20 12:22:48 +0000 |
commit | 6910b7be19c747c5b8044a58c1877272530957db (patch) | |
tree | 810c1a9d019b171004b238497d6fe96f928a5257 /lib/Net/Riak/Role/PBC/Bucket.pm | |
parent | Bump version for release (diff) | |
download | net-riak-6910b7be19c747c5b8044a58c1877272530957db.tar.gz |
Clean up ws
Diffstat (limited to 'lib/Net/Riak/Role/PBC/Bucket.pm')
-rw-r--r-- | lib/Net/Riak/Role/PBC/Bucket.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lib/Net/Riak/Role/PBC/Bucket.pm b/lib/Net/Riak/Role/PBC/Bucket.pm index aa7d7fa..6cd4240 100644 --- a/lib/Net/Riak/Role/PBC/Bucket.pm +++ b/lib/Net/Riak/Role/PBC/Bucket.pm @@ -1,7 +1,5 @@ package Net::Riak::Role::PBC::Bucket; - use Moose::Role; -use Data::Dumper; sub get_properties { my ( $self, $name, $params ) = @_; @@ -29,7 +27,7 @@ sub get_keys { if ( defined $_[0]->keys ) { if ($params->{cb}) { $params->{cb}->($_) for @{ $_[0]->keys }; - } + } else { push @$keys, @{ $_[0]->keys }; } @@ -37,10 +35,7 @@ sub get_keys { } ); - return $params->{cb} ? undef : $keys; + return $params->{cb} ? undef : $keys; } - - 1; - |