% perl -E '*Some::Module::foo = sub { say "far out man!" }; say Some::Module->can("can")->("Some::Module", "foo")->()'
far out man!
1