diff options
author | Gavin Carr <gavin@openfusion.com.au> | 2010-09-01 20:02:04 +0100 |
---|---|---|
committer | Gavin Carr <gavin@openfusion.com.au> | 2010-09-01 20:04:35 +0100 |
commit | fe83bf0d54cc2c3cbc207a9962cf6f2c723465fb (patch) | |
tree | 6b734551f860c71cf68a0ea2eac50df93f5949c2 /lib/Net/Riak | |
parent | prepare for release (diff) | |
download | net-riak-fe83bf0d54cc2c3cbc207a9962cf6f2c723465fb.tar.gz |
allow Bucket::new_object to take additional args for Object::new
Diffstat (limited to 'lib/Net/Riak')
-rw-r--r-- | lib/Net/Riak/Bucket.pm | 3 |
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; } |