--- trunk/lib/Frey/Introspect.pm 2008/11/18 12:55:32 408 +++ trunk/lib/Frey/Introspect.pm 2008/11/18 13:52:26 409 @@ -166,9 +166,10 @@ my @attributes; if ( $meta->get_attribute_list ) { - @attributes = map { + @attributes = map { my $name = $_; my $attr = $meta->get_attribute($name); + confess "$class attribute $name isn't blessed ",dump( $attr ) unless ref $attr; warn "## attr $name ref ",ref( $attr ) if $self->debug; my ( $before, $title, $after ) = ( '', '', '' ); ( $before, $title, $after ) = ( '', ' title="required"', '' ) if $attr->is_required; @@ -198,7 +199,7 @@ } qq|
Methods | Attributes | Type | Properties |
---|