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

#!perl -w

use strict;
use 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;
	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	}