--- trunk/lib/Frey/Server.pm	2008/07/13 18:14:07	118
+++ trunk/lib/Frey/Server.pm	2008/07/13 19:46:10	120
@@ -42,6 +42,8 @@
 	my $path = $req->request->url->path;
 	warn "REQUEST: $path\n";
 
+	Module::Reload->check if $path =~ m!reload!;
+
 	warn $req->request->header('User_Agent');
 #warn dump( $req );
 
@@ -67,25 +69,10 @@
 #		Carp::REPL::repl;	# FIXME if $self->debug
 	} else {
 
-		my $f = Frey::ClassLoader->new;
-		my $classes = dom2html(
-			table => [
-				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
-			],
+		$req->print(
+			qq|<h1>Classes</h1>\n<div class="sidebar"><a href="/reload">reload</a></div>| .
+			Frey::ClassBrowser->new->html_markup
 		);
-		$req->print( "<h1>Classes</h1>$classes" );
 
 	}