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	#!/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	use Module::Reload;
12	use Frey::Designer;
13
14	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{
19	interface:
20	module: ServerSimple
21	args:
22	port: $port
23	request_handler: main::handler
24	}));
25	$engine->run;
26
27	sub handler {
28	my $c = shift;
29	Module::Reload->check;
30	$designer->handler( $c );
31	}