$ perl -le 'sub foo { }; print \&foo;print __PACKAGE__->can("foo")'
CODE(0xf81930)
CODE(0xf81930)