From b4667b6bf6cd26b593d182444e02ded8e5c94bb2 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 18:14:56 +0200
Subject: simplify links_to_header; add delegation

---
 lib/Net/Riak/Object.pm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

(limited to 'lib')

diff --git a/lib/Net/Riak/Object.pm b/lib/Net/Riak/Object.pm
index 1408777..adcc87a 100644
--- a/lib/Net/Riak/Object.pm
+++ b/lib/Net/Riak/Object.pm
@@ -30,6 +30,7 @@ has links => (
     handles    => {
         count_links => 'elements',
         append_link => 'push',
+        has_links   => 'count',
     },
     clearer => '_clear_links',
 );
@@ -70,7 +71,7 @@ sub store {
         $request->header('X-Riack-Vclock' => $self->vclock);
     }
 
-    if ($self->count_links > 0) {
+    if ($self->has_links) {
         $request->header('link' => $self->_links_to_header);
     }
 
@@ -87,13 +88,8 @@ sub store {
 }
 
 sub _links_to_header {
-    my $self        = shift;
-    my $header_link = '';
-    foreach my $l ($self->links) {
-        $header_link .= ', ' if ($header_link ne '');
-        $header_link .= $l->to_link_header($self->client);
-    }
-    $header_link;
+    my $self = shift;
+    join(', ', map { $_->to_link_header($self->client) } $self->links);
 }
 
 sub load {
-- 
cgit 1.4.1