From: Dave Rolsky <autarch@urth.org>
Date: Mon, 14 Sep 2009 21:07:27 +0000 (-0500)
Subject: We also need to explicitly ignore meta when applying a role to a class
X-Git-Tag: 0.90~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5826183b6477be9fb60624996100499840023118;p=gitmo%2FMoose.git

We also need to explicitly ignore meta when applying a role to a class
---

diff --git a/lib/Moose/Meta/Role/Application/ToClass.pm b/lib/Moose/Meta/Role/Application/ToClass.pm
index 3c38156..ec7aa8e 100644
--- a/lib/Moose/Meta/Role/Application/ToClass.pm
+++ b/lib/Moose/Meta/Role/Application/ToClass.pm
@@ -148,6 +148,7 @@ sub apply_attributes {
 sub apply_methods {
     my ($self, $role, $class) = @_;
     foreach my $method_name ($role->get_method_list) {
+        next if $method_name eq 'meta';
 
         unless ($self->is_method_excluded($method_name)) {
             # it if it has one already