| line |
true |
false |
branch |
|
36
|
4 |
2 |
unless @_ |
|
38
|
1 |
1 |
ref $_[-1] eq 'HASH' ? : |
|
49
|
5 |
3 |
if @_ |
|
59
|
3 |
0 |
if @_ |
|
66
|
0 |
0 |
if eval {
do {
$self->_load_data($_)
}
} |
|
75
|
0 |
9 |
unless my $code = shift() |
|
78
|
0 |
9 |
if $code =~ /\W/ |
|
83
|
1 |
8 |
if ($code =~ /^\d+$/) { } |
|
|
7 |
1 |
elsif (length $code == 2) { } |
|
|
1 |
0 |
elsif (length $code == 3) { } |
|
96
|
0 |
5 |
unless defined $country |
|
135
|
10 |
16 |
if ref $language |
|
138
|
1 |
15 |
if $self->use_io_layer or ref $self and $$self{'use_io_layer'} |
|
148
|
0 |
3978 |
unless $alpha2 |
|
150
|
3978 |
0 |
if $alpha3 |
|
151
|
3978 |
0 |
if $numeric |
|
154
|
4141 |
0 |
if $alpha3 |
|
155
|
4141 |
0 |
if $numeric |
|
171
|
1 |
15 |
if ($filename eq 'cn') { } |
|
|
0 |
15 |
elsif ($filename eq 'tw') { } |
|
184
|
2 |
0 |
unless open $fh, $filename and return $lang, $fh |