--- trunk/lib/Frey/Introspect.pm 2008/07/05 19:00:10 55
+++ trunk/lib/Frey/Introspect.pm 2008/07/06 11:59:58 56
@@ -200,7 +200,7 @@
my $methods;
my ( $class, $meta, $is_role );
- eval { $self->load_package(); };
+ eval { ( $class, $meta, $is_role ) = $self->load_package(); };
if ( $@ ) {
warn "ERROR: $@";
$request->conn->send_status_line( 500, $@ );
@@ -226,7 +226,7 @@
map {
my $attr = $class->get_attribute($_);
warn "## $_ ", $attr->is_required ? 'required' : 'optional';
- ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_, ( $attr->is_required ? ' required' : '' ) ] ] )
+ ( li => [ a => { href => '/~/' . $self->package . '/' . $_ } => [ $_ ], ( $attr->is_required ? ' required' : '' ) ] )
} $class->get_attribute_list
],
)->to_string;