| line |
true |
false |
branch |
|
77
|
2 |
13 |
if (scalar @_ == 1 and not ref $_[0] and my $lang = _get_language()) { } |
|
|
6 |
7 |
elsif (my $params = Params::Get::get_params(undef, @_)) { } |
|
83
|
1 |
14 |
if (not defined $class) { } |
|
|
2 |
12 |
elsif (builtin::blessed($class)) { } |
|
84
|
0 |
1 |
if (scalar keys %args > 0) |
|
94
|
1 |
1 |
if (scalar %args) |
|
101
|
7 |
6 |
if (scalar %args) |
|
126
|
1 |
7 |
unless (defined $lang) |
|
132
|
2 |
5 |
unless (defined $text) |
|
146
|
2 |
21 |
if ($ENV{'LANGUAGE'} and $ENV{'LANGUAGE'} =~ /^([a-z]{2})/i) |
|
152
|
28 |
19 |
unless defined $val |
|
154
|
19 |
0 |
if ($val =~ /^([a-z]{2})/i) |
|
162
|
0 |
2 |
if defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C(\.|$)/ |
|
182
|
3 |
21 |
if (ref $_[0] eq 'HASH') { } |
|
|
19 |
2 |
elsif (scalar(@_) % 2 == 0) { } |
|
185
|
1 |
18 |
if (defined $_[0]) |
|
192
|
23 |
1 |
if (my $lang = $params{'lang'} || $self->_get_language) |
|
213
|
5 |
1 |
unless utf8::is_utf8($v) |
|
222
|
0 |
31 |
unless my $self = shift() |
|
228
|
15 |
16 |
if $key eq "DESTROY" |
|
231
|
0 |
16 |
unless ref $self eq __PACKAGE__ |
|
233
|
5 |
11 |
if (my $value = shift()) |