{
  my $default_language;
  sub _ {
    my ($msg_key, $lang) = @_;
    my $catalog = $MESSAGES->{$lang || $default_language};
    return $catalog->{$msg_key} || $msg_key;
  }
  sub set_default_language {
    $default_language = shift;
  }
}