sort of dispatch table written in Perl/Moose.