--- trunk/lib/Frey/Server.pm 2008/07/14 21:22:43 121 +++ trunk/lib/Frey/Server.pm 2008/07/16 14:14:18 142 @@ -40,14 +40,14 @@ my ($req) = @_; my $path = $req->request->url->path; - warn "REQUEST: $path\n"; + warn "REQUEST: $path ",dump( $req->params ),"\n"; - Module::Reload->check if $path =~ m!reload!; + Module::Reload->check if $path =~ m!reload! || $req->param('reload'); - warn $req->request->header('User_Agent'); -#warn dump( $req ); +# warn $req->request->header('User_Agent'); - eval { +# eval { + { my $f; @@ -57,6 +57,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 ); } else { $f = Frey::ClassBrowser->new; }