| line |
true |
false |
branch |
|
12
|
1 |
0 |
if ($@) { }
|
|
125
|
0 |
39 |
if @_ != 2
|
|
137
|
0 |
63 |
if defined $explicit{$l}
|
|
139
|
6 |
57 |
if (delete $implicit{$l}) { }
|
|
145
|
14 |
50 |
if (defined $explicit{$l}) { }
|
|
149
|
4 |
46 |
if (defined $implicit{$l}) { }
|
|
158
|
7 |
56 |
if ($_ eq 'C') { }
|
|
|
30 |
26 |
elsif (/^[a-z][a-z]$/) { }
|
|
|
17 |
9 |
elsif (/^([a-z][a-z])_([A-Z][A-Z])(?:\@.*)?$/) { }
|
|
|
9 |
0 |
elsif (/^([a-z][a-z])_\*$/) { }
|
|
181
|
0 |
39 |
if ($Log::TraceMessages::On)
|
|
191
|
6 |
56 |
unless defined $_
|
|
192
|
0 |
56 |
if $avail{$_}++
|
|
196
|
5 |
67 |
if ($lang eq 'C') { }
|
|
|
23 |
44 |
elsif ($lang =~ /^([a-z][a-z])_\*$/) { }
|
|
208
|
5 |
26 |
unless defined $_
|
|
209
|
11 |
15 |
if (/^\Q$base_lang\E_/)
|
|
214
|
4 |
5 |
if /^\Q$lower_lang\E$/
|
|
223
|
15 |
29 |
if $avail{$lang}
|
|
240
|
0 |
36 |
if @_ != 2
|
|
251
|
22 |
27 |
if $l eq $_
|