% perl -E '*Some::Module::foo = sub { say "hello" }; Some::Module::foo()'
hello

##</code><code>##

% perl -E 'say Some::Module->can("can")'                         


##</code><code>##

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

##</code><code>##

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