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; |