/[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 55 by dpavlin, Sat Jul 5 19:00:10 2008 UTC revision 56 by dpavlin, Sun Jul 6 11:59:58 2008 UTC
# Line 58  sub main { Line 58  sub main {
58    
59          while ( 1 ) {          while ( 1 ) {
60                  my $f = Frey->new;                  my $f = Frey->new;
61                  $req->print( dump( $f->classes ) );                  my $classes = Continuity::Widget::DomNode->create(
62                            ul => [
63                                    map {
64                                            warn dump( $_ );
65                                            my ( $package, $path ) = %$_;
66                                            ( li => [ a => { href => '/~/' . $package . '/' } => [ $package ], " <tt>$path</tt>" ] )
67                                    } @{ $f->classes }
68                            ],
69                    )->to_string;
70                    $req->print( $classes );
71                  $req->next;                  $req->next;
72          }          }
73  }  }
Legend:
Removed from v.55  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26