diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-05-28 20:15:47 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-05-28 20:15:47 -0500 |
| commit | 8d62b6e815e4442bed635d2b626ad9a6bce9abb3 (patch) | |
| tree | 5b443bffb62532702e920d6b360791fd83b7b73a | |
| parent | 5f97cb0153e0a07149fa82f3dd9cab093ae721e6 (diff) | |
| download | moosex-abc-8d62b6e815e4442bed635d2b626ad9a6bce9abb3.tar.gz moosex-abc-8d62b6e815e4442bed635d2b626ad9a6bce9abb3.zip | |
sigh, ->meta->meta->does_role, not ->meta->does_role
| -rw-r--r-- | lib/MooseX/ABC/Trait/Class.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/MooseX/ABC/Trait/Class.pm b/lib/MooseX/ABC/Trait/Class.pm index bcefd9a..78b4db4 100644 --- a/lib/MooseX/ABC/Trait/Class.pm +++ b/lib/MooseX/ABC/Trait/Class.pm @@ -19,7 +19,8 @@ after _superclasses_updated => sub { shift @supers; for my $superclass (@supers) { my $super_meta = Class::MOP::class_of($superclass); - next unless $super_meta->does_role('MooseX::ABC::Trait::Class'); + next unless $super_meta->meta->can('does_role') + && $super_meta->meta->does_role('MooseX::ABC::Trait::Class'); for my $method ($super_meta->required_methods) { if (!$self->find_method_by_name($method)) { my $classname = $self->name; |