| line |
true |
false |
branch |
|
50
|
1 |
31 |
defined $show_errors ? : |
|
57
|
19 |
13 |
if $type |
|
58
|
1 |
31 |
if $codeset |
|
71
|
2 |
28 |
unless (exists $Locale::Codes::ALL_CODESETS{$type}) |
|
72
|
1 |
1 |
if $self->{'err'} |
|
79
|
0 |
28 |
if ($@) |
|
85
|
0 |
28 |
if ($@) |
|
100
|
2 |
2 |
unless (exists $Locale::Codes::ALL_CODESETS{$type}{'codesets'}{$codeset}) |
|
101
|
1 |
1 |
if $self->{'err'} |
|
138
|
11 |
1262 |
unless defined $code |
|
139
|
506 |
767 |
if defined $codeset |
|
141
|
2 |
1271 |
unless ($self->{'type'}) |
|
143
|
1 |
1 |
if $self->{'err'} |
|
147
|
39 |
1232 |
if ($codeset and not exists $Locale::Codes::ALL_CODESETS{$type}{'codesets'}{$codeset}) |
|
149
|
36 |
3 |
if $self->{'err'} |
|
155
|
770 |
462 |
if not defined $codeset or $codeset eq "" |
|
156
|
424 |
808 |
if $code eq "" |
|
162
|
671 |
137 |
if ($op eq "lc") |
|
166
|
69 |
739 |
if ($op eq "uc") |
|
170
|
30 |
778 |
if ($op eq "ucfirst") |
|
174
|
38 |
770 |
if ($op eq "numeric") |
|
175
|
30 |
8 |
if ($code =~ /^\d+$/) { } |
|
180
|
7 |
1 |
if $self->{'err'} |
|
187
|
152 |
24 |
unless ($no_check_code or exists $Data{$type}{'code2id'}{$codeset}{$code} or exists $Retired{$type}{$codeset}{'code'}{$code} or exists $Data{$type}{'codealias'}{$codeset}{$code}) |
|
192
|
145 |
7 |
if $self->{'err'} |
|
210
|
9 |
467 |
if (@args and defined $args[$#args] and lc $args[$#args] eq "retired") |
|
215
|
2 |
477 |
unless ($self->{'type'}) |
|
216
|
1 |
1 |
if $self->{'err'} |
|
222
|
66 |
411 |
if $err or not $code |
|
225
|
18 |
393 |
if exists $Data{$type}{'codealias'}{$codeset}{$code} |
|
227
|
390 |
21 |
if (exists $Data{$type}{'code2id'}{$codeset}{$code}) { } |
|
|
3 |
18 |
elsif ($retired and exists $Retired{$type}{$codeset}{'code'}{$code}) { } |
|
241
|
18 |
302 |
unless $name |
|
245
|
6 |
99 |
if (@args and defined $args[$#args] and lc $args[$#args] eq "retired") |
|
250
|
2 |
300 |
unless ($self->{'type'}) |
|
251
|
1 |
1 |
if $self->{'err'} |
|
257
|
3 |
297 |
if $err |
|
259
|
264 |
33 |
if (exists $Data{$type}{'alias2id'}{$name}) { } |
|
|
3 |
30 |
elsif ($retired and exists $Retired{$type}{$codeset}{'name'}{$name}) { } |
|
261
|
252 |
12 |
if (exists $Data{$type}{'id2code'}{$codeset}{$id}) |
|
281
|
2 |
66 |
unless ($self->{'type'}) |
|
283
|
1 |
1 |
if $self->{'err'} |
|
290
|
3 |
63 |
if (@args == 2) { } |
|
|
60 |
3 |
elsif (@args == 3) { } |
|
293
|
0 |
3 |
if $err |
|
298
|
12 |
48 |
if $err |
|
300
|
0 |
48 |
if $err |
|
311
|
0 |
3 |
unless ($self->{'type'}) |
|
313
|
0 |
0 |
if $self->{'err'} |
|
321
|
0 |
3 |
if $err or not $code or not exists $Data{$type}{'code2id'}{$codeset}{$code} |
|
338
|
3 |
44 |
if (@args and lc $args[$#args] eq "retired") |
|
343
|
2 |
45 |
unless ($self->{'type'}) |
|
344
|
1 |
1 |
if $self->{'err'} |
|
350
|
3 |
42 |
if $err |
|
353
|
3 |
39 |
if $retired |
|
360
|
3 |
23 |
if (@args and lc $args[$#args] eq "retired") |
|
365
|
2 |
24 |
unless ($self->{'type'}) |
|
366
|
1 |
1 |
if $self->{'err'} |
|
372
|
3 |
21 |
if $err |
|
382
|
3 |
18 |
if ($retired) |
|
404
|
2 |
52 |
unless ($self->{'type'}) |
|
405
|
1 |
1 |
if $self->{'err'} |
|
413
|
32 |
20 |
if ($err) |
|
415
|
31 |
1 |
if $self->{'err'} |
|
433
|
11 |
9 |
if (exists $Data{$type}{'alias2id'}{lc $new_name}) { } |
|
437
|
8 |
3 |
if ($new_id != $id) |
|
440
|
7 |
1 |
if $self->{'err'} |
|
471
|
2 |
60 |
unless ($self->{'type'}) |
|
472
|
1 |
1 |
if $self->{'err'} |
|
480
|
5 |
55 |
if ($err) |
|
481
|
4 |
1 |
if $self->{'err'} |
|
488
|
8 |
47 |
if (exists $Data{$type}{'code2id'}{$codeset}{$code} or exists $Data{$type}{'codealias'}{$codeset}{$code}) |
|
490
|
7 |
1 |
if $self->{'err'} |
|
499
|
14 |
33 |
if (exists $Data{$type}{'alias2id'}{lc $name}) { } |
|
501
|
5 |
9 |
if (exists $Data{$type}{'id2code'}{$codeset}{$id}) |
|
502
|
4 |
1 |
if $self->{'err'} |
|
530
|
2 |
32 |
unless ($self->{'type'}) |
|
531
|
1 |
1 |
if $self->{'err'} |
|
539
|
8 |
24 |
if ($err) |
|
541
|
7 |
1 |
if $self->{'err'} |
|
548
|
24 |
0 |
if (exists $Data{$type}{'code2id'}{$codeset}{$code}) |
|
557
|
9 |
3 |
if $Data{$type}{'codealias'}{$codeset}{$alias} ne $code |
|
566
|
6 |
54 |
if exists $Data{$type}{'id2code'}{$cs}{$id} |
|
569
|
18 |
6 |
unless ($inuse) |
|
581
|
0 |
24 |
if (exists $Retired{$type}{$codeset}{'code'}{$code}) |
|
599
|
2 |
38 |
unless ($self->{'type'}) |
|
600
|
1 |
1 |
if $self->{'err'} |
|
608
|
17 |
21 |
if (exists $Data{$type}{'alias2id'}{lc $name}) { } |
|
611
|
19 |
2 |
if $self->{'err'} |
|
615
|
4 |
13 |
if (exists $Data{$type}{'alias2id'}{lc $new_name}) |
|
616
|
4 |
0 |
if $self->{'err'} |
|
642
|
2 |
37 |
unless ($self->{'type'}) |
|
643
|
1 |
1 |
if $self->{'err'} |
|
651
|
17 |
20 |
if (exists $Data{$type}{'alias2id'}{lc $name}) { } |
|
654
|
19 |
1 |
if $self->{'err'} |
|
659
|
5 |
12 |
if ($n == 1) |
|
661
|
4 |
1 |
if $self->{'err'} |
|
678
|
28569 |
12 |
if $jd ne $id or $j < $i |
|
680
|
6 |
6 |
if ($i == $j) { } |
|
701
|
2 |
42 |
unless ($self->{'type'}) |
|
702
|
1 |
1 |
if $self->{'err'} |
|
711
|
23 |
19 |
if ($err) |
|
713
|
22 |
1 |
if $self->{'err'} |
|
734
|
8 |
11 |
if (exists $Data{$type}{'codealias'}{$codeset}{$new_code}) { } |
|
|
5 |
6 |
elsif (exists $Data{$type}{'code2id'}{$codeset}{$new_code}) { } |
|
736
|
3 |
5 |
if ($Data{$type}{'codealias'}{$codeset}{$new_code} eq $code) { } |
|
744
|
4 |
1 |
if $self->{'err'} |
|
751
|
4 |
1 |
if $self->{'err'} |
|
778
|
2 |
42 |
unless ($self->{'type'}) |
|
779
|
1 |
1 |
if $self->{'err'} |
|
788
|
23 |
19 |
if ($err) |
|
790
|
22 |
1 |
if $self->{'err'} |
|
799
|
8 |
11 |
if (exists $Data{$type}{'code2id'}{$codeset}{$new_code} or exists $Data{$type}{'codealias'}{$codeset}{$new_code}) |
|
801
|
7 |
1 |
if $self->{'err'} |
|
821
|
2 |
34 |
unless ($self->{'type'}) |
|
822
|
1 |
1 |
if $self->{'err'} |
|
830
|
23 |
11 |
if ($err) |
|
832
|
22 |
1 |
if $self->{'err'} |
|
839
|
5 |
6 |
unless (exists $Data{$type}{'codealias'}{$codeset}{$code}) |
|
840
|
4 |
1 |
if $self->{'err'} |