--- trunk/lib/Frey/Introspect.pm 2008/07/14 21:22:43 121
+++ trunk/lib/Frey/Introspect.pm 2008/07/15 13:58:07 133
@@ -149,10 +149,9 @@
if ( $class->get_attribute_list ) {
@attributes = map {
my $attr = $class->get_attribute($_);
-# warn "## $_ ", $attr->is_required ? 'required' : 'optional';
- qq|
$_ | | .
- ( $attr->is_required ? ' required' : '' ) .
- qq| | |;
+ my ( $before, $title, $after ) = ( '', '', '' );
+ ( $before, $title, $after ) = ( '', ' title="required"', '' ) if $attr->is_required;
+ qq|$before$_$after | |
} sort $class->get_attribute_list
}
@@ -174,9 +173,24 @@
warn "## css = ",dump( $self->css );
+ my $superclasses = 'Role';
+ $superclasses = 'Superclasses: ' . join(', ',
+ map {
+ my $s = $_->meta->name;
+ qq|$s|
+ }
+ #grep { $_ ne 'Moose::Object' }
+ $meta->superclasses
+ ) if ! $is_role && $meta->superclasses;
+
+ my $pod = Frey::Pod->new( class => $package )->markup;
+
my $html = $self->page(
title => "Introspect $package",
- body => "$package
\n$table\n$classes",
+ body => qq|$package
|
+ . ( $pod ? qq|↓pod&darr | : '' )
+ . qq|$superclasses\n$table\n$pod\n$classes|,
+
);
$request->print($html);