diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-14 11:42:23 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-14 11:42:23 +0200 |
commit | 35dade03892a08cfd4d535b5a12362e0def7f696 (patch) | |
tree | 19ff51e677fad9c1fef536b8928986aa4858b1a2 /lib/Net/Riak/Link.pm | |
parent | initial import (diff) | |
download | net-riak-35dade03892a08cfd4d535b5a12362e0def7f696.tar.gz |
fix string to build links header
Diffstat (limited to '')
-rw-r--r-- | lib/Net/Riak/Link.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Net/Riak/Link.pm b/lib/Net/Riak/Link.pm index 43bace6..88bceaa 100644 --- a/lib/Net/Riak/Link.pm +++ b/lib/Net/Riak/Link.pm @@ -24,7 +24,7 @@ has tag => ( is => 'rw', isa => 'Str', lazy => 1, - default => '_', + default => sub {(shift)->bucket->name} ); sub to_link_header { @@ -33,9 +33,9 @@ sub to_link_header { my $link = ''; $link .= '</'; $link .= $client->prefix . '/'; - $link .= $self->bucket . '/'; + $link .= $self->bucket->name . '/'; $link .= $self->key . '>; riaktag="'; - $link .= self->tag . '"'; + $link .= $self->tag . '"'; return $link; } |