Parent Directory | Revision Log | 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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |