--- trunk/lib/Frey/Server.pm	2008/07/13 18:14:07	118
+++ trunk/lib/Frey/Server.pm	2008/07/13 18:51:29	119
@@ -67,25 +67,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(
+			"<h1>Classes</h1>" .
+			Frey::ClassBrowser->new->html_markup
 		);
-		$req->print( "<h1>Classes</h1>$classes" );
 
 	}