--- trunk/lib/Frey/ClassLoader.pm 2008/11/18 14:19:50 415 +++ trunk/lib/Frey/ClassLoader.pm 2008/11/18 14:42:58 416 @@ -92,18 +92,16 @@ 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 ); }