package Foo;
use Dispatch;

sub bar {
    ...
}

sub baz {
    ...
}

package main;

my $t = Foo->create_dptable;
$t->{bar}->($quux);