| line |
true |
false |
branch |
|
65
|
1 |
8 |
unless (defined $class) |
|
72
|
0 |
8 |
if (ref $_[0] eq 'HASH') { } |
|
|
7 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
81
|
4 |
3 |
if (scalar %params) |
|
103
|
0 |
3 |
if (ref $_[0] eq 'HASH') { } |
|
|
2 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
113
|
2 |
1 |
unless (defined $lang) |
|
115
|
1 |
1 |
unless (defined $lang) |
|
123
|
0 |
2 |
unless (defined $string) |
|
136
|
1 |
13 |
if ($ENV{'LANGUAGE'}) |
|
137
|
0 |
1 |
if ($ENV{'LANGUAGE'} =~ /^([a-z]{2})/i) |
|
143
|
18 |
12 |
unless defined $val |
|
145
|
12 |
0 |
if ($val =~ /^([a-z]{2})/i) |
|
168
|
1 |
14 |
if (ref $_[0] eq 'HASH') { } |
|
|
7 |
7 |
elsif (scalar @_ == 0) { } |
|
|
6 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
173
|
1 |
5 |
if (defined $_[0]) |
|
181
|
1 |
14 |
unless (defined $lang) |
|
215
|
7 |
6 |
if $key eq 'DESTROY' |
|
219
|
0 |
6 |
if ref $self ne 'Lingua::String' |
|
221
|
2 |
4 |
if (my $value = shift()) |