File Coverage

blib/lib/Net/Amazon/S3/Operation/Bucket/Acl/Set/Request.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition	8	8	100.0
subroutine	5	5	100.0
pod	0	1	0.0
total	33	34	97.0

package Net::Amazon::S3::Operation::Bucket::Acl::Set::Request;
# ABSTRACT: An internal class to set a bucket's access control
$Net::Amazon::S3::Operation::Bucket::Acl::Set::Request::VERSION = '0.99';
use Moose 0.85;
use MooseX::StrictConstructor 0.16;

use Carp ();

extends 'Net::Amazon::S3::Request::Bucket';

with 'Net::Amazon::S3::Request::Role::HTTP::Header::ACL';

has 'acl_xml'   => (
	is => 'ro',
	isa => 'Maybe[Str]',
	required => 0,
);

with 'Net::Amazon::S3::Request::Role::Query::Action::Acl';
with 'Net::Amazon::S3::Request::Role::HTTP::Method::PUT';

__PACKAGE__->meta->make_immutable;

sub _request_content {
	my ($self) = @_;

	return $self->acl_xml || '';
}

sub BUILD {
	my ($self) = @_;

	unless ($self->acl_xml || $self->acl) {
		Carp::confess "need either acl_xml or acl";
	}

	if ($self->acl_xml && $self->acl) {
		Carp::confess "can not provide both acl_xml and acl";
	}
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::Amazon::S3::Operation::Bucket::Acl::Set::Request - An internal class to set a bucket's access control

=head1 VERSION

version 0.99

=head1 SYNOPSIS

	my $request = Net::Amazon::S3::Operation::Bucket::Acl::Set::Request->new (
		s3        => $s3,
		bucket    => $bucket,
		acl_short => $acl_short,
		acl_xml   => $acl_xml,
	);

=head1 DESCRIPTION

Implements operation L<< PutBucketAcl|https://docs.aws.amazon.com/AmazonS3/latest/API/API_PutBucketAcl.html >>

This module sets a bucket's access control.

=for test_synopsis no strict 'vars'

=head1 METHODS

=head2 http_request

This method returns a HTTP::Request object.

=head1 AUTHOR

Branislav Zahradník <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.

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