From f743f767969331089097397053f21dcd4a442ef0 Mon Sep 17 00:00:00 2001
From: Robin Edwards <robin.ge@gmail.com>
Date: Tue, 9 Nov 2010 09:45:57 +0000
Subject: added delete_object method

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

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

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