How can I implement a dispatch table using Perl objects?

Question

What is the syntax for the hash value for a Perl object member subroutine reference in a dispatch table?

use lib Alpha;

my $foo = new Alpha::Foo;

$foo->bar();

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

I want ??? to be the code reference for $foo->bar().