projects
/
gitmo/Moose.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
actually, don't just call random ->does methods we don't control
[gitmo/Moose.git]
/
lib
/
Moose
/
Util.pm
diff --git
a/lib/Moose/Util.pm
b/lib/Moose/Util.pm
index
da44827
..
63a4da5
100644
(file)
--- a/
lib/Moose/Util.pm
+++ b/
lib/Moose/Util.pm
@@
-44,7
+44,7
@@
sub find_meta { Class::MOP::class_of(@_) }
sub does_role {
my ($class_or_obj, $role) = @_;
- if (try { $class_or_obj->can('does') }) {
+ if (try { $class_or_obj->isa('Moose::Object') }) {
return $class_or_obj->does($role);
}