Clean up pull request

1 files changed, 7 insertions, 36 deletions

diff --git a/lib/Net/Riak/Role/REST.pm b/lib/Net/Riak/Role/REST.pm
index 92ea3ae..73b3c2a 100644
--- a/lib/Net/Riak/Role/REST.pm
+++ b/lib/Net/Riak/Role/REST.pm
@@ -1,7 +1,4 @@
 package Net::Riak::Role::REST;
-{
-  $Net::Riak::Role::REST::VERSION = '0.1600';
-}
 
 # ABSTRACT: role for REST operations
 
@@ -11,9 +8,8 @@ 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 
+with qw/Net::Riak::Role::REST::Bucket
+    Net::Riak::Role::REST::Object
     Net::Riak::Role::REST::Link
     Net::Riak::Role::REST::MapReduce
     Net::Riak::Role::REST::Search
@@ -41,8 +37,8 @@ has disable_return_body => (
 
 has ssl => (
     is => 'rw',
-	isa => Bool,
-	default => 0
+    isa => Bool,
+    default => 0
 );
 
 sub _build_path {
@@ -72,9 +68,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}) {
@@ -95,7 +91,7 @@ sub all_buckets {
     my $self = shift;
     my $request = $self->new_request('GET', [$self->prefix], {buckets => 'true'});
     my $response = $self->send_request($request);
-    die "Failed to fetch buckets.. are you running riak 0.14+?" 
+    die "Failed to fetch buckets.. are you running riak 0.14+?"
         unless $response->is_success;
     my $resp = JSON::decode_json($response->content);
     return ref ($resp->{buckets}) eq 'ARRAY' ? @{$resp->{buckets}} : ();
@@ -111,28 +107,3 @@ 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
-