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 /lib | |
parent | 15b4f4b53ad70637faef9e0143e56dc8c256031d (diff) | |
download | moosex-abc-5f97cb0153e0a07149fa82f3dd9cab093ae721e6.tar.gz moosex-abc-5f97cb0153e0a07149fa82f3dd9cab093ae721e6.zip |
don't check for required methods in our own class
Diffstat (limited to 'lib')
-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) { |