--- trunk/lib/Frey/Introspect.pm 2008/11/05 20:18:33 314 +++ trunk/lib/Frey/Introspect.pm 2008/11/16 16:36:53 358 @@ -185,6 +185,7 @@ @attributes = map { my $name = $_; my $attr = $meta->get_attribute($name); + warn "## ref attr: ",ref( $attr ); my ( $before, $title, $after ) = ( '', '', '' ); ( $before, $title, $after ) = ( '', ' title="required"', '' ) if $attr->is_required; warn $attr->dump(3); @@ -232,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; }