trunk/bin/designer.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use lib 'lib';

use Data::Dump qw/dump/;

use HTTP::Engine;
use YAML;
use Module::Reload;
use Frey::Designer;

my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' );

my $port = $ENV{FREY_PORT} || 14000;

my $engine = HTTP::Engine->new(YAML::Load(qq{
interface:
  module: ServerSimple
  args:
    port: $port
  request_handler: main::handler
}));
$engine->run;

sub handler {
    my $c = shift;
        Module::Reload->check;
        $designer->handler( $c );
}
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			}