--- trunk/lib/Frey/ClassBrowser.pm	2008/07/13 18:51:29	119
+++ trunk/lib/Frey/ClassBrowser.pm	2008/07/14 21:22:43	121
@@ -1,15 +1,14 @@
 package Frey::ClassBrowser;
 use Moose;
 
+extends 'Frey';
 with 'Frey::Web';
 
 use Frey::ClassLoader;
 
 our $markup;
 
-sub html_markup {
-	my $self = shift;
-	return $markup if $markup;
+sub markup {
 	my $f = Frey::ClassLoader->new;
 	my $classes = dom2html(
 		table => [
@@ -31,4 +30,10 @@
 	$markup = $classes;
 }
 
+sub html {
+	my ( $self, $req ) = @_;
+	my $html = $self->page( body => qq|<h1>Classes</h1>| . $self->markup );
+	$req->print( $html );
+}
+
 1;