From fa1773ee20468186dc8f9450b7168e749c463e6e Mon Sep 17 00:00:00 2001 From: franck cuny Date: Tue, 11 May 2010 09:24:30 +0200 Subject: remove client_id --- lib/AnyEvent/Riak/Role/HTTPUtils.pm | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) (limited to 'lib/AnyEvent') diff --git a/lib/AnyEvent/Riak/Role/HTTPUtils.pm b/lib/AnyEvent/Riak/Role/HTTPUtils.pm index 1963d88..399f369 100644 --- a/lib/AnyEvent/Riak/Role/HTTPUtils.pm +++ b/lib/AnyEvent/Riak/Role/HTTPUtils.pm @@ -8,19 +8,11 @@ use URI; use MIME::Base64; -has client_id => ( - is => 'rw', - isa => 'Str', - default => - sub { "perl_anyevent_riak" . encode_base64(int(rand(10737411824)), '') } -); - sub _build_uri { - my ($self, $host, $path, $options) = @_; - my $uri = URI->new($host); + my ($self, $path, $options) = @_; + my $uri = URI->new($self->host); $uri->path(join("/", @$path)); $uri->query_form($self->_build_query($options)); - warn $uri->as_string; return $uri->as_string; } @@ -28,7 +20,6 @@ sub _build_headers { my ($self, $options) = @_; my $headers = delete $options->{headers} || {}; - warn $self->client_id; $headers->{'X-Riak-ClientId'} = $self->client_id; $headers->{'Content-Type'} = 'application/json' unless exists $headers->{'Content-Type'}; -- cgit 1.4.1