From ce47f3bb5e8c69a59b678c8ff8956d8a368bcb32 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 14 Jun 2010 17:53:00 +0200
Subject: add mx::role::parameterized for replicas, bucket and client

---
 lib/Net/Riak/Link.pm | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

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

diff --git a/lib/Net/Riak/Link.pm b/lib/Net/Riak/Link.pm
index c5ed863..980aabb 100644
--- a/lib/Net/Riak/Link.pm
+++ b/lib/Net/Riak/Link.pm
@@ -4,16 +4,9 @@ package Net::Riak::Link;
 
 use Moose;
 
-has client => (
-    is       => 'ro',
-    isa      => 'Net::Riak::Client',
-    required => 0,
-);
-has bucket => (
-    is       => 'ro',
-    isa      => 'Net::Riak::Bucket',
-    required => 1,
-);
+with 'Net::Riak::Role::Base' => {classes =>
+      [{name => 'client', required => 0}, {name => 'bucket', required => 1},]};
+
 has key => (
     is      => 'rw',
     isa     => 'Str',
-- 
cgit v1.2.3