package MyNamespace::MT::German;
...

sub mt {
   my ( $self, $phrase ) = @_;
   my %translations = ( 
      'Hello World!' => 'Hallo Welt!',
   );
   return $translations{$phrase} || $phrase;
);