keep namespace cleaner: don't import blessed()
Karen Etheridge [Thu, 21 Sep 2017 23:32:05 +0000 (16:32 -0700)]
lib/Safe/Isa.pm

index 206e1da..2f4f357 100644 (file)
@@ -2,7 +2,7 @@ package Safe::Isa;
 
 use strict;
 use warnings FATAL => 'all';
-use Scalar::Util qw(blessed);
+use Scalar::Util ();
 use Exporter 5.57 qw(import);
 
 our $VERSION = '1.000006';
@@ -14,7 +14,7 @@ our $_call_if_object = sub {
   # This is intentionally a truth test, not a defined test, otherwise
   # we gratuitously break modules like Scalar::Defer, which would be
   # un-perlish.
-  return unless blessed($obj);
+  return unless Scalar::Util::blessed($obj);
   return $obj->isa(@_) if lc($method) eq 'does' and not $obj->can($method);
   return $obj->$method(@_);
 };