Как я могу реализовать таблицу диспетчеризации, используя объекты Perl?

Question

Каков синтаксис для значения хеш-функции для ссылки на подпрограмму члена объекта Perl в таблице диспетчеризации?

use lib Alpha;

my $foo = new Alpha::Foo;

$foo->bar();

my %disp_table = ( bar => ??? );

Мне нужно??? быть ссылкой на код $foo->bar(),