line |
true |
false |
branch |
22
|
0 |
1 |
unless $self->{'LRET_domain'} = $args->{'domain'} |
41
|
0 |
1 |
unless my $pattern = $opts{'pattern'} || $self->pattern |
46
|
0 |
1 |
unless open IN, "<:encoding($charset)", $fn |
56
|
0 |
1 |
if (ref $pattern eq 'CODE') { } |
|
1 |
0 |
elsif ($pattern =~ /^TT([12])-(\w+)$/) { } |
70
|
1 |
11 |
defined $plural ? : |
|
12 |
0 |
if not $msgid =~ /\&\w+\;/ and defined $plural ? !($plural =~ /\&\w+\;/) : 1 |
72
|
0 |
0 |
if defined $plural |
84
|
0 |
1 |
$version == 1 ? : |
100
|
1 |
11 |
if ($take =~ /$pipe_func_block/) |
102
|
0 |
1 |
if (@frags < 2 or not $frags[1] =~ /^\s*END\s*$/) |
107
|
0 |
1 |
$msgid =~ s/\|(.*)// ? : |
117
|
1 |
10 |
if ($take =~ /$msgid_pipe_func/) |
120
|
0 |
1 |
$msgid =~ s/\|(.*)// ? : |
137
|
1 |
9 |
$msgid =~ s/\|(.*)// ? : |