Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Net/Amazon/S3/Request/Role/HTTP/Header

Name	Size	Perms	Modified	Actions
[ .. / .. ]
ACL.pm	948 B	-rw-r--r--	2022-07-16 23:46:00	Edit Del
Content_length.pm	978 B	-rw-r--r--	2022-07-16 23:46:00	Edit Del
Content_md5.pm	1.01 KB	-rw-r--r--	2022-07-16 23:46:00	Edit Del
Content_type.pm	1.02 KB	-rw-r--r--	2022-07-16 23:46:00	Edit Del
Copy_source.pm	1.29 KB	-rw-r--r--	2022-07-16 23:46:00	Edit Del
Encryption.pm	994 B	-rw-r--r--	2022-07-16 23:46:00	Edit Del

Editing: ACL.pm (948 B)

package Net::Amazon::S3::Request::Role::HTTP::Header::ACL;
# ABSTRACT: Headers builders for ACL
$Net::Amazon::S3::Request::Role::HTTP::Header::ACL::VERSION = '0.991';
use Moose::Role;
use Moose::Util::TypeConstraints;

use Carp ();

with 'Net::Amazon::S3::Role::ACL';

around _request_headers => sub {
	my ($inner, $self) = @_;

	return +(
		$self->$inner,
		$self->acl ? $self->acl->build_headers : (),
	);
};

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Net::Amazon::S3::Request::Role::HTTP::Header::ACL - Headers builders for ACL

=head1 VERSION

version 0.991

=head1 AUTHOR

Branislav Zahradník <barney@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022 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