Skip to content
Newer
Older
100644 15 lines (10 sloc) 239 Bytes
ccf13e6 @yappo first commit
authored Sep 13, 2009
1 package Example;
2 use strict;
3 use warnings;
4 use Data::Dumper;
5
6 sub handler {
7 my $env = shift;
8
9 my $body = Dumper($env);
10 [200, ['Content-Type', 'text/plain', 'Content-Length', length($body), 'X-Yappo', 'Hokke'], [$body]];
11 }
12
13 1;
14
Something went wrong with that request. Please try again.