sub sub {
    my ($self,$type,@args) = @_;
    my %message_types = (
        type1 => $self->can("type1"),
        type2 => $self->can("type2")
    );
    return $message_types{$type}->($self,@args);
}