view release on metacpan or  search on metacpan

plackonce  view on Meta::CPAN

) or exit 1;

sub usage {
    die "usage: $0 foo.psgi GET '/some/url?param=bar'\n";
}

my $psgi   = shift or usage();
my $method = shift or usage();
my $url    = shift or usage();

my $app = require $psgi;

my $request = HTTP::Request->new($method, $url);
$request->header(%headers);
$request->dump(maxlength => 2000);

my $res = HTTP::Response->from_psgi( $app->($request->to_psgi) );
$res->dump(maxlength => 5000);