Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (11 sloc) 200 Bytes
#!/usr/bin/perl
use Plack::Request;
use Data::Dumper;
my $app = sub {
my $req = Plack::Request->new(shift);
return [
200,
[ 'Content-type', 'text/plain' ],
[ Dumper $req ],
];
}