--- trunk/lib/Frey/Introspect.pm 2008/11/18 14:42:58 416
+++ trunk/lib/Frey/Introspect.pm 2008/11/18 16:54:10 418
@@ -244,19 +244,16 @@
);
$runnable = " runnable: $runnable" if $runnable;
- my $html = {
- title => $class,
- body => join("\n",
- qq|
$class
|,
- qq|$superclasses\n$roles\n$runnable\n|,
- $pod ? qq|
pod| : '',
- $source ? qq|
source| : '',
- qq|$table\n$pod\n
\n|,
- qq|Source
$source
|,
- ),
- };
+ $self->title( $class );
- return $html;
+ return join("\n",
+ qq|$class
|,
+ qq|$superclasses\n$roles\n$runnable\n|,
+ $pod ? qq|
pod| : '',
+ $source ? qq|
source| : '',
+ qq|$table\n$pod\n
\n|,
+ qq|Source
$source
|,
+ );
}
=head1 SEE ALSO