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::Refresh;
use Frey::Designer;

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

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

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