$ perl -E'package Foo::Bar; say Foo->can("can")'
CODE(0x1f4a220)