gistfile1.txt

sub call {
    my ($self, $env) = @_;

    my $response = [...]; # regular PSGI response

    return sub {
        my $write = shift;
        $write->($response);
        post_hit_stuff();
    };
}