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, |
80 |
|
|
81 |
my $f; |
my $f; |
82 |
|
|
83 |
my $run_regexp = join('|', Frey::Run->execute ); |
my $run_regexp = join('|', Frey::Run->runnable ); |
84 |
|
|
85 |
if ( |
if ( |
86 |
$path =~ m{/Frey[:-]+ObjectBrowser} |
$path =~ m{/Frey[:-]+ObjectBrowser} |