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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
package Locale::POFileManager::File;
use Moose;
use MooseX::Types::Path::Class qw(File);
use List::MoreUtils qw(any);
use List::Util qw(first);
use Locale::PO;
use Scalar::Util qw(reftype);
has file => (
is => 'ro',
isa => File,
coerce => 1,
required => 1,
);
has stub_msgstr => (
is => 'ro',
isa => 'Str|CodeRef',
);
has entries => (
traits => [qw(Array)],
isa => 'ArrayRef[Locale::PO]',
lazy => 1,
builder => '_build_entries',
init_arg => undef,
handles => {
entries => 'elements',
_add_entry => 'push',
msgids =>
[ map => sub { my $m = $_->msgid; $m =~ s/^"|"$//g; $m } ],
},
);
sub _build_entries {
my $self = shift;
my $filename = $self->file->stringify;
return (-r $filename) ? Locale::PO->load_file_asarray($filename) : [];
}
sub add_entry {
my $self = shift;
if (@_ == 1) {
$self->_add_entry($_[0]);
}
else {
my %args = @_;
$args{"-$_"} = delete $args{$_} for keys %args;
$self->_add_entry(Locale::PO->new(%args));
}
}
sub entry_for {
my $self = shift;
my ($msgid) = @_;
return first { $_->msgid eq '"' . $msgid . '"' } $self->entries;
}
sub save {
my $self = shift;
Locale::PO->save_file_fromarray($self->file->stringify, [$self->entries]);
}
sub language {
my $self = shift;
my $language = $self->file->basename;
$language =~ s{(.*)\.po$}{$1};
return $language;
}
sub find_missing_from {
my $self = shift;
my ($other) = @_;
$other = blessed($self)->new(file => $other) unless blessed($other);
my @ret;
my @msgids = $self->msgids;
for my $msgid ($other->msgids) {
push @ret, $msgid unless any { $msgid eq $_ } @msgids;
}
return @ret;
}
sub add_stubs_from {
my $self = shift;
my ($other) = @_;
for my $missing ($self->find_missing_from($other)) {
my $msgstr = $self->stub_msgstr;
if (reftype($msgstr) && reftype($msgstr) eq 'CODE') {
$msgstr = $msgstr->(lang => $self->language, msgid => $missing);
}
$self->add_entry(
msgid => $missing,
defined($msgstr) ? (msgstr => $msgstr) : (),
);
}
$self->save;
}
__PACKAGE__->meta->make_immutable;
no Moose;
1;
|
