From: Karen Etheridge <ether@cpan.org>
Date: Fri, 22 Sep 2017 16:37:48 +0000 (-0700)
Subject: skip the redundant blessed call in $_call_if_can
X-Git-Tag: v1.000008~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FSafe-Isa.git;a=commitdiff_plain;h=fe34d00085ddb4257793b96d701f838f16eec8b0

skip the redundant blessed call in $_call_if_can
---

diff --git a/lib/Safe/Isa.pm b/lib/Safe/Isa.pm
index 1616687..e7a1337 100644
--- 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;