Parent Directory | Revision Log
r203@eeepy: dpavlin | 2008-09-07 19:00:53 +0200 use Module::Reload same as rest of Frey
1 | dpavlin | 164 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | use lib 'lib'; | ||
6 | |||
7 | use Data::Dump qw/dump/; | ||
8 | |||
9 | use HTTP::Engine; | ||
10 | use YAML; | ||
11 | dpavlin | 181 | use Module::Reload; |
12 | dpavlin | 164 | use Frey::Designer; |
13 | |||
14 | my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' ); | ||
15 | |||
16 | dpavlin | 165 | my $port = $ENV{FREY_PORT} || 14000; |
17 | |||
18 | dpavlin | 164 | my $engine = HTTP::Engine->new(YAML::Load(qq{ |
19 | interface: | ||
20 | module: ServerSimple | ||
21 | args: | ||
22 | dpavlin | 165 | port: $port |
23 | dpavlin | 164 | request_handler: main::handler |
24 | })); | ||
25 | $engine->run; | ||
26 | |||
27 | sub handler { | ||
28 | my $c = shift; | ||
29 | dpavlin | 181 | Module::Reload->check; |
30 | dpavlin | 164 | $designer->handler( $c ); |
31 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |