sub put_s3_object()

in smime-signature-validator/handler.pl [107:120]

• 14 lines of code
• 2 McCabe index (conditional complexity)

sub put_s3_object {
    my ($bucket, $key, $data) = @_;
    my $s3 = Paws->service('S3', region => 'us-east-1');
    my $res = eval { $s3->PutObject(
        Bucket => $bucket,
        Key => $key,
        Body => encode_json($data)
    )};
    if ( $@ ) {
        warn $@;
        return undef;
    }
    return 1;
}