blob: 1191053954ec92bac5c26f5fc98dc09d8e9ba13e (
plain) (
tree)
|
|
#!/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;
|