no more _role_meta crapsvk status!

[gitmo/Moose.git] / lib / Moose / Role.pm

diff --git a/lib/Moose/Role.pm b/lib/Moose/Role.pm
index 58d2b4b..a1e51b8 100644 (file)
--- a/lib/Moose/Role.pm
+++ b/lib/Moose/Role.pm
@@ -35,11 +35,11 @@ use Moose::Util::TypeConstraints;
        if ($role->can('meta')) {
                $meta = $role->meta();
                (blessed($meta) && $meta->isa('Moose::Meta::Role'))
-                       || confess "Whoops, not møøsey enough";
+                || confess "You already have a &meta function, but it does not return a Moose::Meta::Role";
        }
        else {
-               $meta = Moose::Meta::Role->new(role_name => $role);
-               $meta->_role_meta->add_method('meta' => sub { $meta })          
+               $meta = Moose::Meta::Role->initialize($role);
+               $meta->Moose::Meta::Class::add_method('meta' => sub { $meta })          
        }
 
         return $METAS{$role} = $meta;