[Moose-commits] r7267 - in Mouse/trunk: . lib/Mouse/Meta

[dann at code2.0beta.co.uk]

Author: dann
Date: 2009-01-10 09:36:05 -0800 (Sat, 10 Jan 2009)
New Revision: 7267

Modified:
   Mouse/trunk/Changes
   Mouse/trunk/lib/Mouse/Meta/Class.pm
Log:
suppress warnings when we use around and has "+..."

Modified: Mouse/trunk/Changes
===================================================================
--- Mouse/trunk/Changes	2009-01-10 15:41:32 UTC (rev 7266)
+++ Mouse/trunk/Changes	2009-01-10 17:36:05 UTC (rev 7267)
@@ -11,6 +11,8 @@
 
     * 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
 

Modified: Mouse/trunk/lib/Mouse/Meta/Class.pm
===================================================================
--- Mouse/trunk/lib/Mouse/Meta/Class.pm	2009-01-10 15:41:32 UTC (rev 7266)
+++ Mouse/trunk/lib/Mouse/Meta/Class.pm	2009-01-10 17:36:05 UTC (rev 7267)
@@ -63,6 +63,7 @@
     my $pkg = $self->name;
 
     no strict 'refs';
+    no warnings 'redefine';
     $self->{'methods'}->{$name}++; # Moose stores meta object here.
     *{ $pkg . '::' . $name } = $code;
 }