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