skip the redundant blessed call in $_call_if_can

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

diff --git a/lib/Safe/Isa.pm b/lib/Safe/Isa.pm
index 1616687..e7a1337 100644 (file)
--- a/lib/Safe/Isa.pm
+++ b/lib/Safe/Isa.pm
@@ -26,7 +26,7 @@ our ($_isa, $_can, $_does, $_DOES) = map {
 
 our $_call_if_can = sub {
   my ($obj, $method) = (shift, shift);
-  $obj->$_call_if_object(can => $method) && $obj->$_call_if_object($method => @_);
+  $obj->$_call_if_object(can => $method) && $obj->$method(@_);
 };
 
 1;