swapped out Safe::Isa for Scalar::Util

diff --git a/Changes b/Changes
index 3ae0239..437646a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for JSON-MaybeXS
 
  - fix "can I haz XS?" logic precedence in Makefile.PL
  - added the ':all' export tag
+ - removed dependency on Safe::Isa
 
 1.002004 - 2014-10-11
  - support use of PUREPERL_ONLY in Makefile.PL to avoid adding an XS

diff --git a/Makefile.PL b/Makefile.PL
index ac6015f..d15050c 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -35,7 +35,7 @@ my %WriteMakefileArgs = (
       },
       runtime => {
         requires => {
-          'Safe::Isa' => '0',
+          'Scalar::Util' => '0',
           'JSON::PP' => '2.27202',
           # we may also add a runtime prereq for Cpanel::JSON::XS, on the
           # installer's machine

diff --git a/lib/JSON/MaybeXS.pm b/lib/JSON/MaybeXS.pm
index 7f8d357..ca18815 100644 (file)
--- a/lib/JSON/MaybeXS.pm
+++ b/lib/JSON/MaybeXS.pm
@@ -44,13 +44,14 @@ sub new {
   return $new;
 }
 
-use Safe::Isa;
+use Scalar::Util ();
 
 sub is_bool {
   die 'is_bool is not a method' if $_[1];
 
-  $_[0]->$_isa('JSON::XS::Boolean')
-    or $_[0]->$_isa('JSON::PP::Boolean');
+  Scalar::Util::blessed($_[0])
+    and ($_[0]->isa('JSON::XS::Boolean')
+      or $_[0]->isa('JSON::PP::Boolean'));
 }
 
 1;