| line |
true |
false |
branch |
|
51
|
1 |
9 |
if (not defined $proto) { } |
|
|
0 |
9 |
elsif (ref $proto) { } |
|
|
9 |
0 |
elsif (eval {
do {
$proto->isa(__PACKAGE__)
}
}) { } |
|
64
|
1 |
9 |
if (ref $_[0] eq 'HASH') { } |
|
|
8 |
1 |
elsif (@_ % 2 == 0) { } |
|
|
1 |
0 |
elsif (@_ == 1) { } |
|
75
|
3 |
7 |
if (defined(my $explicit = $params{'lang'})) { } |
|
77
|
1 |
2 |
unless $lang eq "en" or $lang eq "fr" |
|
81
|
3 |
4 |
if (defined $detected and $detected eq 'en' || $detected eq 'fr') { } |
|
88
|
4 |
5 |
unless (exists $_cache{$lang}) |
|
90
|
0 |
4 |
unless defined $data |
|
95
|
0 |
61 |
unless /\S/ |
|
97
|
0 |
61 |
unless defined $code and defined $province |
|
116
|
2 |
0 |
if ($tag =~ /^([a-z]{2})/i) |
|
120
|
1 |
4 |
if $ENV{'LANG'} and $ENV{'LANG'} =~ /^C(?:\.|$)/ |