some last minute tweaks

diff --git a/Changes b/Changes
index e12764c..9ac5dad 100644 (file)
--- a/Changes
+++ b/Changes
@@ -23,6 +23,8 @@ Revision history for Perl extension Moose
       - added ->create_anon_class which now supports roles and caching of 
         the results (thanks to jrockway)
         - added tests for this
+      - made ->does_role a little more forgiving when it is
+        checking a Class::MOP era metaclasses.
     
     * Moose::Meta::Role::Application::ToInstance
       - it is now possible to pass extra params to be used when 

diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 34ff29d..a34ef1d 100644 (file)
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -90,7 +90,7 @@ sub does_role {
     (defined $role_name)
         || confess "You must supply a role name to look for";
     foreach my $class ($self->class_precedence_list) {
-        next unless $class->can('meta');
+        next unless $class->can('meta') && $class->meta->can('roles');
         foreach my $role (@{$class->meta->roles}) {
             return 1 if $role->does_role($role_name);
         }