The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Plack::Builder;
use Test::More;

my $handler = builder {
    enable "Plack::Middleware::XFramework",
        framework => 'Dog';
    sub {
        [200, [], ['ok']]
    };
};

my $res = $handler->(+{});
is_deeply $res, [200, ['X-Framework' => 'Dog'], ['ok']];

done_testing;