blob: 1191053954ec92bac5c26f5fc98dc09d8e9ba13e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env perl
use strict;
use warnings;
# PODNAME: po_add_stubs
# ABSTRACT: add stubs for missing msgids to a set of po files
=head1 SYNOPSIS
po_add_stubs <directory> <language>
=cut
use Locale::POFileManager;
my ($dir, $lang) = @ARGV;
$dir ||= '.';
$lang ||= 'en';
my $manager = Locale::POFileManager->new(
base_dir => $dir,
canonical_language => $lang,
stub_msgstr => sub {
my %args = @_;
"$args{canonical_msgstr} ($args{lang})";
},
);
$manager->add_stubs;
|