% perl -E '*Some::Module::foo = sub { }; say Some::Module->can("can")' 
CODE(0x259d370)