--- trunk/lib/Frey/ClassLoader.pm 2008/11/18 14:01:20 411 +++ trunk/lib/Frey/ClassLoader.pm 2008/11/18 14:42:58 416 @@ -88,22 +88,20 @@ if ( ! $class->can('meta') ) { my $instance = Moose::Meta::Class->create_anon_class; - warn "class $class isn't Moose, faking anon class"; + warn "class $class isn't Moose, faking anon class" if $self->debug; return ( $instance, 0 ); } - my $meta; + my $meta = $class->meta; my $is_role = 0; - my $instance; if($class->meta->isa('Moose::Meta::Role')){ $is_role = 1; - $instance = Moose::Meta::Class->create_anon_class; + my $instance = Moose::Meta::Class->create_anon_class; + warn "# apply $class on $instance"; $class->meta->apply( $instance ); - $meta = $class->meta; die $@ if $@; - } else { - $meta = $class->meta; + $meta = $instance->meta; } return ( $meta, $is_role ); }