[perl #40333] Stop overload::Overloaded from calling ->can

It’s possible, and too easy, for classes to define a can method to
deal with AUTOLOAD, without taking overloading into account.  Since
AUTOLOAD is the main reason for overriding can, and since overloading
does not respect autoloading, can overrides should not be expected to
deal with it.

Since overload.pm already has a mycan function that fits this purpose,
this commit changes Overloaded to use that.

The test includes an example of a class structure that the previous
Overloaded implementation could not handle.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/overload.pm b/lib/overload.pm
index 4e01e45d09..1f9f461da1 100644
--- a/lib/overload.pm
+++ b/lib/overload.pm
@@ -50,7 +50,7 @@ sub unimport {
 sub Overloaded {
   my $package = shift;
   $package = ref $package if ref $package;
-  $package->can('()');
+  mycan ($package, '()');
 }
 
 sub ov_method {