1package Net::Riak::Types;
2{
3  $Net::Riak::Types::VERSION = '0.1702';
4}
5
6use MooseX::Types::Moose qw/Str ArrayRef HashRef/;
7use MooseX::Types::Structured qw(Tuple Optional Dict);
8use MooseX::Types -declare =>
9  [qw(Socket Client HTTPResponse HTTPRequest RiakHost)];
10
11class_type Socket,       { class => 'IO::Socket::INET' };
12class_type Client,       { class => 'Net::Riak::Client' };
13class_type HTTPRequest,  { class => 'HTTP::Request' };
14class_type HTTPResponse, { class => 'HTTP::Response' };
15
16subtype RiakHost, as ArrayRef [HashRef];
17
18coerce RiakHost, from Str, via {
19    [ { node => $_, weight => 1 } ];
20};
21
221;
23
24__END__
25
26=pod
27
28=head1 NAME
29
30Net::Riak::Types
31
32=head1 VERSION
33
34version 0.1702
35
36=head1 AUTHOR
37
38franck cuny <franck@lumberjaph.net>, robin edwards <robin.ge@gmail.com>
39
40=head1 COPYRIGHT AND LICENSE
41
42This software is copyright (c) 2013 by linkfluence.
43
44This is free software; you can redistribute it and/or modify it under
45the same terms as the Perl 5 programming language system itself.
46
47=cut
48