From: Dann <techmemo@gmail.com>
Date: Sat, 10 Jan 2009 17:36:05 +0000 (+0000)
Subject: suppress warnings when we use around and has "+..."
X-Git-Tag: 0.19~72
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=47b5feb98e9b293834e412f31cbf88f8f2e3de92;hp=9090e5fe93ed204d746dfea6d09925ec54b194c4

suppress warnings when we use around and has "+..."
---

diff --git a/Changes b/Changes
index f469d80..6c60a59 100644
--- a/Changes
+++ b/Changes
@@ -11,6 +11,8 @@ Revision history for Mouse
 
     * class_type shouldn't load the class (Moose compat; no easy fix :/)
 
+    * suppress warninsgs when we use around and has '+...' 
+
 0.14 Sat Dec 20 16:53:05 2008
     * POD fix
 
diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 6f6feab..8668990 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -63,6 +63,7 @@ sub add_method {
     my $pkg = $self->name;
 
     no strict 'refs';
+    no warnings 'redefine';
     $self->{'methods'}->{$name}++; # Moose stores meta object here.
     *{ $pkg . '::' . $name } = $code;
 }