From 06094dd3e7cc2d4b9299886037fc39f4344a2b9f Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 15:25:35 +0200
Subject: add n::r::client and now client is a n::r::client

---
 lib/Net/Riak/Client.pm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 lib/Net/Riak/Client.pm

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

diff --git a/lib/Net/Riak/Client.pm b/lib/Net/Riak/Client.pm
new file mode 100644
index 0000000..21a52e9
--- /dev/null
+++ b/lib/Net/Riak/Client.pm
@@ -0,0 +1,48 @@
+package Net::Riak::Client;
+
+use Moose;
+use MIME::Base64;
+
+with qw/Net::Riak::Role::REST Net::Riak::Role::UserAgent/;
+
+has host => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => 'http://127.0.0.1:8098'
+);
+has prefix => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => 'riak'
+);
+has mapred_prefix => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => 'mapred'
+);
+has r => (
+    is      => 'rw',
+    isa     => 'Int',
+    default => 2
+);
+has w => (
+    is      => 'rw',
+    isa     => 'Int',
+    default => 2
+);
+has dw => (
+    is      => 'rw',
+    isa     => 'Int',
+    default => 2
+);
+has client_id => (
+    is         => 'rw',
+    isa        => 'Str',
+    lazy_build => 1,
+);
+
+sub _build_client_id {
+    "perl_net_riak" . encode_base64(int(rand(10737411824)), '');
+}
+
+1;
-- 
cgit v1.2.3