sub method { }

package Pkg;
sub method_pkg { }

package main;
print defined '&method', "\n",
 main->can('method'), "\n",
 Pkg->can('method'), "\n",
 Pkg->can('method_pkg'), "\n";

#