From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use Test2::Require::Module 'Plack::Util';
use lib qw(./t/lib);
subtest 'Tests on Plack::Util::headers' => sub {
local $HTTPSecureHeadersTestApply::DATA_HEADERS = sub {
my ($headers) = @_;
my %data = @{$headers->headers};
return \%data;
};
local $HTTPSecureHeadersTestApply::CREATE_HEADERS = sub {
my (@args) = @_;
Plack::Util::headers(\@args);
};
HTTPSecureHeadersTestApply::main();
};
done_testing;