--- trunk/lib/Frey/Server.pm 2008/07/17 21:07:16 162 +++ trunk/lib/Frey/Server.pm 2008/08/31 18:02:50 180 @@ -46,6 +46,14 @@ # warn $req->request->header('User_Agent'); + sub run_markup { + my ( $req, $class ) = @_; + + my %params = $req->params; + + } + + # eval { { @@ -57,14 +65,8 @@ $f = Frey::ObjectBrowser->new( fey_class => $1 ); } elsif ( $path =~ m!/od/([^/]+)(.*)! ) { $f = Frey::ObjectDesigner->new( fey_class => $1 ); - } elsif ( $path =~ m!/pod/([^/]+)(.*)! ) { - $f = Frey::Pod->new( class => $1 ); } elsif ( $path =~ m!/markup/([^/]+)(.*)! ) { - my $o = $1->new( $req->params ); - $o->depends if $o->can('depends'); - my $html = $o->markup( $req->params ); - warn ">>> markup $1 ",length( $html ), " bytes\n"; - $req->print( $html ); + $f = Frey::Run->new( class => $1 ); } else { $f = Frey::ClassBrowser->new; }