Yet Another CPAN Grep

AWS-S3 ( L/LE/LEEJO/AWS-S3-1.00.tar.gz, LEEJO, 2025; MetaCPAN )

AWS-S3/lib/AWS/S3/Bucket.pm ( view source; MetaCPAN )

cf->create_origin_access_identity( Comment => "Access to s3://" . $s->name, );
    $s->policy( <<"JSON");
{
	"Version":"2008-10-17",
	"Id":"PolicyForCloudFrontPrivateContent",
	"Statement":[{
			"Sid"

d ]}"
			},
			"Action": "s3:GetObject",
			"Resource": "arn:aws:s3:::@{[ $s->name ]}/*"
		}
	]
}
JSON
}    # end enable_cloudfront_distribution()

sub files {
    my ( $s, %args ) = @_;

    return A

ices.com/AmazonS3/latest/API/index.html?RESTBucketPUT.html>

=head2 policy

Read-only.  String of JSON.

Looks something like this:

  {
    "Version":"2008-10-17",
    "Id":"aaaa-bbbb-cccc-dddd",

AWS-S3 ( L/LE/LEEJO/AWS-S3-1.00.tar.gz, LEEJO, 2025; MetaCPAN )

AWS-S3/lib/AWS/S3/Request/SetBucketPolicy.pm ( view source; MetaCPAN )

::S3::Request::SetBucketPolicy;

use Moose;
use AWS::S3::Signer;
use AWS::S3::ResponseParser;
use JSON::XS;

with 'AWS::S3::Roles::Request';

has 'bucket' => ( is => 'ro', isa => 'Str', required => 1

, not sure if it ever worked on VSO
    # Must be able to decode the JSON string:
    # where => sub {
    #     eval { decode_json( $_ ); 1 };
    # }
);

has '+_expect_nothing' => ( default => 1 );