| line |
true |
false |
branch |
|
67
|
1 |
9 |
unless (defined $class) |
|
75
|
1 |
9 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
8 |
elsif (scalar @_ == 1 and my $lang = _get_language()) { } |
|
|
7 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
86
|
5 |
4 |
if (scalar %params) |
|
108
|
1 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
|
3 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
118
|
2 |
3 |
unless (defined $lang) |
|
120
|
1 |
1 |
unless (defined $lang) |
|
128
|
1 |
3 |
unless (defined $string) |
|
141
|
1 |
17 |
if ($ENV{'LANGUAGE'}) |
|
142
|
0 |
1 |
if ($ENV{'LANGUAGE'} =~ /^([a-z]{2})/i) |
|
148
|
22 |
16 |
unless defined $val |
|
150
|
16 |
0 |
if ($val =~ /^([a-z]{2})/i) |
|
154
|
0 |
0 |
if (defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C\./ || $ENV{'LANG'} eq 'C') |
|
176
|
2 |
17 |
if (ref $_[0] eq 'HASH') { } |
|
|
9 |
8 |
elsif (scalar @_ == 0) { } |
|
|
7 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
181
|
1 |
6 |
if (defined $_[0]) |
|
189
|
1 |
18 |
unless (defined $lang) |
|
223
|
9 |
7 |
if $key eq "DESTROY" |
|
227
|
0 |
7 |
if ref $self ne "Lingua::String" |
|
229
|
2 |
5 |
if (my $value = shift()) |