Parent Directory | Revision Log | Patch
revision 99 by dpavlin, Wed Jul 9 13:11:26 2008 UTC | revision 100 by dpavlin, Fri Jul 11 19:19:42 2008 UTC | |
---|---|---|
# | Line 2 package Frey::Server; | Line 2 package Frey::Server; |
2 | ||
3 | use Moose; | use Moose; |
4 | ||
5 | with 'Frey::Web'; | |
6 | ||
7 | use Continuity; | use Continuity; |
8 | #use Continuity::REPL; | #use Continuity::REPL; |
use Continuity::Widget::DomNode; | ||
9 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
10 | ||
11 | use Frey; | use Frey; |
# | Line 63 sub main { | Line 64 sub main { |
64 | ||
65 | } else { | } else { |
66 | ||
67 | my $f = Frey->new; | my $f = Frey::ClassLoader->new; |
68 | my $classes = Continuity::Widget::DomNode->create( | my $classes = dom2html( |
69 | ul => [ | ul => [ |
70 | map { | map { |
71 | warn dump( $_ ); | warn dump( $_ ); |
# | Line 77 sub main { | Line 78 sub main { |
78 | ] ) | ] ) |
79 | } @{ $f->classes } | } @{ $f->classes } |
80 | ], | ], |
81 | )->to_string; | ); |
82 | $req->print( $classes ); | $req->print( $classes ); |
83 | ||
84 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |