The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 1;
use HTTP::Engine::Response;

my $res = HTTP::Engine::Response->new(
    headers => {
        'X-Foo' => 'bar',
    },
);
is $res->header('X-Foo'), 'bar';