18 |
#$repl = Continuity::REPL->new; |
#$repl = Continuity::REPL->new; |
19 |
|
|
20 |
sub run { |
sub run { |
21 |
|
my ( $self, $port ) = @_; |
22 |
$server = Continuity->new( |
$server = Continuity->new( |
23 |
port => 16001, |
port => $port || 16001, |
24 |
path_session => 1, |
path_session => 1, |
25 |
cookie_session => 'sid', |
cookie_session => 'sid', |
26 |
callback => \&main, |
callback => \&main, |
73 |
( li => [ |
( li => [ |
74 |
a => { href => '/~/' . $package . '/' } => [ $package ], |
a => { href => '/~/' . $package . '/' } => [ $package ], |
75 |
' <tt>', $f->package_path( $package ), '</tt> ', |
' <tt>', $f->package_path( $package ), '</tt> ', |
76 |
$package->can('rows') ? |
$package->can('collection') ? |
77 |
( a => { href => '/ob/' . $package } => [ 'browse' ] ) : '', |
( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '', |
78 |
] ) |
] ) |
79 |
} $f->classes |
} $f->classes |
80 |
], |
], |