view release on metacpan or  search on metacpan

lib/App/Bernard/Filetype/TextXGettextTranslation.pm  view on Meta::CPAN

    my $rebuilder = Locale::PO::Callback::rebuilder($target);

    my $maybe_transliterate = sub {
	my ($item) = @_;

	if ($item->{'type'} eq 'header') {

	    $item->{'headers'}->{'language-team'} =
		'Shavian <ubuntu-l10n-en-shaw@launchpad.net>';
	    $item->{'headers'}->{'content-type'} =
		'text/plain; charset=UTF-8';
	    $item->{'headers'}->{'plural-forms'} =
		'nplurals=2; plural=n!=1;';

	    $settings->{'defines'} = {
		%{$settings->{'defines'}},
		$item->{'comments'} =~ m/Transliterate (.*) as (.*)\n/gi,
	    };

	} elsif ($item->{'type'} eq 'translation') {