sub m { my ($self, @args) = @_; $m_implementation_for{$self}($self, @args); }