use
strict;
use
warnings;
use
Test::More;
{
sub
new {
my
(
$class
,
%args
) =
@_
;
bless
{
%args
},
$class
;
}
sub
exists
{
my
(
$self
,
$key
) =
@_
;
exists
$self
->{
$key
}
}
sub
get {
my
(
$self
,
$key
) =
@_
;
$self
->{
$key
}
}
sub
set {
my
(
$self
,
$key
,
$value
) =
@_
;
$self
->{
$key
} =
$value
;
}
}
subtest
'Tests on headers with same interface as HTTP::Headers'
=>
sub
{
local
$HTTPSecureHeadersTestApply::CREATE_HEADERS
=
sub
{
MyHeaders->new(
@_
)
};
HTTPSecureHeadersTestApply::main();
};
done_testing;