Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
33 lines (26 sloc) 351 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use Plack::Builder;
my $app = sub {
my $env = shift;
return [
200,
[ 'Content-type', 'text/html' ],
[ <DATA> ],
]
};
builder {
enable 'Debug';
$app;
}
__DATA__
<html>
<head>
<title>Test</title>
</head>
<body>
<h1>Test</h1>
<p>This is a test</p>
</body>
</html>