diff options
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/Riak/Client.pm | 4 | ||||
-rw-r--r-- | lib/Net/Riak/MapReduce.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm index e76a0ef..dbe3c16 100644 --- a/lib/Net/Riak/Client.pm +++ b/lib/Net/Riak/Client.pm @@ -30,13 +30,13 @@ has client_id => ( has http_request => ( is => 'rw', isa => 'HTTP::Request', -); +); has http_response => ( is => 'rw', isa => 'HTTP::Response', handles => ['is_success'] -); +); with 'Net::Riak::Role::UserAgent'; with qw/ diff --git a/lib/Net/Riak/MapReduce.pm b/lib/Net/Riak/MapReduce.pm index 14e4007..8ebe563 100644 --- a/lib/Net/Riak/MapReduce.pm +++ b/lib/Net/Riak/MapReduce.pm @@ -54,7 +54,7 @@ sub add { }while(my $arg = shift @_); return $self; } - + if (!scalar @_) { if (blessed($arg)) { $self->add_object($arg); @@ -212,7 +212,7 @@ sub run { my $query = $riak->add("Cats"); $query->map( - 'function(v, d, a) { return [v]; }', + 'function(v, d, a) { return [v]; }', arg => [qw/some params to your function/] ); |