diff options
| author | Simon Wistow <simon@thegestalt.org> | 2011-01-28 11:14:58 -0800 |
|---|---|---|
| committer | Simon Wistow <simon@thegestalt.org> | 2011-01-28 11:14:58 -0800 |
| commit | 4df3b390870869295cfe1f5eb09721f01e8a1c0a (patch) | |
| tree | f10b3debdabb457bc7e22ce4b50ca21425c868ea /lib/Net | |
| parent | Allow POSTing of objects to get an autogenerated key (diff) | |
| download | net-riak-4df3b390870869295cfe1f5eb09721f01e8a1c0a.tar.gz | |
Allow creating of new_objects without keys
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Riak/Bucket.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm index 0e7aa63..cc48149 100644 --- a/lib/Net/Riak/Bucket.pm +++ b/lib/Net/Riak/Bucket.pm @@ -144,13 +144,14 @@ sub set_properties { sub new_object { my ($self, $key, $data, @args) = @_; - my $object = Net::Riak::Object->new( - key => $key, + my %opts = ( data => $data, bucket => $self, client => $self->client, @args, ); + $opts{key} = $key if defined $key; + my $object = Net::Riak::Object->new(%opts); $object; } |