rt/t/data/plugins/RT-Extension-PSGIWrap/lib/RT/Extension/PSGIWrap.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package RT::Extension::PSGIWrap;

use base 'Plack::Middleware';

sub call {
    my ( $self, $env ) = @_;
    my $res = $self->app->($env);
    return $self->response_cb( $res, sub {
        my $headers = shift->[1];
        Plack::Util::header_set($headers, 'X-RT-PSGIWrap' => '1');
    } );
}

sub PSGIWrap { return shift->wrap(@_) }

1;