diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-05-28 20:15:10 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-05-28 20:15:10 -0500 |
| commit | 5f97cb0153e0a07149fa82f3dd9cab093ae721e6 (patch) | |
| tree | 8d05e145eac29fdfa1dd7ad3543f8e21d90b6984 | |
| parent | 15b4f4b53ad70637faef9e0143e56dc8c256031d (diff) | |
| download | moosex-abc-5f97cb0153e0a07149fa82f3dd9cab093ae721e6.tar.gz moosex-abc-5f97cb0153e0a07149fa82f3dd9cab093ae721e6.zip | |
don't check for required methods in our own class
| -rw-r--r-- | lib/MooseX/ABC/Trait/Class.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/MooseX/ABC/Trait/Class.pm b/lib/MooseX/ABC/Trait/Class.pm index 735a85a..bcefd9a 100644 --- a/lib/MooseX/ABC/Trait/Class.pm +++ b/lib/MooseX/ABC/Trait/Class.pm @@ -15,7 +15,9 @@ has required_methods => ( after _superclasses_updated => sub { my $self = shift; - for my $superclass ($self->linearized_isa) { + my @supers = $self->linearized_isa; + shift @supers; + for my $superclass (@supers) { my $super_meta = Class::MOP::class_of($superclass); next unless $super_meta->does_role('MooseX::ABC::Trait::Class'); for my $method ($super_meta->required_methods) { |