# Copyright (C) all contributors # License: AGPL-3.0+ use v5.12; use warnings; use Plack::Builder; my $pi_config = $ENV{PI_CONFIG} // 'unset'; # capture ASAP my $app = sub { my ($env) = @_; $env->{'psgi.errors'}->print("ALT\n"); [ 200, ['Content-Type', 'text/plain'], [ $pi_config ] ] }; builder { enable 'ContentLength'; enable 'Head'; $app; }