Fix remove_link

2 files changed, 8 insertions, 2 deletions

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 5efe5f9..1d2b56a 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -256,8 +256,11 @@ sub add_link {
 }
 
 sub remove_link {
-    my ($self, $link) = @_;
-    # XXX purge links!
+   my ($self, $link) = @_;
+   my @links = grep { $_->key ne $link->key } @{$self->links};
+   $self->_clear_links;
+   $self->append_link($_) for @links;
+   $self;
 }
 
 sub add {
diff --git a/t/90_bug_links.t b/t/90_bug_links.t
index e1f71db..dd7cc84 100644
--- a/t/90_bug_links.t
+++ b/t/90_bug_links.t
@@ -59,4 +59,7 @@ my $links = $test_links->links;
 is $links->[0]->key, 'griffinp', 'good owner for first link';
 is $links->[1]->key, 'griffins', 'good owner for second link';
 
+$test_links->remove_link($links->[0]);
+$links = $test_links->links;
+is $links->[0]->key, 'griffins', 'good owner for second link after a remove link';
 done_testing;