1 |
package Frey::Server; |
package Frey::Server; |
2 |
|
|
3 |
use Moose; |
use Moose; |
4 |
|
extends 'Frey'; |
5 |
with 'Frey::Web'; |
with 'Frey::Web'; |
6 |
|
with 'Frey::Config'; |
7 |
|
|
8 |
use Continuity; |
use Continuity; |
9 |
#use Continuity::REPL; |
#use Continuity::REPL; |
37 |
sub run { |
sub run { |
38 |
my ( $self, $port ) = @_; |
my ( $self, $port ) = @_; |
39 |
$server = Continuity->new( |
$server = Continuity->new( |
40 |
port => $port || 16001, |
port => $port || $self->config->{port} || 16001, |
41 |
path_session => 1, |
path_session => 1, |
42 |
cookie_session => 'sid', |
cookie_session => 'sid', |
43 |
callback => \&main, |
callback => \&main, |