| line |
true |
false |
branch |
|
38
|
0 |
2 |
unless my $domain = $args->{'textdomain'} |
|
41
|
2 |
0 |
unless ($forms) |
|
52
|
2 |
0 |
defined $version ? : |
|
64
|
0 |
3 |
if not $charset and $fn =~ m(\.([\w-]+)(?:\@[^/\\]+)?\.po$)i |
|
68
|
2 |
1 |
if (defined $charset) { } |
|
69
|
0 |
2 |
unless open $fh, "<:encoding($charset):crlf", $fn |
|
74
|
0 |
1 |
unless open $fh, '<:raw:crlf', $fn |
|
83
|
3 |
40 |
unless defined $block |
|
88
|
0 |
40 |
unless length $block |
|
90
|
1 |
39 |
unless ($charset) |
|
91
|
1 |
0 |
$block =~ /\"content-type:.*?charset=["']?([\w-]+)/im ? : |
|
96
|
0 |
1 |
unless $block = &decode($charset, $block) |
|
102
|
40 |
0 |
if $po |
|
105
|
0 |
3 |
unless close $fh |
|
118
|
1 |
1 |
@_ % 2 ? : |
|
121
|
0 |
2 |
unless defined $file |
|
128
|
1 |
1 |
if (ref $file) { } |
|
131
|
0 |
1 |
unless open $fh, $layers, $file |
|
139
|
2 |
13 |
if $msgid eq '' |
|
143
|
13 |
0 |
&blessed($rec) ? : |
|
146
|
0 |
13 |
if $po->useless |
|
147
|
0 |
13 |
if $need_refs and not $po->references |
|
153
|
0 |
2 |
unless $fh->close |
|
165
|
0 |
0 |
(shift())->filename =~ m([/\\](\w+)[^/\\]*$) ? : |
|
171
|
13 |
37 |
unless my $msgs = $self->index->{$msgid} |
|
173
|
37 |
0 |
if &blessed($msgs) and !$msgctxt || $msgctxt eq $msgs->msgctxt |
|
183
|
0 |
15 |
unless my $po = $self->msgid($msgid, $msgctxt) |
|
197
|
53 |
0 |
unless $h |
|
199
|
0 |
0 |
if &blessed($h) |
|
205
|
0 |
0 |
if $h->{$ctxt} |
|
214
|
49 |
0 |
&blessed($_) ? : |
|
|
4 |
1 |
unless @_ |
|
216
|
0 |
1 |
if $_[0] ne 'ACTIVE' |
|
227
|
0 |
13 |
unless my $header = $self->msgid('') |
|
231
|
8 |
5 |
unless (@_) |
|
233
|
7 |
1 |
$text =~ /^\Q$field\E\:\s*([^\n]*?)\;?\s*$/im ? : |
|
240
|
4 |
1 |
if (defined $content) { } |
|
241
|
1 |
3 |
unless s/^\Q$field\E\:([^\n]*)/${field}: $content/im |
|
283
|
2 |
0 |
if $header |
|
306
|
0 |
0 |
if $po->msgid eq '' |
|
308
|
0 |
0 |
if $po->fuzzy |
|
309
|
0 |
0 |
unless $po->isActive or $po->useless |