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::Exception;
use File::Temp;
use Test::More tests => 2;

my $app = sub {
    [
        200,
        ['Content-Type' => 'text/plain'],
        ['OK'],
    ];
};

dies_ok {
    builder {
        enable 'Recorder';
        $app;
    };
};

my $tempfile = File::Temp->new;
close $tempfile;
chmod 0, $tempfile->filename;

dies_ok {
    builder {
        enable 'Recorder', output => $tempfile->filename;
        $app;
    };
};