--- trunk/lib/Frey/Introspect.pm 2008/11/05 19:57:49 310
+++ trunk/lib/Frey/Introspect.pm 2008/11/05 20:05:35 312
@@ -208,7 +208,7 @@
} sort $meta->get_attribute_list
}
- my $table = qq|
Methods | Attributes | Type | Properties |
|;
+ my $table = qq|Methods | Attributes | Type | Properties |
|;
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
|