view release on metacpan or  search on metacpan

bin/cipp-l10n  view on Meta::CPAN

                           || "PACKAGE";

    my $lang_team_email  = $domain_conf->{lang_team_email}
                           || "LANGUAGE TEAM <EMAIL\@ADDRESS>";

    my $msg_id_bug_email = $domain_conf->{msg_id_bug_email}
                           || "BUGS <EMAIL\@ADDRESS>";

    print $fh <<__EOH;
#. Generated with cipp-l10n - Copyright (C) dimedis GmbH
msgid ""
msgstr ""
"Project-Id-Version: $domain\\n"
"POT-Creation-Date: (null)\\n"
"PO-Revision-Date: (null)\\n"
"Last-Translator: TRANSLATOR NAME <EMAIL\@ADDRESS>\\n"
"Language-Team: $lang_team_email\\n"
"Report-Msgid-Bugs-To: $msg_id_bug_email\\n"
"MIME-Version: 1.0\\n"
"Content-Type: text/plain; charset=UTF-8\\n"
"Content-Transfer-Encoding: 8bit\\n"

__EOH

    foreach my $message ( sort {
                            $messages_href->{$a}->[0] cmp
                            $messages_href->{$b}->[0]
                          } keys %{$messages_href} ) {
        my $entries = $messages_href->{$message};
        foreach my $entry ( @{$entries} ) {
            print $fh qq[#: $entry\n];
        }

        if (  $message =~ m!\{.*\}! ) {
            print $fh qq[#, perl-brace-format\n];
        }

        if ( $message =~ /\n/ ) {
            print $fh qq[msgid ""\n];
            $message =~ s/^/"/gm;
            $message =~ s/\n/"\n/gm;
            $message .= qq["\n] if $message !~ /\n$/;
            print $fh $message;
        }
        else {
            print $fh qq[msgid "$message"\n];
        }
        print $fh qq[msgstr ""\n\n];
    }

    if ( $filename ) {
        close $fh;
    }

    $verbose && print STDERR "done\n";