Skip to content
Newer
Older
100644 16 lines (11 sloc) 200 Bytes
1462b58 @davorg first commit
authored
1 #!/usr/bin/perl
2
3 use Plack::Request;
4 use Data::Dumper;
5
6 my $app = sub {
7
8 my $req = Plack::Request->new(shift);
9
10 return [
11 200,
12 [ 'Content-type', 'text/plain' ],
13 [ Dumper $req ],
14 ];
15 }
Something went wrong with that request. Please try again.