Select Code to Download

$self->sub($var);

my %message_types    = (
        type1   => \&{$self->sub_1},
        type2   => \&{$self->sub_2},
    );

my %message_types          = (
        type_1  => \&MY::Fully::Qualified::Package::Name::sub1,
        type_2  => \&MY::Fully::Qualified::Package::Name::sub2,
);