From: gfx <gfuji@cpan.org>
Date: Mon, 28 Sep 2009 00:56:27 +0000 (+0900)
Subject: Add a "no warnings 'once'"
X-Git-Tag: 0.37~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b898bac83890927c156ceb14e4921b38dc1068be;p=gitmo%2FMouse.git

Add a "no warnings 'once'"
---

diff --git a/lib/Mouse/Meta/Method/Constructor.pm b/lib/Mouse/Meta/Method/Constructor.pm
index ea37419..596dccf 100644
--- a/lib/Mouse/Meta/Method/Constructor.pm
+++ b/lib/Mouse/Meta/Method/Constructor.pm
@@ -182,6 +182,7 @@ sub _generate_BUILDALL {
     my @code;
     for my $class ($metaclass->linearized_isa) {
         no strict 'refs';
+        no warnings 'once';
 
         if (*{ $class . '::BUILD' }{CODE}) {
             unshift  @code, qq{${class}::BUILD(\$instance, \$args);};