The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

use Test::More;
use Test::Fatal;

use Plack::Middleware::Debug::Log4perl;

ok my $app = sub { [200, ['Content-Type' => 'text/plain'], ['Hello!']] },
  'made a plack compatible application';

is(
  exception { $app = Plack::Middleware::Debug::Log4perl->wrap($app) },
  undef,
  'No errors wrapping the application',
);

done_testing();