also handle undef inputs

[p5sagit/Safe-Isa.git] / lib / Safe / Isa.pm

diff --git a/lib/Safe/Isa.pm b/lib/Safe/Isa.pm
index 2d6c675..7155c84 100644 (file)
--- a/lib/Safe/Isa.pm
+++ b/lib/Safe/Isa.pm
@@ -17,7 +17,7 @@ our $_call_if_object = sub {
 
 our $_call_if_object_or_classname = sub {
   my ($thing, $method) = (shift, shift);
-  return unless blessed($thing) or do {
+  return unless blessed($thing) or defined($thing) and do {
     no strict 'refs';
     %{"main::${thing}::"}
   };