Select Code to Download

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

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