diff options
author | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:58:12 +0000 |
---|---|---|
committer | Robin Edwards <robin.ge@gmail.com> | 2013-03-01 12:58:12 +0000 |
commit | e30abec467ef20382a93f5bbca2d1895492450ac (patch) | |
tree | 406b03ebaffa897e976b67ab08f025bf24f68b1b /lib/Net/Riak | |
parent | Cleanup (diff) | |
download | net-riak-e30abec467ef20382a93f5bbca2d1895492450ac.tar.gz |
Fix ws
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Role/REST/Search.pm | 47 |
1 files changed, 23 insertions, 24 deletions
diff --git a/lib/Net/Riak/Role/REST/Search.pm b/lib/Net/Riak/Role/REST/Search.pm index f813578..7cf3da3 100644 --- a/lib/Net/Riak/Role/REST/Search.pm +++ b/lib/Net/Riak/Role/REST/Search.pm @@ -1,7 +1,6 @@ package Net::Riak::Role::REST::Search; use Moose::Role; use JSON; -use Data::Dumper; #ABSTRACT: Search interface @@ -75,29 +74,29 @@ sub setup_indexing { } sub index { - 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); } - } - - $request = $self->new_request('GET', [ @req ] ); - - my $http_response = $self->send_request($request); - JSON::decode_json($http_response->content)->{keys}; + 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); } + } + + $request = $self->new_request('GET', [ @req ] ); + + my $http_response = $self->send_request($request); + JSON::decode_json($http_response->content)->{keys}; } 1; |