--- trunk/lib/Frey/Introspect.pm 2008/10/31 16:24:59 209
+++ trunk/lib/Frey/Introspect.pm 2008/10/31 16:28:58 210
@@ -186,11 +186,6 @@
}
$table .= qq||;
- my $classes =
- qq|
| .
- Frey::ClassBrowser->new->markup .
- qq|
|;
-
my ( $superclasses, $roles ) = ( 'Role', '' );
if ( ! $is_role ) {
if ( $meta->superclasses ) {
@@ -225,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|,
);