| line |
true |
false |
branch |
|
27
|
0 |
1 |
unless my $charset = $args{'charset'} |
|
29
|
0 |
1 |
unless open my $fh, "<:encoding($charset):crlf", $fn |
|
40
|
16 |
34 |
if substr($line, 0, 1) eq '#' |
|
42
|
7 |
27 |
if ($line =~ /^\s*$/) |
|
43
|
5 |
2 |
if (@msgstr) |
|
44
|
1 |
4 |
@msgstr > 1 ? : |
|
51
|
0 |
27 |
if ($line =~ s/^msgctxt\s+//) { } |
|
|
5 |
22 |
elsif ($line =~ s/^msgid\s+//) { } |
|
|
4 |
18 |
elsif ($line =~ s/^msgstr\[(\d+)\]\s*//) { } |
|
|
4 |
14 |
elsif ($line =~ s/^msgstr\s+//) { } |
|
|
13 |
1 |
elsif ($last and $line =~ /^\s*\"/) { } |
|
71
|
0 |
0 |
@msgstr > 1 ? : |
|
|
0 |
1 |
if @msgstr |
|
74
|
0 |
1 |
unless close $fh |
|
99
|
0 |
12 |
unless my $po = $self->{'index'}{"$msgid#$ctxt"} |
|
102
|
3 |
9 |
unless ref $po |
|
105
|
0 |
9 |
unless $$po[$self->{'algo'}->($count // 1)] |
|
113
|
0 |
91 |
unless ($_[0] =~ /^\s*\"(.*)\"\s*$/) |
|
122
|
44 |
20 |
defined $_[0] && length $_[0] ? : |
|
125
|
4 |
60 |
if @escaped > 1 |