RT 4.2.11, ticket#13852

1 files changed, 16 insertions, 0 deletions

diff --git a/rt/t/data/plugins/RT-Extension-PSGIWrap/lib/RT/Extension/PSGIWrap.pm b/rt/t/data/plugins/RT-Extension-PSGIWrap/lib/RT/Extension/PSGIWrap.pm
new file mode 100644
index 000000000..1d0a55e33
--- /dev/null
+++ b/rt/t/data/plugins/RT-Extension-PSGIWrap/lib/RT/Extension/PSGIWrap.pm
@@ -0,0 +1,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;