--- trunk/lib/Frey/Pod.pm	2008/11/17 17:11:12	376
+++ trunk/lib/Frey/Pod.pm	2008/11/19 15:28:23	455
@@ -20,7 +20,7 @@
 use Data::Dump qw/dump/;
 use Pod::Find qw/pod_where/;
 
-sub markup {
+sub as_markup {
 	my $self = shift;
 	my $class = $self->class;
 	use Pod::Simple::HTML;
@@ -41,11 +41,12 @@
 	$body =~ s!</ul>!</ul></li>!;
 	$body =~ s!<p></p>!!;
 	$body =~ s!__index__!index!g;
+	return $body unless wantarray;
 	return {
 		title => $class,
 		body => $body,
-	} if wantarray;
-	return $body;
+	};
+
 }
 
 1;