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