2013-04-10 21:29:02 -07:00
|
|
|
use Plack::Runner;
|
|
|
|
|
my $app = sub {
|
|
|
|
|
return [ 200,
|
2014-01-17 05:32:22 +00:00
|
|
|
[ 'Content-Type' => 'text/html; charset=UTF-8' ],
|
|
|
|
|
[ '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>' ]
|
|
|
|
|
]
|
2013-04-10 21:29:02 -07:00
|
|
|
};
|
|
|
|
|
my $runner = Plack::Runner->new;
|
|
|
|
|
$runner->parse_options('--host' => 'localhost', '--port' => 8080);
|
|
|
|
|
$runner->run($app);
|
