diff options
author | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:59:41 +0000 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:59:41 +0000 |
commit | d5807f65b091f270191d7a9b52d81151c24caba5 (patch) | |
tree | 626a9db5bfd0709bd4e62d2332a912a69c7b0a5e /lib/Net/Riak | |
parent | Fix ws (diff) | |
download | net-riak-d5807f65b091f270191d7a9b52d81151c24caba5.tar.gz |
Cleanup
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index 7cf3da3..b6f5d1e 100644 --- a/lib/Net/Riak/Role/REST/Search.pm +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -74,26 +74,18 @@ sub setup_indexing { } sub index { - my ($self, $bucket,$index,$first, $last) = @_; + my ($self, $bucket, $index, $first, $last) = @_; my $request; my @req = (); my $org_prefix = $self->prefix; - if ( defined($bucket) && defined($index) && defined($first) ) - { - @req = ( - 'buckets', - $bucket, - 'index', - $index, - $first - ); - - if ( defined($last) ) { push(@req, $last); } + if (defined $bucket && defined $index && defined $first) { + @req = ('buckets', $bucket, 'index', $index, $first); + push(@req, $last) if (defined $last); } - $request = $self->new_request('GET', [ @req ] ); + $request = $self->new_request('GET', [ @req ]); my $http_response = $self->send_request($request); JSON::decode_json($http_response->content)->{keys}; |