From: gfx <gfuji@cpan.org>
Date: Mon, 6 Sep 2010 03:21:06 +0000 (+0900)
Subject: Support PERL_ONLY env var
X-Git-Tag: 0.65~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=5ab8f626029ab9c2e9ec7988d9dd519e2efa223a

Support PERL_ONLY env var
---

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index f204edc..abe59b7 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -54,7 +54,7 @@ BEGIN{
 
     our $VERSION = '0.64';
 
-    my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
+    my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
 
     if($xs){
         # XXX: XSLoader tries to get the object path from caller's file name
diff --git a/lib/Mouse/XS.pod b/lib/Mouse/XS.pod
index 94df77b..a41de43 100644
--- a/lib/Mouse/XS.pod
+++ b/lib/Mouse/XS.pod
@@ -25,9 +25,10 @@ option to F<Makefile.PL>.
 
     perl Makefile.PL --pp
 
-=head2 The MOUSE_PUREPERL environment variable
+=head2 The MOUSE_PUREPERL (or PERL_ONLY) environment variable
 
-It can be used to enable the use of Mouse::PurePerl.
+It can be used to enable the use of Mouse::PurePerl in order to test
+and debug programs that use Mouse.
 
 =head1 DEPENDENCIES