package Dispatch;

sub import {
   my $pkg = (caller)[0];
   *{"${pkg}::create_dptable"} = sub {
        my %dispatch;
        my @oksymbols = grep {    !/^_/
                             && !/^create_dptable$/
                             && defined *{"${pkg}::$_"}{CODE} }
                        keys %{*{"${pkg}::"}};
        $dispatch{$_} = *{"${pkg}::$_"}{CODE}
            foreach ( @oksymbols );
        return \%dispatch
    };
}

1;