ignore required when default or builder is present

[gitmo/Moo.git] / t / lib / MooObjectWithDelegate.pm

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,