trunk/bin/server-http-engine.pl

#!/usr/bin/perl

use warnings;
use strict;

use HTTP::Engine;
use lib 'lib';
use Frey::Server;

my $engine = HTTP::Engine->new(
        interface => {
                module => 'ServerSimple',
                args   => {
                        host => 'localhost',
                        port =>  3001,
                },
                request_handler => 'main::handle_request',# or CODE ref
        },
);

$engine->run;

sub handle_request {
        my $req = shift;

        my $server = Frey::Server->new;
        my $body;
        $server->{_print} = sub {
                $body .= join("\n", @_);
        };

        $server->request( $req->uri, $req->params );

        HTTP::Engine::Response->new( body => $body );
}

1	#!/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