From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 21:06:40 +0000 (-0400)
Subject: class_of for does
X-Git-Tag: 0.73_01~36^2~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66d33a5c5108b07d7777cce654f4ac63cfabbfc9;p=gitmo%2FMoose.git

class_of for does
---

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index 98b3c46..8398099 100644
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -84,7 +84,7 @@ BEGIN {
 # as appropiate see Moose::Meta::Role
 sub does {
     my ($self, $role_name) = @_;
-    my $meta = $self->meta;
+    my $meta = Class::MOP::class_of($self);
     (defined $role_name)
         || $meta->throw_error("You much supply a role name to does()");
     foreach my $class ($meta->class_precedence_list) {