8 |
|
|
9 |
use HTTP::Engine; |
use HTTP::Engine; |
10 |
use YAML; |
use YAML; |
11 |
use Module::Refresh; |
use Module::Reload; |
12 |
use Frey::Designer; |
use Frey::Designer; |
13 |
|
|
14 |
my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' ); |
my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' ); |
15 |
|
|
16 |
|
my $port = $ENV{FREY_PORT} || 14000; |
17 |
|
|
18 |
my $engine = HTTP::Engine->new(YAML::Load(qq{ |
my $engine = HTTP::Engine->new(YAML::Load(qq{ |
19 |
interface: |
interface: |
20 |
module: ServerSimple |
module: ServerSimple |
21 |
args: |
args: |
22 |
port: 14000 |
port: $port |
23 |
request_handler: main::handler |
request_handler: main::handler |
24 |
})); |
})); |
25 |
$engine->run; |
$engine->run; |
26 |
|
|
27 |
sub handler { |
sub handler { |
28 |
my $c = shift; |
my $c = shift; |
29 |
Module::Refresh->refresh; |
Module::Reload->check; |
30 |
$designer->handler( $c ); |
$designer->handler( $c ); |
31 |
} |
} |