--- trunk/lib/Frey/Introspect.pm 2008/11/05 20:02:46 311 +++ trunk/lib/Frey/Introspect.pm 2008/11/05 20:05:35 312 @@ -208,7 +208,7 @@ } sort $meta->get_attribute_list } - my $table = qq||; + my $table = qq|
MethodsAttributesTypeProperties
|; while ( @methods || @attributes ) { my ($m,$a) = ( shift @methods, shift @attributes ); $m ||= ''; @@ -226,7 +226,7 @@ my $html = $self->page( title => "Introspect $class", body => qq|

$class

| - . qq|
$superclasses\n$roles\n$execute\n| + . qq|
$superclasses\n$roles\n$execute\n| . ( $pod ? qq|↓pod&darr| : '' ) . qq|$table\n$pod
|
MethodsAttributesTypeProperties