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