Fix spurious 'once' warnings

diff --git a/Changes b/Changes
index 90a6e76..c8aa52f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@
     things down to do it this way and makes debugging easier.
   - Revert 'local $@' around require calls to avoid triggering Unknown Error
   - Explicitly require Role::Tiny in Role::Tiny::With (RT#70446)
+  - Fix spurious 'once' warnings under perl -w
 
 0.009013 - 2011-12-23
   - fix up Class::XSAccessor version check to be more robust

diff --git a/lib/Moo/_Utils.pm b/lib/Moo/_Utils.pm
index 6fa6e24..5f62a98 100644 (file)
--- a/lib/Moo/_Utils.pm
+++ b/lib/Moo/_Utils.pm
@@ -1,5 +1,7 @@
 package Moo::_Utils;
 
+no warnings 'once'; # guard against -w
+
 sub _getglob { \*{$_[0]} }
 sub _getstash { \%{"$_[0]::"} }