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