/[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 118 by dpavlin, Sun Jul 13 18:14:07 2008 UTC revision 119 by dpavlin, Sun Jul 13 18:51:29 2008 UTC
# Line 67  sub main { Line 67  sub main {
67  #               Carp::REPL::repl;       # FIXME if $self->debug  #               Carp::REPL::repl;       # FIXME if $self->debug
68          } else {          } else {
69    
70                  my $f = Frey::ClassLoader->new;                  $req->print(
71                  my $classes = dom2html(                          "<h1>Classes</h1>" .
72                          table => [                          Frey::ClassBrowser->new->html_markup
                                 map {  
                                         my $package = $_;  
                                         ( tr => [  
                                                 td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ],  
                                                 td => [  
                                                         $package->can('meta') ?  
                                                                 $package->meta->isa('Moose::Meta::Role') ? 'role' :  
                                                                 ( a => { href => '/od/' . $package } => [ 'design' ] ) :  
                                                         ''  
                                                 ],  
                                                 td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ],  
                                         ] )  
                                 } $f->classes  
                         ],  
73                  );                  );
                 $req->print( "<h1>Classes</h1>$classes" );  
74    
75          }          }
76    
Legend:
Removed from v.118  
changed lines
  Added in v.119
  ViewVC Help
Powered by ViewVC 1.1.26