Select Code to Download

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

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

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

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