use Scalar::Util ();
use Exporter 5.57 qw(import);
-our $VERSION = '1.000007';
+our $VERSION = '1.000008';
our @EXPORT = qw($_call_if_object $_isa $_can $_does $_DOES $_call_if_can);
our $_call_if_can = sub {
my ($obj, $method) = (shift, shift);
- $obj->$_call_if_object(can => $method) && $obj->$_call_if_object($method => @_);
+ return unless $obj->$_call_if_object(can => $method);
+ return $obj->$method(@_);
};
1;
C<is_module_name> function from L<Module::Runtime> is a good way to check for
something you might be able to call methods on if you want to do that.
+We are careful to make sure that scalar/list context is preserved for the
+method that is eventually called.
+
=head1 EXPORTS
=head2 $_isa