From fe83bf0d54cc2c3cbc207a9962cf6f2c723465fb Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Wed, 1 Sep 2010 20:02:04 +0100
Subject: allow Bucket::new_object to take additional args for Object::new

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

diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm
index e213cb9..2585668 100644
--- a/lib/Net/Riak/Bucket.pm
+++ b/lib/Net/Riak/Bucket.pm
@@ -106,12 +106,13 @@ sub set_properties {
 }
 
 sub new_object {
-    my ($self, $key, $data) = @_;
+    my ($self, $key, $data, @args) = @_;
     my $object = Net::Riak::Object->new(
         key    => $key,
         data   => $data,
         bucket => $self,
         client => $self->client,
+        @args,
     );
     $object;
 }
-- 
cgit v1.2.3