From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 28 Sep 2008 15:18:41 +0000 (+0000)
Subject: Simplification of blessed, we don't need to lift the refs stricture
X-Git-Tag: 0.19~200
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fe1b68fc791837235aa8918bddf253998c93a7a;p=gitmo%2FMouse.git

Simplification of blessed, we don't need to lift the refs stricture
---

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index e1cd1e7..a0bf463 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -9,20 +9,17 @@ our %dependencies = (
 
 #       VVVVV   CODE TAKEN FROM SCALAR::UTIL   VVVVV
         'blessed' => do {
-            do {
-                no strict 'refs';
-                *UNIVERSAL::a_sub_not_likely_to_be_here = sub {
-                    my $ref = ref($_[0]);
-
-                    # deviation from Scalar::Util
-                    # XS returns undef, PP returns GLOB.
-                    # let's make that more consistent by having PP return
-                    # undef if it's a GLOB. :/
-
-                    # \*STDOUT would be allowed as an object in PP blessed
-                    # but not XS
-                    return $ref eq 'GLOB' ? undef : $ref;
-                };
+            *UNIVERSAL::a_sub_not_likely_to_be_here = sub {
+                my $ref = ref($_[0]);
+
+                # deviation from Scalar::Util
+                # XS returns undef, PP returns GLOB.
+                # let's make that more consistent by having PP return
+                # undef if it's a GLOB. :/
+
+                # \*STDOUT would be allowed as an object in PP blessed
+                # but not XS
+                return $ref eq 'GLOB' ? undef : $ref;
             };
 
             sub {