sub get_s3_object()

in smime-signature-validator/handler.pl [97:105]

• 9 lines of code
• 1 McCabe index (conditional complexity)

sub get_s3_object {
    my ($bucket, $key) = @_;
    my $s3 = Paws->service('S3', region => 'us-east-1');
    my $res = $s3->GetObject(
        Bucket => $bucket,
        Key => $key,
    );
    return $res->Body;
}