Support PERL_ONLY env var

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index f204edc..abe59b7 100644 (file)
--- 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 (file)
--- 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