Parent Directory | Revision Log
HTTP::Engine server skeleton
1 | dpavlin | 628 | #!/usr/bin/perl |
2 | |||
3 | use warnings; | ||
4 | use strict; | ||
5 | |||
6 | use HTTP::Engine; | ||
7 | use lib 'lib'; | ||
8 | use Frey::Server; | ||
9 | |||
10 | my $engine = HTTP::Engine->new( | ||
11 | interface => { | ||
12 | module => 'ServerSimple', | ||
13 | args => { | ||
14 | host => 'localhost', | ||
15 | port => 3001, | ||
16 | }, | ||
17 | request_handler => 'main::handle_request',# or CODE ref | ||
18 | }, | ||
19 | ); | ||
20 | |||
21 | $engine->run; | ||
22 | |||
23 | sub handle_request { | ||
24 | my $req = shift; | ||
25 | |||
26 | my $server = Frey::Server->new; | ||
27 | my $body; | ||
28 | $server->{_print} = sub { | ||
29 | $body .= join("\n", @_); | ||
30 | }; | ||
31 | |||
32 | $server->request( $req->uri, $req->params ); | ||
33 | |||
34 | HTTP::Engine::Response->new( body => $body ); | ||
35 | } | ||
36 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |