| line |
true |
false |
branch |
|
77
|
3 |
12 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
2 |
10 |
elsif (scalar @_ == 1 and my $lang = _get_language()) { } |
|
|
9 |
1 |
elsif (scalar(@_) % 2 == 0) { } |
|
88
|
1 |
13 |
if (not defined $class) { } |
|
|
2 |
11 |
elsif (builtin::blessed($class)) { } |
|
89
|
0 |
1 |
if (scalar keys %args > 0) |
|
99
|
1 |
1 |
if (scalar %args) |
|
106
|
7 |
5 |
if (scalar %args) |
|
131
|
1 |
7 |
unless (defined $lang) |
|
137
|
2 |
5 |
unless (defined $string) |
|
151
|
2 |
21 |
if ($ENV{'LANGUAGE'} and $ENV{'LANGUAGE'} =~ /^([a-z]{2})/i) |
|
157
|
28 |
19 |
unless defined $val |
|
159
|
19 |
0 |
if ($val =~ /^([a-z]{2})/i) |
|
167
|
0 |
2 |
if defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C(\.|$)/ |
|
187
|
3 |
21 |
if (ref $_[0] eq 'HASH') { } |
|
|
19 |
2 |
elsif (scalar(@_) % 2 == 0) { } |
|
190
|
1 |
18 |
if (defined $_[0]) |
|
197
|
23 |
1 |
if (my $lang = $params{'lang'} || $self->_get_language) |
|
218
|
5 |
1 |
unless utf8::is_utf8($v) |
|
227
|
0 |
30 |
unless my $self = shift() |
|
233
|
14 |
16 |
if $key eq "DESTROY" |
|
236
|
0 |
16 |
unless ref $self eq __PACKAGE__ |
|
238
|
5 |
11 |
if (my $value = shift()) |