如何使用Perl对象实现调度表？

Question

dispatch table中Perl对象成员子例程引用的哈希值的语法是什么？

use lib Alpha;

my $foo = new Alpha::Foo;

$foo->bar();

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

我想要???成为$foo->bar()的代码参考。