diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Net/Riak/Bucket.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/Net/Riak/Bucket.pm b/lib/Net/Riak/Bucket.pm index 8f263cf..0e7aa63 100644 --- a/lib/Net/Riak/Bucket.pm +++ b/lib/Net/Riak/Bucket.pm @@ -65,6 +65,15 @@ sub get { $obj; } +sub delete_object { + my ($self, $key) = @_; + Net::Riak::Object->new( + client => $self->client, + bucket => $self, + key => $key + )->delete; +} + sub set_property { my ($self, $key, $value) = @_; $self->set_properties({$key => $value}); @@ -159,6 +168,8 @@ sub new_object { my $obj2 = $bucket->new_object('foo2', {...}); $object->store; + $bucket->delete_object($key); + =head1 DESCRIPTION The L<Net::Riak::Bucket> object allows you to access and change information about a Riak bucket, and provides methods to create or retrieve objects within the bucket. @@ -209,6 +220,12 @@ Create a new L<Net::Riak::Object> object. Additional Object constructor argument Retrieve an object from Riak. +=item delete_object + + $bucket->delete_object($key); + +Delete an object by key + =item n_val my $n_val = $bucket->n_val; |