RequestResponseWrapper.pm

package Plack::Middleware::RequestResponseWrapper;
use strict;
use warnings;
use base qw( Plack::Middleware );

use Plack::Request;
use Plack::Response;

sub call {
    my $self = shift;

    my $req = Plack::Request->new(shift);
    my $res = $self->app->($req);

    return $res->finalize;
}

1;

__END__

=head1 NAME

Plack::Middleware::RequestResponseWrapper - Wraps your app with Plack::Request and Plack::Response

=head1 SYNOPSIS

  # in app.psgi
  use Plack::Builder;
  use Plack::Middleware qw(RequestResponseWrapper);

  my $app = sub {
      my($req, $res) = @_;
      $res->code(200);
      $res->header('Content-Type' => 'text/plain');
      $res->body('Hello World');
  };

  builder {
      enable Plack::Middleware::RequestResponseWrapper;
      $app;
  };

=cut