--- trunk/lib/Frey/Introspect.pm 2008/11/08 16:12:39 331 +++ trunk/lib/Frey/Introspect.pm 2008/11/16 16:36:53 358 @@ -233,14 +233,14 @@ my $runnable = join("\n", map { qq|$_| } grep { $class->can($_) } Frey::Run->runnable ); $runnable = " runnable: $runnable" if $runnable; - my $html = $self->page( + my $html = { title => "Introspect $class", body => qq|

$class

| . qq|
$superclasses\n$roles\n$runnable\n| . ( $pod ? qq|↓pod&darr| : '' ) . qq|$table\n$pod
| - ); + }; return $html; }