projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add xt/external to MANIFEST.SKIP
[gitmo/Mouse.git]
/
author
/
use-he.pl
1
#!perl -w
2
3
use strict;
4
use HTTP::Engine;
5
6
my $engine = HTTP::Engine->new(
7
interface => {
8
module => 'CGI',
9
request_handler => \&handle_request,
10
},
11
);
12
13
$engine->run();
14
15
sub handle_request{
16
my($request) = @_;
17
18
return HTTP::Engine::Response->new(body => "Hello, world!\n");
19
}