Add a constant, MOUSE_XS

diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm
index 793de9b..17f33f8 100755 (executable)
--- a/lib/Mouse/Meta/Module.pm
+++ b/lib/Mouse/Meta/Module.pm
@@ -7,7 +7,7 @@ use Scalar::Util ();
 my %METAS;
 
 # XXX: work around a warning "useless use of a constant in void context" in 5.6.2
-if(&Mouse::Util::_MOUSE_XS()){
+if(&Mouse::Util::MOUSE_XS){
     # register meta storage for performance
     Mouse::Util::__register_metaclass_storage(\%METAS, 0);
 

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index eb0463f..eea5f73 100644 (file)
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -63,7 +63,7 @@ BEGIN{
         require 'Mouse/PurePerl.pm'; # we don't want to create its namespace
     }
 
-    *_MOUSE_XS = sub(){ $xs };
+    *MOUSE_XS = sub(){ $xs };
 }
 
 

diff --git a/t/001_mouse/603-mouse-pureperl.t b/t/001_mouse/603-mouse-pureperl.t
index 8877042..55ec983 100644 (file)
--- a/t/001_mouse/603-mouse-pureperl.t
+++ b/t/001_mouse/603-mouse-pureperl.t
@@ -7,5 +7,5 @@ use Test::More tests => 1;
 use Mouse::PurePerl;
 use Mouse;
 
-ok !Mouse::Util::_MOUSE_XS, 'load Mouse::PurePerl';
+ok !Mouse::Util::MOUSE_XS, 'load Mouse::PurePerl';