Update lib/Net/Riak/Role/REST.pm

1 files changed, 38 insertions, 1 deletions

diff --git a/lib/Net/Riak/Role/REST.pm b/lib/Net/Riak/Role/REST.pm
index 261d573..92ea3ae 100644
--- a/lib/Net/Riak/Role/REST.pm
+++ b/lib/Net/Riak/Role/REST.pm
@@ -1,4 +1,7 @@
 package Net::Riak::Role::REST;
+{
+  $Net::Riak::Role::REST::VERSION = '0.1600';
+}
 
 # ABSTRACT: role for REST operations
 
@@ -8,6 +11,7 @@ use Moose::Role;
 use MooseX::Types::Moose 'Bool';
 use Net::Riak::Types qw/HTTPResponse HTTPRequest/;
 use Data::Dump 'pp';
+use Data::Dumper;
 with qw/Net::Riak::Role::REST::Bucket 
     Net::Riak::Role::REST::Object 
     Net::Riak::Role::REST::Link
@@ -35,6 +39,12 @@ has disable_return_body => (
     default => 0
 );
 
+has ssl => (
+    is => 'rw',
+	isa => Bool,
+	default => 0
+);
+
 sub _build_path {
     my ($self, $path) = @_;
     $path = join('/', @$path);
@@ -44,6 +54,7 @@ sub _build_uri {
     my ($self, $path, $params) = @_;
 
     my $uri = URI->new($self->get_host);
+    if ( $uri =~ /^https:.+/ ) { $self->ssl(1); }
     $uri->path($self->_build_path($path));
     $uri->query_form(%$params);
     $uri;
@@ -61,8 +72,9 @@ sub send_request {
     my ($self, $req) = @_;
 
     $self->http_request($req);
+    
     my $r = $self->useragent->request($req);
-
+	
     $self->http_response($r);
 
     if ($ENV{RIAK_VERBOSE}) {
@@ -99,3 +111,28 @@ sub stats {
 }
 
 1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Net::Riak::Role::REST - role for REST operations
+
+=head1 VERSION
+
+version 0.1600
+
+=head1 AUTHOR
+
+franck cuny <franck@lumberjaph.net>, robin edwards <robin.ge@gmail.com>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2011 by linkfluence.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+