[gitmo/Mouse.git] / author / use-he.pl

#!perl -w

use strict;
require UNIVERSAL; # for profiling
require HTTP::Engine;

my $engine = HTTP::Engine->new(
    interface       => {
        module => 'CGI',
        request_handler => \&handle_request,
    },
);

$engine->run();

sub handle_request{
    my($request) = @_;

    return HTTP::Engine::Response->new(body => "Hello, world!\n");
}
Commit	Line	Data
e3575663	1	#!perl -w
	2
	3	use strict;
30518636	4	require UNIVERSAL; # for profiling
30518636	5	require HTTP::Engine;
e3575663	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	}