don't assume Scalar::Util is imported into the current package

diff --git a/Changes b/Changes
index 2b68d8c..71d2084 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,5 @@
   - re-add #web-simple as development IRC
+  - don't assume Scalar::Util is imported into the current package
 
 0.091010 - 2012-06-26
   - isa checks on builders

diff --git a/t/lib/MooObjectWithDelegate.pm b/t/lib/MooObjectWithDelegate.pm
index db2be38..5ac7c6e 100644 (file)
--- a/t/lib/MooObjectWithDelegate.pm
+++ b/t/lib/MooObjectWithDelegate.pm
@@ -1,11 +1,12 @@
 package MooObjectWithDelegate;
 use ClassicObject;
+use Scalar::Util ();
 use Moo;
 
 has 'delegated' => (
   is => 'ro',
   isa => sub {
-    do { $_[0] && blessed($_[0]) }
+    do { $_[0] && Scalar::Util::blessed($_[0]) }
       or die "Not an Object!";
   },
   lazy => 1,