allow Bucket::new_object to take additional args for Object::new

1 files changed, 2 insertions, 1 deletions

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