Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (10 sloc) 239 Bytes
package Example;
use strict;
use warnings;
use Data::Dumper;
sub handler {
my $env = shift;
my $body = Dumper($env);
[200, ['Content-Type', 'text/plain', 'Content-Length', length($body), 'X-Yappo', 'Hokke'], [$body]];
}
1;