--- trunk/lib/Frey/Introspect.pm 2008/10/28 21:47:18 199 +++ trunk/lib/Frey/Introspect.pm 2008/10/31 16:28:58 210 @@ -164,13 +164,14 @@ if ( $attr->$check ) { if ( $getter eq $check ) { - $after .= "$check "; + $after .= "$check"; } else { $after .= qq{$check}; $after .= '' . $attr->$getter->dump . '' if $getter ne $check; - $after .= ' '; + $after .= ''; } } + $after .= ' '; } qq|$before$_$after| } sort $meta->get_attribute_list @@ -185,11 +186,6 @@ } $table .= qq||; - my $classes = - qq|
| . - Frey::ClassBrowser->new->markup . - qq|
|; - my ( $superclasses, $roles ) = ( 'Role', '' ); if ( ! $is_role ) { if ( $meta->superclasses ) { @@ -224,7 +220,7 @@ body => qq|

$package

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