diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-14 17:53:00 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-14 17:54:23 +0200 |
commit | ce47f3bb5e8c69a59b678c8ff8956d8a368bcb32 (patch) | |
tree | e1542c99df3edd44e9434f244318ff2d871df633 /lib/Net/Riak/Role/Replica.pm | |
parent | is_alive moved to client (diff) | |
download | net-riak-ce47f3bb5e8c69a59b678c8ff8956d8a368bcb32.tar.gz |
add mx::role::parameterized for replicas, bucket and client
Diffstat (limited to 'lib/Net/Riak/Role/Replica.pm')
-rw-r--r-- | lib/Net/Riak/Role/Replica.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/lib/Net/Riak/Role/Replica.pm b/lib/Net/Riak/Role/Replica.pm new file mode 100644 index 0000000..d990de2 --- /dev/null +++ b/lib/Net/Riak/Role/Replica.pm @@ -0,0 +1,25 @@ +package Net::Riak::Role::Replica; + +use MooseX::Role::Parameterized; + +parameter keys => ( + isa => 'ArrayRef', + required => 1, +); + +role { + my $p = shift; + + my $keys = $p->keys; + + foreach my $k (@$keys) { + has $k => ( + is => 'rw', + isa => 'Int', + lazy => 1, + default => sub { (shift)->client->$k } + ); + } +}; + +1; |