--- trunk/lib/Frey/Introspect.pm 2008/07/05 19:00:10 55 +++ trunk/lib/Frey/Introspect.pm 2008/07/08 12:19:04 59 @@ -46,8 +46,10 @@ my @roles_to_apply; $rmeta->add_method("apply", sub{push(@roles_to_apply, [@_])}); #load the package with the hacked Moose::Meta::Role - eval { Class::MOP::load_class($package); }; - confess "Failed to load package ${package} $@" if $@; + + #eval { Class::MOP::load_class($package); }; + #confess "Failed to load package ${package} $@" if $@; + Class::MOP::load_class($package); my $meta = $package->meta; @@ -200,7 +202,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 +228,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;