--- trunk/lib/Frey/Pod.pm	2008/11/16 16:35:48	357
+++ trunk/lib/Frey/Pod.pm	2008/11/16 16:36:53	358
@@ -20,13 +20,6 @@
 use Data::Dump qw/dump/;
 use Pod::Find qw/pod_where/;
 
-sub request {
-	my ( $self, $req ) = @_;
-	my $f = { $req->params };
-	my $class = delete( $f->{class} ) || $self->class;
-	$req->print( $self->page( title => $class, body => $self->markup( $class ) ) );
-}
-
 sub markup {
 	my $self = shift;
 	my $class = $self->class;
@@ -48,6 +41,10 @@
 	$body =~ s!</ul>!</ul></li>!;
 	$body =~ s!<p></p>!!;
 	$body =~ s!__index__!index!g;
+	return {
+		title => $class,
+		body => $body,
+	} if wantarray;
 	return $body;
 }