From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sat, 28 Jun 2008 17:06:20 +0000 (+0000)
Subject: silence BUILD used only once warning
X-Git-Tag: 0.19~263
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbe29bd9547cd03c03050b28d28b731139257bd8;p=gitmo%2FMouse.git

silence BUILD used only once warning
---

diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm
index 04ad0ef..8bf68d2 100644
--- a/lib/Mouse/Object.pm
+++ b/lib/Mouse/Object.pm
@@ -90,9 +90,9 @@ sub BUILDALL {
     # short circuit
     return unless $self->can('BUILD');
 
-    no strict 'refs';
-
     for my $class (reverse $self->meta->linearized_isa) {
+        no strict 'refs';
+        no warnings 'once';
         my $code = *{ $class . '::BUILD' }{CODE}
             or next;
         $code->($self, @_);