Fixing S3 PutBucketLifecycleConfiguration and GetBucketLifecycleConfiguration

[pplu]

From a mail exchange (reproduced with permission:

i still have to modify Paws::Net::RestXmlCaller to add this to get PutBucketLifecycleConfiguration & GetBucketLifecycleConfiguration working. they complain about MD5 without it. (yes, this patch was inspired by a previous github bug i saw).

  …
if (my $xml_body = $self->_to_xml_body($call)){
     $request->content($xml_body);
   }

######## DCH MD5 patch start

   if($call->{LifecycleConfiguration})
   {
     warn "dont forget you are using a patched version of Paws::Net::RestXmlCaller\n";
     use MIME::Base64 qw(encode_base64);
     use Digest::MD5 'md5';
     my $content_md5 = encode_base64( md5( $request->content ) );
     chomp $content_md5;
     $request->headers->header( "Content-MD5" => $content_md5 );
   }

######### DCH MD5 patch end

   if ($call->can('_stream_param')) {
…

I think that the fix would be adding in the Paws botocore fork the ContentMD5 parameter

aws-sdk-perl/auto-lib/Paws/S3/PutBucketEncryption.pm

Line 5 in b700424

has ContentMD5 => (is => 'ro', isa => 'Str', header_name => 'Content-MD5', auto => 'MD5', traits => ['AutoInHeader']);

[castaway]

We have this included as part of #244

[byterock]

Should also be fixed in this branch

https://github.com/byterock/aws-sdk-perl/tree/s3ObjectTagging