package AnyEvent::Net::Amazon::S3::Request::SetObjectAccessControl;
# ABSTRACT: An internal class to set an object's access control
our $VERSION = 'v0.01.0.57'; # VERSION
use strict;
use warnings;
use Module::AnyEvent::Helper::Filter -as => __PACKAGE__,
-target => substr(__PACKAGE__, 10),
-transformer => 'Net::Amazon::S3';
1;
__END__
=pod
=head1 NAME
AnyEvent::Net::Amazon::S3::Request::SetObjectAccessControl - An internal class to set an object's access control
=head1 VERSION
version v0.01.0.57
=head1 SYNOPSIS
my $http_request = AnyEvent::Net::Amazon::S3::Request::SetObjectAccessControl->new(
s3 => $s3,
bucket => $bucket,
key => $key,
acl_short => $acl_short,
acl_xml => $acl_xml,
)->http_request;
=head1 DESCRIPTION
This module is the same as L<Net::Amazon::S3::Request::SetObjectAccessControl>, except for its name.
=for test_synopsis no strict 'vars';
=head1 METHODS
=head2 http_request
This method returns a HTTP::Request object.
=head1 AUTHOR
Yasutaka ATARASHI <yakex@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Yasutaka ATARASHI.
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