From 4df3b390870869295cfe1f5eb09721f01e8a1c0a Mon Sep 17 00:00:00 2001
From: Simon Wistow <simon@thegestalt.org>
Date: Fri, 28 Jan 2011 11:14:58 -0800
Subject: Allow creating of new_objects without keys

---
 lib/Net/Riak/Bucket.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/Net/Riak/Bucket.pm')

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;
 }
 
-- 
cgit 1.4.1