Select Code to Download

my %message_types = (
   type1 => sub { $self->sub_1(@_); },
...
);

$message_types{$type}->(@args);

my %message_types = (
   type1 => 'sub_1',
...

$method = $message_types{$type};
$self->$method(@args);

my %message_types = (
   type1 => sub { $object->sub_1(@_); },
...
   # It's a method.
   $self->$func(@args);
}