/[Frey]/trunk/lib/Frey/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 101 by dpavlin, Fri Jul 11 22:54:42 2008 UTC revision 106 by dpavlin, Sun Jul 13 12:22:14 2008 UTC
# Line 18  use vars qw( $repl $server ); Line 18  use vars qw( $repl $server );
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,
# Line 72  sub main { Line 73  sub 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                          ],                          ],
Legend:
Removed from v.101  
changed lines
  Added in v.106
  ViewVC Help
Powered by ViewVC 1.1.26